孤立文字とは、同じタイプの隣接する文字を持たない文字（改行以外）です。隣接する文字は左、右上、または下にありますが、対角線にはできません。たとえば、次のテキストHは分離されています。

Ybb
YH%
%%%%

他のすべての文字は、それぞれに隣接する同じタイプの他の文字が少なくとも1つあるため、分離されていません。

あなたの仕事は、文字列を入力として受け取り、分離された文字の数を決定するプログラムを書くことです。

得点

あなたの答えは、2つの指標によって採点されます。1つ目は、プログラム内の分離文字の数です。これを最小限に抑えることを目指してください。2番目は、プログラムのバイト数です。これも最小限に抑える必要があります。プログラムサイズは、最初の基準のタイブレーカーとして機能します。

追加の規則

印刷可能なASCII範囲とプログラムで使用する文字の入力をサポートする必要があります。
改行は、改行文字または改行に続く改行のいずれかと見なすことができます。
妥当な形式で入力できます。これには、行のリストが含まれます。

テストケース

Ybb
YH%
%%%%

$1$

Aaaab
uuu
yyybbb

$2$

$1$

qqWWaaww

$0$

string code-challenge source-layout

— ポストロックガーフハンター
ソース

2

空の文字列は有効な入力ですか？その場合、スコアは0になりますか？また、入力タイプはどの程度柔軟性がありますか？行のリストは正常ですか？

— ヴェスカー

改行を分離できますか？

— ジョーキング

1

@DimChtz Y下にあるので。

— エリックアウトゴルファー

1

最初のメトリックはどのプログラミング言語でも回避でき、すべての回答のスコアは0になりました。

— GB

1

@GB確かに。restricted-source代わりにチャレンジに変えて、孤立したキャラクターを完全に禁止するのに遅すぎることはないと思います。

— アーナルド

7

Python 2、0（350 344 314 309 301 298 291バイト）

def f(tt):11
def f(tt):
 tt=tt.split('\n')
 r =0#.split('\n')
#r  0#
#for
 for  ii,ll in enumerate(tt):
  for jj,cc in enumerate(ll):
##for+=1-(
    r+=1-(cc in ll[(jj or 2)-1:jj+2:2]    +''.join(ll[jj:
 jj+1]for ll in tt[(ii or 2)-1:ii+2:2]))##+''.join(ll[jj:
#  +1]for 
#print r
 print r

オンラインでお試しください！

_{-7バイト、Jo Kingのおかげ}

— TFeld
ソース

291バイト

— ジョーキング

@JoKingありがとう！:)

— TFeld

5

クリーン、0（439 ... 415バイト）

-11ØrjanJohansenに感謝

最後に、Cleanで0点を獲得できるチャレンジです！
（通常、ソースレイアウトの課題は苦手です！）

//module 
  module d
import StdEnv,ArgEnv,Data.List,Data.Maybe
import StdEnv,ArgEnv,Data.List,Data.Maybe
Start=sum[1\\i<-l&v<-[0..],_<-i&u<-[0..]|all((<>)(?u v))[?(u-1)v,?(u+1)v,?u(v-1),?u(v+1)]]
Start=sum[1\\i<-l&v<-[0..],_<-i&u<-[0..]|all((<>)(?u v))[?(u-1)v,?(u+1)v,?u(v-1),?u(v+1)]] 
l=mklines[c\\c<-:getCommandLine.[1]]
l=mklines[c\\c<-:getCommandLine.[1]]
?x=mapMaybe(\k=k!?x)o(!?)l
?x=mapMaybe(\k=k!?x)o(!?)l

オンラインでお試しください！

TIOリンクはmodule main、CleanがTIOに実装される方法のために使用しmodule dますd.iclがmain.icl、TIOの代わりにファイルに名前を付けると機能します。

古い行の1つが説明されています（新しいバージョンは異なる順序で同じものです）：

Start                                       // entry point
 = let                                      // define locals
  l = mklines                               // `l` is argument split at newlines
   [c \\ c <-: getCommandLine.[1]];         // the second command-line arg turned into a [Char]
  ? x y                                     // function ? of coordinate (x,y)
   = mapMaybe                               // if the argument isn't Nothing
    (\k = k!?x)                             // try taking the `x`-th index
    (l!?y)                                  // of the `y`-th index of `l`
  in                                        // in the context of
   sum [                                    // the sum of
    1                                       // the integer one
    \\ i <- l & v <- [0..]                  // for every index in `l`
    , _ <- i & u <- [0..]                   // for every subindex in `l`
    | all (                                 // where all of the second argument
      (<>)(?u v)                            // doesn't equal the first argument
     ) [?(u-1)v, ?(u+1)v, ?u(v-1), ?u(v+1)] // over every adjacent element
   ]

