このチャレンジでは、パックマンのゴーストのリストを指定して、どのゴーストが欠落しているかを出力する必要があります。できる限り数バイトでそれをしなければなりません

入力

入力は、文字列またはリストで構成されます。これには、いくつかのゴーストが含まれます。

• まばたき
• 真っ黒
• ピンキー
• クライド

ただし、入力にはPac-Man（句読点付き）も含まれる場合があります。したがって、リスト内のアイテムの最大数は、任意の順序で5つになります。無効なアイテムはリストにないものと想定できます

出力

出力は、文字列またはリストで構成されます。これには、入力に含まれていないすべてのゴーストが任意の順序で含まれます。ただし、パックマンが入力に含まれている場合、すべてのゴーストは失われていると見なされます（彼がそれらを食べるため）。

テストケース

input: Clyde
output: Blinky, Inky, Pinky
alternate output: Inky, Pinky, Blinky
or one of the other 4 permutations

input: Clyde, Blinky # or however you delimit it
output: Inky, Pinky
alt: Pinky, Inky

input: Pac-Man, Clyde
Output: Blinky, Inky, Pinky, Clyde
or you could output one of the other 23 permutations

input:[null]
Output: Blinky, Inky, Pinky, Clyde
or you could output one of the other 23 permutations

これはcodegolfなので、バイト数が少ないほど良いです。

ゼリー、25 22 バイト

Ff”-ȯ⁸“JLKqḤṢ&F⁻ı»ṣ⁶¤ḟ

これは単項関数です。I / Oはリスト形式です。オンラインでお試しください！

使い方

Ff”-ȯ⁸“JLKqḤṢ&F⁻ı»ṣ⁶¤ḟ  Monadic link. Argument: A (list of strings)

F                       Flatten A.
 f”-                    Filter it with the string "-" to detect "Pac-Man".
    ȯ⁸                  Flat logical OR with A. This yields A if there is no '-'
                        in the input, the string "-" otherwise.
                    ¤   Combine the three links to the left into a niladic chain.
      “JLKqḤṢ&F⁻ı»        Yield "Blinky Inky Pinky Clyde", using Jelly's built-in
                          English dictionary.
                  ṣ⁶      Split at spaces to yield
                          ["Blinky", "Inky", "Pinky", "Clyde"].
                     ḟ  Filter-false; removing all elements from that list that
                        appear in A or "-". This is a noop if A contains "Pac-Man".

網膜、45バイト

A`-
$
,;BliNClyde,INPiN
N
nky,
D`\w+,
.*;|,$

後続の改行は重要です。入力と出力はカンマ区切りです。

オンラインでお試しください！（最初の行は、改行で区切られたテストスイートを有効にします。）

説明

Retinaの最新の追加（重複排除段階）をすぐに披露できるとは思っていませんでしたが、この課題には本当に役立ちます。:)

ステージ1：Anti-Grep

A`-

Anti-grepステージは、指定された正規表現に一致するすべての行を破棄します。正規表現は単なるもので-あり、入力は常に1行なので、入力にが含まれてPac-Manいる場合はすべてのゴーストが破棄されます。

ステージ2：置換

$
,;BliNClyde,INPiN

これは単に固定文字列を追加します,;BliNClyde,INPiN。これは、クリーンアップ後の出力のゴーストのリストになります。

ステージ3：置換

N
nky,

前の段階で3つの*nkyゴーストを記述しN（そしてそれらの後ろのコンマを省略しました）、この短縮表記を拡張して、数バイトを節約することに注意してください。すべてのゴーストの後にコンマがあり、セミコロンで区切られたすべてのゴーストのリストと入力ゴーストがあります。

ステージ3：重複排除

D`\w+,

これは新しい部分です。重複排除ステージは、指定された正規表現のすべてのインスタンスを検出し、以前に一致した部分文字列に等しいすべての一致した部分文字列を破棄します。正規表現は、入力と潜在的な出力のリストの両方で、すべてのゴーストに単純に一致します。入力にゴーストが含まれる場合、同じゴーストが2番目のリストで再び照合され、破棄されます。そうでない場合、ゴーストは2番目のリストで初めて一致し、保持されます。そのため、この後、セミコロンの後のリストが目的の出力になります。残っているのは、ちょっとしたクリーンアップです。

ステージ5：置換

.*;|,$

文字列の最後にあるセミコロンとカンマまでをすべて一致させて削除します。