— Ο々しい
ソース

1

使用しない場合、let 11バイト節約されます。

— Ørjanヨハンセン

@ØrjanJohansenありがとう！隣接するd便利なものがあるため、モジュールヘッダーも変更しました

— 18

5

JavaScript（ES6）、0（154バイト）

保存された2 4は、@ØrjanJohansenのおかげでバイト

入力を文字列の配列として受け取ります。

s  =>
s//=>(s,y,a
.map((s,y,a)=>[...s]
.map((c,x  )=>[...s]
&&//++c,x
 s[x+1]==c|
 s[x-1]==c|
(a[y-1]||0)[x]==c|
(a[y+1]||0)[x]==c||
  i++),i=0)
&&i//),i=

オンラインでお試しください！

— アーノールド
ソース

156バイト

— ØrjanJohansenの

4

ゼリー、0（41 27 25バイト）

ŒĠạþ`€Ẏ§CẠ€S
ŒĠạþ`€Ẏ§CẠ€S

オンラインでお試しください！

行のリストとして入力を受け取ります。コードの最初の行は何も実行せず、孤立した文字を最小限にするためだけにあります。

ỴŒĠạþ`€Ẏ§1eⱮCS
Ỵ                 Split the text on newlines.
 ŒĠ               Group the multidimensional indices by their value.
      €           For each list of indices:
   ạ                Take the absolute difference...
    þ`              ...between each pair.
       Ẏ          Concatenate the lists of differences.
        §         Sum the x & y differences. This computes the Manhattan distance.
                  At this point we have a list for each character in the text of 
                  Manhattan distances between it and it's identical characters. 
         1eⱮ      Is there a 1 in each of the lists? None for isolated characters.
            C     Complement: 0 <-> 1.
             S    Sum. Counts the isolated characters

— ディルナン
ソース

3

MATL、0（54バイト）

TTTTf"Go@X!0JQJ&(d@_X!]***ggss
%%%%f"Go@X!0JQJ&(d@_X!]

入力は、各行に1つずつ、文字列のセル配列です{'line 1', 'line 2', 'and line 3'}。

オンラインでお試しください！または、テストケースとソースコードを確認します。

— ルイス・メンドー
ソース

1

Python 3、0（323バイト）

def f(s,e=enumerate):S={(x,y,c)for y,l in e(s.split("\n"))for x,c in e(l)};return-sum(~-any((x+u,y+v,c)in S for u,v in[(1,0),(~0,0),(0,~0),(0,1)])for x,y,c in S)
def f(s,e=enumerate):S={(x,y,c)for y,l in e(s.split("\n"))for x,c in e(l)};return-sum(~-any((x+u,y+v,c)in S for u,v in[(1,0),(~0,0),(0,~0),(0,1)])for x,y,c in S)

オンラインでお試しください！

— ジョナサンフレッチ
ソース

1

05AB1E、0（101 バイト）

žGçU|€SXζζD"εγεDgDisëXи]"©.V˜sø®.V€Sø˜‚øʒË}ʒXå≠}gq
žGçU|€SXζζD"εγεDgDisëXи]"©.V˜sø®.V€Sø˜‚øʒË}ʒXå≠}gq

オンラインでお試しください。

これは、私がこれまでに書いた中で最もuくて長い05AB1Eプログラムの1つです。..>。> 05AB1Eでは、この課題は非常に困難です。バイトカウントは、別のアプローチ（または同様のアプローチでも）を使用することで、少なくとも半減するか、3/4倍小さくできることを心に留めていますが、現時点ではわかりません。私はちょうどそれが今働いていることをうれしく思います..誰かがいくつかのスマートなトリックではるかに短い05AB1Eの回答を投稿した場合、私はおそらく恥からこの回答を削除します... xD

説明：

žGç                # Character with unicode 32768 ('耀')
   U               # Pop and store it in variable `X`
                   # (This character is not part of the printable ASCII, nor of my 05AB1E code)
|                  # Take the multi-line input as list
                   #  i.e. "Ybb\nYH%\n%%%%" → ["Ybb","YH%","%%%%"]
 €S                # Convert each string to a list of characters
                   #  i.e. ["Ybb","YH%","%%%%"] → [["Y","b","b"],["Y","H","%"],["%","%","%","%"]]
   Xζζ             # Zip with character `X` as filler twice to make the lines of equal length
                   #  i.e. [["Y","b","b"],["Y","H","%"],["%","%","%","%"]]
                   #   → [["Y","b","b","耀"],["Y","H","%","耀"],["%","%","%","%"]]
      D            # Duplicate this list