Python 3、75バイト

lambda s:[x for x in['Blinky','Inky','Pinky','Clyde']if(x in s)<1or'-'in s]

入力はコンマ区切りの文字列で、出力はリストになります。

JavaScriptのES6、85 78バイト

匿名関数として

a=>["Blinky","Inky","Pinky","Clyde"].filter(c=>!a.includes(c)|a.some(v=>v[6]))

今日私はこれについて学びました filter機能。楽しい！

Neilのおかげで15バイト節約されました。

使用法：

(a=>["Blinky","Inky","Pinky","Clyde"].filter(c=>!a.includes(c)||a.includes("Pac-Man")))(["Pac-Man"])
> ["Blinky","Inky","Pinky","Clyde"]
(a=>["Blinky","Inky","Pinky","Clyde"].filter(c=>!a.includes(c)||a.includes("Pac-Man")))(["Pinky"])
> ["Blinky","Inky","Clyde"]
(a=>["Blinky","Inky","Pinky","Clyde"].filter(c=>!a.includes(c)||a.includes("Pac-Man")))([])
> ["Blinky","Inky","Pinky","Clyde"]

Ruby、55 49バイト

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

@MartinEnderから-6バイト

->a{%w"Blinky Inky Pinky Clyde"-(a*''=~/-/?[]:a)}

Ruby配列は、セット減算を実行でき、適切なゴーストを簡単に削除できます。

Perl、51バイト

50バイトのコード+ 1 -n

for$@(Blinky,Inky,Pinky,Clyde){print$@if/-/|!/$@/}g}

使用法

perl -ne 'for$@(Blinky,Inky,Pinky,Clyde){print$@if/-/|!/$@/}' <<< 'Pac-Man, Clyde'
BlinkyInkyPinkyClyde

必要であれば、私は交換+ 3バイトのために、各ゴーストの後にスペースを追加して、出力を修正することができるprint$@とprint"$@ "。

@MartinEnderのおかげで-6バイト！

Perl、53バイト

51バイトのコード+ 2 -na

smartmatch演算子を使用した代替ソリューション：

print grep/-/~~@F|!($_~~@F),Blinky,Inky,Pinky,Clyde

使用法

入力のスペース区切りリストが必要です。

perl -nae 'print grep/-/~~@F|!($_~~@F),Blinky,Inky,Pinky,Clyde' <<< 'Clyde Pinky Inky'
Blinky
perl -nae 'print grep/-/~~@F|!($_~~@F),Blinky,Inky,Pinky,Clyde' <<< 'Clyde Pinky Inky Pac-Man'
BlinkyInkyPinkyClyde'

Pyth - 45 38 35バイト

=GwI!:G"a")j-["inky""pinky""blinky""clyde")cG

I!:=Gw"a")j-c:" p bl clyde"d"inky "dcG

j-c:" p bl clyde"d"inky "d?:z\aZYcz

Leaky Nunのおかげで-1バイト増えました！

入力はスペースで区切られ、すべて小文字でなければなりません。pac-manが入力にない限り、欠落しているゴーストを別の行に出力します。

C、171バイト

NULLで終わる文字列の配列をに渡すf()と、不足している名前が出力されます。

*a[]={"Blinky","Inky","Pinky","Clyde",0},**s,**r,n;f(int**p){for(r=p;*p;)r=strcmp(*p++,"Pac-Man")?r:a+4;for(s=a;*s;++s){for(p=r,n=1;n&&*p;)n=strcmp(*s,*p++);n&&puts(*s);}}

イデオンで試してみてください。

PowerShell v4 +、107バイト

param($n)((($n+($x='Pinky','Inky','Blinky','Clyde')|group|?{$_.count-eq1}).Name),$x)['-'-in[char[]]-join$n]

PowerShellには三項演算子またはあらゆる種類のmapスタイル演算子が欠けているため、他と比較して少し不格好です。その結果、私たちは独自に構築します。

入力を受け取り、$n例えば、（文字列の明示的な配列として.\which-ghosts-are-missing.ps1 @('Clyde','Blinky')。プログラムの残りの部分は、いくつかのロジック経由に配列、我々のインデックスで構成されます1擬三元である[...]。ロジックがいるかどうかだけである-文字が入力配列のどこにある-join一緒編単一の文字列に変換してcharから、-in演算子を使用するために配列として再キャストします。したがって、Pac-Manが入力配列にある場合、$TRUE、擬似三項配列の2番目の要素が選択されます。選ばれる

Pac-Man配列にない場合は、疑似3進配列の最初の部分が出力されます。これは、$nすべてのゴーストの配列と連結された入力配列の組み合わせです（に保存されます$x）。そのような新しい配列をパイプしGroup-Objectて、同じようなアイテムをグループ化してから、使用を選択しますWhere-Object（|?{...}それら.countが-eq通常のアイテムのみを介してエイリアスされ1ます。それはすべて括弧でカプセル化され、.Nameプロパティを選択します。これがv4要件です。 v4では、のようなものを使用するのではなく、このようなハッシュテーブルラベルを参照でき|Select Nameます。

そうでなければ、Pac-Manは入力配列にあるため、すべてのゴーストを出力する必要があります。ありがたいことに、すでにこれらを$xに保存しているので、この場合の選択です。いずれにしても、パイプラインにはゴーストの文字列配列が含まれるようになり、出力は暗黙的になります。

例

PS C:\Tools\Scripts\golfing> .\which-ghosts-are-missing.ps1 @('Clyde')
Pinky
Inky
Blinky

PS C:\Tools\Scripts\golfing> .\which-ghosts-are-missing.ps1 @('Pac-Man','Clyde')
Pinky
Inky
Blinky
Clyde

PS C:\Tools\Scripts\golfing> .\which-ghosts-are-missing.ps1 @()
Pinky
Inky
Blinky
Clyde

PS C:\Tools\Scripts\golfing> .\which-ghosts-are-missing.ps1 @('Clyde','Blinky')
Pinky
Inky

Python 2、66 61 96バイト

g={"Blinky","Inky","Pinky","Clyde"};i=set(input());print",".join(g-i if not"Pac-Man"in i else g)

入力はリストでなければならず、出力はで区切られた名前の文字列です,。

Pac-Manを処理しない61バイトバージョン：

print",".join({"Blinky","Inky","Pinky","Clyde"}-set(input()))

Haskell、91バイト

import Data.List
p l=(if elem"Pac-Man"l then id else(\\l))["Blinky","Inky","Pinky","Clyde"]

入力は文字列のリストです。リストをそのまま使用するか、「パックマン」の存在に基づいてリストの違いを実行するかを決定します。

追加の楽しみとして、パックマンはありません：

import Data.List
(["Blinky","Inky","Pinky","Clyde"]\\)

すぐにこの答えを改善し、夜遅くまでそれをしました。

Python 3、77バイト

lambda i:[g for g in"Blinky Inky Pinky Clyde".split()if g not in i or"-"in i]

ここで私は遊んでいたがうまくいかなかった89バイトの別の答えがあります:(

lambda i:[g for g in[s+"nky"for s in"Bli I Pi".split()]+["Clyde"]if g not in i or"-"in i]

そして、85バイトのオリジナルは次のとおりです。

lambda i,n="Blinky Inky Pinky Clyde":([g for g in n.split()if g not in i],n)["-"in i]

これらはすべて、スペース/コンマで区切られた名前の単一の文字列を取ります。

05AB1E、47 44バイト

•1g!Z~÷kÅ]°%Ï0›K/•35B0¡™svy'-åi,q}}v¹ykÌiy)˜

説明

•1g!Z~÷kÅ]°%Ï0›K/•35B0¡™                      # push list of the 4 ghosts
                        svy'-åi,q}}           # if Pac-Man is in input, quit and output list of all 4 ghosts
                                  v¹ykÌiy)˜   # otherwise, generate the list of ghosts missing from input

オンラインで試す

Python 2、151バイト

セットと文字列を使用したPythonの回答が既にあるので、リストを操作するように制限することにしました。ただし、使用されるアプローチは一般的なものとは異なるため、次のとおりです。

o=['Blinky','Clyde','Inky','Pinky']
p=lambda x:[l for l in reduce(lambda z,x:z+[y+[x]for y in z],o,[[]])if sorted(l+x)==o][0]if'Pac-Man'not in x else o

ここで、予想される入力は文字列のリストです。

アプローチは、0、1、2、3、および4つの要素のすべての可能な組み合わせ（順序を考慮せずに）をブルートフォースすることです。これは

reduce(lambda z,x:z+[y+[x]for y in z],o,[[]])