"             "    # Create a string
               ©   # Which we store in the register (without popping)
                .V # And execute that string as 05AB1E code
 ε                 #  Map each inner list to:
  γ                #   Split in chunks of the same characters
                   #    i.e. [["Y","b","b"],["Y","H","%"],["%","%","%","%"]]
                   #     → [[["Y"],["b","b"]],[["Y"],["H"],["%"]],[["%","%","%","%"]]]
   ε               #   Map each of those to:
    D              #    Duplicate the current inner list
     gDi           #    If its length is exactly 1:
        s          #     Swap so the mapping keeps the duplicated single character (as list)
       ë           #    Else:
        Xи         #     Take character `X` repeated the length amount of times
                   #      i.e. ["%","%","%","%"] (length 4) → ["耀","耀","耀","耀"]
          ]        #  Close the if-else and both maps
           ˜       #  Flatten the list to a single list of characters
                   #   i.e. [[["Y"],["耀","耀"],["耀"]],[["Y"],["H"],["%"],["耀"]],[["耀","耀","耀","耀"]]]
                   #    → ["Y","耀","耀","耀","Y","H","%","耀","耀","耀","耀","耀"]
s                  # Swap so the duplicate list is at the top of the stack
 ø                 # Swap its rows and columns
                   #  i.e. [["Y","b","b","耀"],["Y","H","%","耀"],["%","%","%","%"]]
                   #   → [["Y","Y","%"],["b","H","%"],["b","%","%"],["耀","耀","%"]]
  ®.V              # Execute the same piece of code again that we've stored in the register
     €S            # Convert each to a list of characters
                   #  i.e. [[["耀","耀"],["%"]],[["b"],["H"],["%"]],[["b"],["耀","耀"]],[["耀","耀"],["%"]]]
                   #   → [["耀","耀","%"],["b","H","%"],["b","耀","耀"],["耀","耀","%"]]
       ø           # Swap its rows and columns back again
                   #  i.e. [["耀","b","b","耀"],["耀","H","耀","耀"],["%","%","耀","%"]]
        ˜          # Flatten this list as well
‚                  # Pair both lists together
                   #  i.e. [["Y","耀","耀","耀","Y","H","%","耀","耀","耀","耀","耀"],
                   #        ["耀","b","b","耀","耀","H","耀","耀","%","%","耀","%"]]
 ø                 # Swap its rows and columns to create pairs
                   #  i.e. [["Y","耀"],["耀","b"],["耀","b"],["耀","耀"],["Y","耀"],["H","H"],["%","耀"],["耀","耀"],["耀","%"],["耀","%"],["耀","耀"],["耀","%"]]
  ʒË}              # Filter out any inner lists where both characters are not equal
                   #  i.e. [["耀","耀"],["H","H"],["耀","耀"],["耀","耀"]]
     ʒXå≠}         # Filter out any inner lists that contain the character `X`
                   #  i.e. [["H","H"]]
g                  # Take the length as result
                   #  i.e. [["H","H"]] → 1
 q                 # Stop the program, making all other characters no-ops
                   # (and output the length above implicitly)

— ケビン・クルーッセン
ソース

1

Ruby、スコア0、237 209バイト

##->a{['',*a,''].each_cons(3).sum{|a,b,c|(0..b.size).count{|x|[[x>0&&b[x-1],a[x],b[x+1],c[x]]&[b[x
  ->a{['',*a,''].each_cons(3).sum{|a,b,c|(0..b.size).count{|x|[[x>0&&b[x-1],a[x],b[x+1],c[x]]&[b[x]]]==[[]]}}}

オンラインでお試しください！

— GB
ソース

0

JavaScript（Node.js）、0（279バイト）

  s=>(b=s.map(Buffer)).map((x,i)=>x.filter((y,j)=>y-(g=(x,y)=>~~(b[x]&&b[x][y]))(i,j-1)&&y-g(i,j+1)&&y-g(i-1,j)&&y-g(i+1,j))).join``.length
//s=>(b=s.map(Buffer)).map((x,i)=>x.filter((y,j)=>y-(g=(x,y)=>~~(b[x]&&b[x][y]))(i,j-1)&&y-g(i,j+1)&&y-g(i-1,j)&&y-g(i+1,j))).join``.length

オンラインでお試しください！

入力を行の配列として受け取ります。

— 朝琴しえる
ソース

誰もが友達になれない

得点

追加の規則

テストケース

Python 2、0（350 344 314 309 301 298 291バイト）

クリーン、0（439 ... 415バイト）

JavaScript（ES6）、0（154バイト）

ゼリー、0（41 27 25バイト）

MATL、0（54バイト）

Python 3、0（323バイト）

05AB1E、0（101 バイト）

Ruby、スコア0、237 209バイト

JavaScript（Node.js）、0（279バイト）