返す

[[], ['Clyde'], ['Pinky'], ['Clyde', 'Pinky'], ['Inky'], ['Clyde', 'Inky'],
['Pinky', 'Inky'], ['Clyde', 'Pinky', 'Inky'], ['Blinky'], ['Clyde', 'Blinky'],
['Pinky', 'Blinky'], ['Clyde', 'Pinky', 'Blinky'], ['Inky', 'Blinky'],
['Clyde', 'Inky', 'Blinky'], ['Pinky', 'Inky', 'Blinky'], 
['Clyde', 'Pinky', 'Inky', 'Blinky']]

入力リストに加えて、ゴーストの完全なリストが得られるものを見つけます。

次に、文字列'Pac-Man'が入力の一部であるかどうかがチェックされ、その場合、ゴーストのリスト全体が返されます。そうでない場合は、入力の一部ではないものだけが返されます。

すべてのゴースト名（o）を含むリストはアルファベット順にソートされており、（sorted(l+x)）として作成されたリストについても同様です。これはPythonで、という事実によるものである['a','b']==['b','a']と評価されたFalseのに対し、['a','b']==['a','b']として評価されますTrue。

リストのリストとして回答を返すことが許可されている場合は、3バイトを保存できます（[0]最初のリスト内包表記の最後にあるを削除することにより）。しかし、私はそれが有効な出力かどうかわからないので、それらを数えています。

Object Pascal、204 200バイト

バイナリを使用して、どのゴーストとパックマンが存在するかを見つける2つのループ。コマンドラインから引数を取得します。さらにバイトを節約してくれた@manatworkに感謝します！

var a:array[1..4]of string=('Blinky','Inky','Pinky','Clyde');i,s:Byte;begin for i:=1to ParamCount do s:=1<<Pos(ParamStr(i)[4],'nykd-')or s;for i:=1to 4do if(1<<i and s=0)or(s>31)then WriteLn(a[i])end.

ゴルフをしていない：

var
  a: array[1..4] of string = ('Blinky', 'Inky', 'Pinky', 'Clyde');
  i, s: byte;
begin
  for i:=1 to ParamCount do
    s := 1 << pos(ParamStr(i)[4], 'nykd-') or s; // fill bits by shifting, check for unique 4th char of names, '-' in 'pac-man', could also use the 3rd char
  for i:=1 to 4 do
    if (1 << i and s=0) or (s>31) then    // check if bits are on
      writeln(a[i]);
end.

セットを使用した古いバージョン、 227 209バイト

セットを使用して、どのゴースト+パックマンが存在するかを見つける2つのループ。コマンドラインから引数を取得します。

var a:array[1..4]of string=('Blinky','Inky','Pinky','Clyde');i:byte;s:set of 1..5;begin for i:=1to ParamCount do s:=s+[pos(ParamStr(i)[4],'nykd-')];for i:=1to 4do if not(i in s)or(5in s)then writeln(a[i]);end.

ゴルフをしていない：

var
  a: array[1..4] of string = ('Blinky', 'Inky', 'Pinky', 'Clyde');
  i: byte;
  s: set of 1..5;
begin
  for i:=1 to ParamCount do
    s := s + [pos(ParamStr(i)[4], 'nykd-')]; // fill set with indxs
  for i:=1 to 4 do
    if not(i in s) or (5 in s) then    // check indx not in set or pac-man is
      writeln(a[i]);
end.

PHPプログラム、84バイト

<?print_r(array_diff([Blinky,Inky,Pinky,Clyde],in_array('Pac-Man',$argv)?[]:$argv));

• コマンドラインから引数を取り、結果を配列として出力します。
• ファイル名は幽霊や「パックマン」のいずれであってはなりません！
• 短い内訳：すべてのゴーストから（ 'Pac-Man'が引数にある場合：何もない場合、すべての引数）を削除します。結果を再帰的に印刷する

例：

>php -d error_reporting=0 ghosts.php Clyde
Array
(
    [0] => Blinky
    [1] => Inky
    [2] => Pinky
)
>php -d error_reporting=0 ghosts.php Clyde Blinky
Array
(
    [0] => Inky
    [1] => Pinky
)
>php -d error_reporting=0 ghosts.php Pac-Man Clyde
Array
(
    [0] => Blinky
    [1] => Inky
    [2] => Pinky
    [3] => Clyde
)

PHP関数、90バイト

function p($a){return array_diff([Blinky,Inky,Pinky,Clyde],in_array('Pac-Man',$a)?[]:$a);}

配列を受け取り、空の入力に空の配列を使用します。他の偽の値はありません！

さらなる考え

• 置き換えin_array(...)でstrstr(join($argv),'-')検出する-代わりに、Pac-Man（-2）
• つかいます ereg('-',join($argv))代わりに（別の-2）
• register_globalsオンの場合、プログラムはPHP <5.4でさらに6バイトを失う可能性があります
• プログラムにコンマ区切りリストを印刷させるには<?print_r(、<?=join(',',（+ 2）に置き換えます。;echo""改行の呼び出しに追加することができます

jq、69文字

("Blinky Inky Pinky Clyde"/" ")as $a|if inside($a)then$a-. else$a end

入力はJSON、出力はJSON、条件付き構文は苦痛です。

サンプル実行：

bash-4.3$ jq '("Blinky Inky Pinky Clyde"/" ")as $a|if inside($a)then$a-. else$a end' <<< '["Clyde"]'
[
  "Blinky",
  "Inky",
  "Pinky"
]

bash-4.3$ jq '("Blinky Inky Pinky Clyde"/" ")as $a|if inside($a)then$a-. else$a end' <<< '["Pac-Man","Clyde"]'
[
  "Blinky",
  "Inky",
  "Pinky",
  "Clyde"
]

オンラインテスト：

• [「クライド」]
• [「パックマン」、「クライド」]

TSQL（sqlserver 2016）、114バイト

ゴルフ：

DECLARE @ VARCHAR(99) = 'Blinky,Inky,Pinky,Clyde'

SELECT*FROM STRING_SPLIT('Blinky,Inky,Pinky,Clyde',',')EXCEPT SELECT*FROM STRING_SPLIT(@,','WHERE @ NOT LIKE'%-%'

ゴルフをしていない：

DECLARE @ VARCHAR(99) = 'Blinky,Inky,Pinky,Clyde'

SELECT * FROM STRING_SPLIT('Blinky,Inky,Pinky,Clyde',',')
EXCEPT
SELECT * FROM STRING_SPLIT(@,',')
WHERE @ NOT LIKE'%-%'

フィドル

Lotus Notes @Formula言語、85 84 75 74文字

@If割り当てを逆にして-1文字

-9 @Contains（i; "-"）を@Like（i; "％-％"）に変更し、@ Trimを削除しました（スペースを区切り文字として使用して表示する場合は不要）

-1改行を削除して

i（テキスト、編集可能、複数値）およびo（テキスト、計算済み、複数値）の2つのフィールドを持つフォームを作成します。oに次の式を入力します。

l:="Inky":"Pinky":"Blinky":"Clyde";@If(@Like(i;"%-%");l;@Replace(l;i;""))

Notesクライアントから、フォームを使用して新しい文書を作成し、iフィールドに名前を入力し、F9を押して文書を更新します。フィールドoに表示される回答。

これは、@ Likeと@Replaceの両方を文字列または文字列のリストで使用できるという事実を利用しています。

C＃135バイト 126バイト

string[] g{"Blinky","Inky","Pinky","Clyde"};Console.WriteLine(String.Join(",",i.Contains("Pac-Man")?g:g.Except(i).ToArray()));

（iは入力を含む文字列配列です）

他の例を見てみると、C＃はかなり冗長な言語であることがわかりました:)

Pyke、45 39 38 37 32バイト

.d𖭺𐎪膎㧫l4dc].^D`\-R{!*

ここで試してみてください！

.d𖭺𐎪膎㧫l4dc - dictionary_lookup('blinky inky pinky clyde').title().split()
].^ - xor(^, input)
D`\-R{!* - ^*("-" not in input)

バッチ、141バイト

@set g= Blinky Inky Pinky Clyde
@for %%a in (%*)do @if %%a==Pac-Man goto l
@for %%a in (%*)do call set g=%%g: %%a=%%
@l
@echo(%g:~1,-1%

（:~1,-1先頭および末尾の空白が許容される場合は、6バイトを減算します。）タイトルケースにはパックマンが必要ですが、ゴーストでは大文字と小文字が区別されません。

Japt、38バイト（非競合）

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

`B¦nky Inky Pky CÒè`¸kUø`Pac-M` ?N:U

オンラインで試す