最初に彼らが来た

29

「最初に来た...」は、マーティン・ニーモラーの詩です。

First they came for the Socialists, and I did not speak out-
Because I was not a Socialist.

Then they came for the Trade Unionists, and I did not speak out-
Because I was not a Trade Unionist.

Then they came for the Jews, and I did not speak out-
Because I was not a Jew.

Then they came for me-and there was no one left to speak for me.

あなたの仕事は上記を出力することです。これはコードゴルフですなので、バイト単位の最短コードが勝ちです！

ルール

  • 外観に影響しない余分な空白を含めることができます。単一の末尾の改行が許可されます。
  • それ以外の場合、出力は改行の位置を含めて正確に一致する必要があります。
  • メタ標準に従って、文字列のリストを出力できます。ただし、空の行を含める必要があります。

私は個人的に、詩がどのように配置されているかを考えると、これはだまされていないことを信じていることに注意してください。ゴルフには創造性が必要です。これがwhetherだかどうかについてのメタ議論はここで見つけることができます。

code-golf  kolmogorov-complexity 
— スティーブン
ソース
7
これがRickRollチャレンジ以上のサイトに何を追加するのかわかりません。
— AdmBorkBork
7
ここでリクロールのrollを叩くのは好きではありません。
— Programmer5000
3
— programmer5000
11
かつて、これがRickrollのだましだとは思わない。ここには意味のある構造があります。並列処理により、さまざまな戦略を実現できます。再開。
— -xnor
3
構造は、反対ではなく、リックロールのduであることを支持する議論です。
— ピーターテイラー

回答:

8

SOGL V0.12、103の 102 101 バイト

 →∑‘¾ο╤Ε9‘}ψ⁴‘¹"4¡‘Q°‘:¹¹I{ū_:¹"Eā/}l6⁸SÆ□⁴↔b⅜╬I℮;YΥηκ*█⅞F^Κ⅜⁸{x⅔⁵⅟╚?Z‘O}"Ι╚╬√⅔δηvΧχ⁷⁾Η<υL┼!Ο'μΠ⁵╝⁷‘⁾

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

説明（ここでは、..スペースを節約するために圧縮文字列を置き換えました）：

..‘.‘..‘                              push "socialist", "trade unionist" and "jew"
        ¹                             wrap in an array: ["socialist", "trade unionist", "jew"]
         "..‘..‘                      push "first" and "then"
                :                     duplicate the then
                 ¹                    wrap in an array: ["first","then","then"]
                  ¹                   wrap those two in an array: [["socialist", "trade unionist", "jew"], ["first","then","then"]]
                   I                  rotate clockwise: [[first,socialist], [then,trade unionist], [then,jew]]
                    {         }       for each do, pushing the array
                     ū                  uppercase the 1st letter of each word in the array - ["First", "Socialist"]
                      _                 splat the contents on the stack   "First", "Socialist"
                       :                duplicate the 2nd one             "First", "Socialist", "Socialist"
                        ¹               wrap in an array                  ["First", "Socialist", "Socialist"]
                         "..‘           push "ŗ they came for the ŗs, and I did not speak out-\nBecause I was not a ŗ." with ŗ replaced with its appropriate item in the array
                             O          output that
                               "..‘   push "then they came for me-and there was no one left to speak for me."
                                   ⁾  uppercase the 1st letter of it
                                      implicitly output it in a new line
— ザイマ
ソース
説明を追加してください。
— Nzall
@Nzallを忘れて、書く
— dzaima
@Nzall追加説明
— dzaima
7

6502マシンコード（C64）、229バイト

退屈のようなものは、まだとC64になんとかややバイトのまともな量:)

00 C0 A9 17 8D 18 D0 A2 2C 86 FE A6 FE A0 C0 BD B6 C0 20 1E AB C6 FE 10 F2 60
C6 49 52 53 54 20 00 D4 48 45 4E 20 00 54 48 45 20 00 54 48 45 59 20 43 41 4D
45 20 00 46 4F 52 20 00 53 50 45 41 4B 20 00 41 4E 44 20 C9 20 44 49 44 20 4E
4F 54 20 00 4F 55 54 2D 0D 00 C2 45 43 41 55 53 45 20 C9 20 57 41 53 20 4E 4F
54 20 41 20 00 4D 45 2D 41 4E 44 20 54 48 45 52 45 20 57 41 53 20 4E 4F 20 4F
4E 45 20 4C 45 46 54 20 54 4F 20 00 4D 45 2E 00 2E 0D 00 53 2C 20 00 D3 4F 43
49 41 4C 49 53 54 00 D4 52 41 44 45 20 D5 4E 49 4F 4E 49 53 54 00 CA 45 57 00
0D 00 8C 35 3A 6B 2A 1F B4 90 B0 56 50 3A 41 93 B0 25 35 2A 1F B4 90 A1 56 50
3A 41 93 A1 25 35 2A 1F B4 90 97 56 50 3A 41 93 97 25 35 2A 18

オンラインデモ

使用法： SYS49152

説明：

これには無意味な逆アセンブリのリストではなく、ほとんどのデータが含まれているため、ca65このマシンコードを作成するスタイルのアセンブリソースを次に示します。

.segment "LDADDR"
                .word   $c000           ; load address
.code
                lda     #$17            ; upper/lower mode
                sta     $d018           ; store in VIC register
                ldx     #revpoemsize    ; initialize ...
                stx     $fe             ; ... counter
loop:           ldx     $fe             ; load current position
                ldy     #$c0            ; highbyte of strings always same
                lda     revpoem,x       ; load lowbyte from table
                jsr     $ab1e           ; output 0-terminated string
                dec     $fe             ; decrement position
                bpl     loop            ; >=0 ? -> repeat
                rts                     ; done

first:          .byte   "First ", 0
then:           .byte   "Then ", 0
the:            .byte   "the ", 0
came:           .byte   "they came ", 0
for:            .byte   "for ", 0
speak:          .byte   "speak ", 0
didnot:         .byte   "and I did not ", 0
out:            .byte   "out-", $d, 0
wasnot:         .byte   "Because I was not a ", 0
noone:          .byte   "me-and there was no one left to ", 0
me:             .byte   "me.", 0
period:         .byte   ".", $d, 0
comma:          .byte   "s, ", 0
socialist:      .byte   "Socialist", 0
unionist:       .byte   "Trade Unionist", 0
jew:            .byte   "Jew", 0
p:              .byte   $d, 0

revpoem:        .byte   <me, <for, <speak, <noone, <came, <then, <p
                .byte   <period, <jew, <wasnot, <out, <speak, <didnot
                .byte   <comma, <jew, <the, <for, <came, <then, <p, <period
                .byte   <unionist, <wasnot, <out, <speak, <didnot, <comma
                .byte   <unionist, <the, <for, <came, <then, <p, <period
                .byte   <socialist, <wasnot, <out, <speak, <didnot, <comma
                .byte   <socialist, <the, <for, <came, <first
revpoemsize     = * - revpoem - 1
— フェリックス・パルメン
ソース
6

Python 3、209バイト

t='they came for '
s='First '
for i in'Socialist','Trade Unionist','Jew':s+=t+f'the {i}s, and I did not speak out-\nBecause I was not a {i}.\n\nThen '
print(s+t+'me-and there was no one left to speak for me.')

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

-5 フェリペ・ナルディ・バティスタに感謝します。

— エリック・ザ・アウトゴルファー
ソース
@Heiteira申し訳ありませんが、出力から「取引」の部分を除外することはできません。
— エリックアウトゴルファー
4

Perl 5、185バイト

print join" they came for ",First,(map"the ${_}s, and I did not speak out-
Because I was not a $_.

Then",Socialist,"Trade Unionist",Jew),"me-and there was no one left to speak for me."

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

-3バイトの@ Massaに感謝します！

— ドムヘイスティングス
ソース
使用が参加し、あなたが他の5つの椅子かそこらをトリミングすることができます
— マッサ
@マッサはどうやって見ているのかわかりません！他に手がかりはありますか？
— ドムヘイスティングス
私は今モバイルにいますが、以下のperl6の答えを見てください！
— マッサ
@マッサああ、いいね！ありがとう！最後に-3 :)
— ドムヘイスティングス
3

C、248バイト

9バイトを節約してくれた@Zacharýに感謝します。

p(x,y){printf("%s they came for the %ss, and I did not speak out-\nBecause I was not a %s.\n\n",x,y,y);}f(){p("First","Socialist");p("Then","Trade Unionist");p("Then","Jew");puts("Then they came for me-and there was no one left to speak for me.");}

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

— ステディボックス
ソース
ステートメントにs直接移動できますprintfか？
— ザカリー
@Zacharýはい、もちろんです。
— Steadybox
3

C＃（.NET Core）、248 246 242バイト

a=>{string b=@", and I did not speak out-
Because I was not a ",c=" they came for ",d="Socialist",e="Trade Unionist";return$@"First{c+d}s{b+d}.

Then{c+e}s{b+e}.

Then{c}the Jews{b}Jew.

Then{c}me-and there was no one left to speak for me.";}

実際の改行は私に数バイトを節約しました。

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

Business Catのおかげで2バイト節約

— LiefdeWen
ソース
3

Befunge-93、348バイト

".em rof kaeps ot tfel eno on saw ereht dna-em rof emac yeht nehT"52*:v
v"d not speak out-"*25"Because I was not a "<   p5-2*89p1-2*89"vvJew."<
> "id I dna ">",sweJ>v"67+2p66+5p     v     ^p2-2*89"vTrade Unionist."<
>"tsriF">:#,v>",stsinoinU edarTv"67+3pv     ^   p3+66p40"^_Socialist."<
>"nehT"52*: v>",stsilaicoS@"67+3p     >" eht rof emac yeht "

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

— ItsJ0el
ソース
3

Befunge、293 274 270バイト

62574732594932584832001v_@#:\0\!<
0-*84g+3/"P"\%"P"::+p00<_|#:-1g0
84!-"*":g+3/"P"\%"P"::+1\<+1_$#:^#-2\,-**
&First0 they came for %the Qs, and I did not speak out-*Because I was not a (.**
ThenOme-and there was no one left to speak for me.*$Jew*Socialist/Trade Unionist

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

これは、既存のBefungeソリューションに対する異なるアプローチです。一種のリンクリストを使用して、一般的なフレーズの辞書を保存し、フレーズを出力する順序を表す単純な値のリストをスタック上に保持します。

— ジェームズ・ホルダーネス
ソース
2

網膜、176バイト


 Socialists, Trade Unionists, Jews,1me-and there was no one left to2for me.
( .+?)s,
1the$& and I did not2out-¶Because I was not a$1.¶¶Then
^
First
1
 they came for 
2
 speak

オンラインでお試しください！説明：1と2は、重複を排除するのに十分な長さの繰り返し文字列です。Firstそれが簡単に繰り返し部分のプレースホルダを選択するために作るために後から追加された、「彼らは、[グループ]のために来て、私はアウトなので話せませんでした私は、[グループ]ではなかった。次に、」によって展開されています第二段階。

— ニール
ソース
2

JavaScriptの（ES6）、231の 227 223 221バイト

_=>`First${t=" they came for "}the Socialist${a=`s, and I did not speak out-
Because I was not a `}Socialist${t=`.

Then`+t}the ${(u="Trade Unionist")+a+u+t}the Jew${a}Jew${t}me-and there was no one left to speak for me.`

それを試してみてください

o.innerText=(
_=>`First${t=" they came for "}the Socialist${a=`s, and I did not speak out-
Because I was not a `}Socialist${t=`.

Then`+t}the ${(u="Trade Unionist")+a+u+t}the Jew${a}Jew${t}me-and there was no one left to speak for me.`
)()
<pre id=o>
スニペットを展開

— シャギー
ソース
2

JavaScript（ES6）、210 207 206 203バイト

私の他のソリューションへの別のアプローチは、チャレンジが再開されたので、それを独自の答えに編集する価値があると考えました。

_=>`First${["Socialist","Trade Unionist","Jew"].map(x=>t+`the ${x}s, and I did not speak out-
Because I was not a ${x}.

Then`,t=` they came for `).join``+t}me-and there was no one left to speak for me.`

それを試してみてください

o.innerText=(
_=>`First${["Socialist","Trade Unionist","Jew"].map(x=>t+`the ${x}s, and I did not speak out-
Because I was not a ${x}.

Then`,t=` they came for `).join``+t}me-and there was no one left to speak for me.`
)()
<pre id=o>
スニペットを展開

— シャギー
ソース
2

ガイア、179 175バイト

⇓“the ”3ṁ“s, and I did not speak out-¶Because I was not a ”2ṃ“.¶¶Then
“ they came for 
First”“Socialist“Trade Unionist“Jew”↓¦⇑“me-and there was no one left to speak for me.”]$

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

説明

ここでは3つの関数が定義されています（1行に1つ）。一番下が最初に呼び出されます。改行に置き換えられます。

⇓“the ”3ṁ“...”2ṃ“.¶¶Then  First helper function. Argument: s
⇓                         Push "Then they came for "
 “the ”                   Push "the "
       3ṁ                 Bring s to the top
         “...”            Push "s, and I did not speak out-¶Because I was not a "
              2ṃ          Push a copy of s
                “.¶¶Then  Push ".¶¶Then"


“ they came for   Helper function. No arguments.
“ they came for   Push " they came for "


First”“..“..“..”↓¦⇑“...”]$  Main function.
First”                      Push "First"
      “..“..“..”            Push the list ["Socialist" "Trade Unionist" "Jew"]
                ↓¦          Call the first helper function on each.
                  ⇑         Push "Then they came for "
                   “...”    Push "me-and there was no one left to speak for me."
                        ]$  Wrap the stack in a list and join with no separator.
— ビジネス猫
ソース
2

バブルガム、149の 132 129バイト

00000000: 9d4d b515 0241 14cc af8a c991 1e70 0991  .M...A.......p..
00000010: 02fe bbfd e7b7 cb1a 523d ee0e d9f8 7453  ........R=....tS
00000020: 631d 5cc2 2b84 5432 2265 760c 6315 a654  c.\.+.T2"ev.c..T
00000030: a4d6 d92a 480a 0c20 5201 a91c ec8c 2987  ...*H.. R.....).
00000040: f2ae 1634 3924 6f79 6b2e c8ee 4dba 14eb  ...49$oyk...M...
00000050: 4130 4958 3ed9 9e18 128c a94c 95fc e3e0  A0IX>......L....
00000060: b6fd fa65 c88b 1fa7 7795 e77b 25d7 488a  ...e....w..{%.H.
00000070: 9d68 f898 8792 8c82 2307 a78e bb87 647d  .h......#.....d}
00000080: 03                                       .

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

退屈なバブルガムの答え。すでにSOGLにbeatられているので、それは良いことです。

-17バイトのクレジットは Dom Hastingsに

ovsで -3バイト

— ヌネス
ソース
132バイト。それでもSOGLに勝つことはできません！
— ドムヘイスティングス
私はあなたがバブルでSOGLを打つだろうとは思わない@DomHastings ...
— エリックOutgolfer
@EriktheOutgolfer私もその事実をとても嬉しく思います！信じられないほど表現力豊かな、遊びに時間をかけたいです！
— ドムヘイスティングス
— ovs
2

SQL 269バイト

declare @ char(18)='They came for the ',@a char(49)='s, and I did not speak out-
Because I was not a '
print'First '+@+'Socialist'+@a+'Socialist.

'+@+'Trade Unionist'+@a+'Trade Unionist.

'+@+'Jew'+@a+'Jew.

'+@+' me-and there was no one left to speak for me.'
— マイケル・ザルツマン
ソース
1
こんにちは、PPCGへようこそ！投稿を編集して書式を追加しました。実際のコードについては、私は主要な言葉が考える"Then "最後の三つの文章に欠けている、と最後の文は、今述べ"They came for the me-..."代わりに"Then they came for me-..."。
— ケビンクルーイッセン
1

Python 2、246バイト

初めて文字列を圧縮して返してみました。明らかに、他のアプローチよりも多くのバイトが必要です。ゴルフに何か残っていますか？

import zlib,base64
print zlib.decompress(base64.b64decode('eJyd0DEOwjAMBdA9p/gHoD0EAxJdgQNYiatGtDaKU1XcvikUdSkDjLb/f4NPMVlG7vgJTwOj1bRMuKiP1EfLdgBJwBkhBohm2IPpDh1z5Y7saTQux4nsdaStWDt37Vh27JtElT/oT++73PD0K1oq+97A1QKVZeI1DxVGz215mK7uO1nPf1Zu5g=='))

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

— サイモン
ソース
1

Python 3、208バイト

print(' they came for '.join(["First"]+[f"the {i}s, and I did not speak out-\nBecause I was not a {i}.\n\nThen"for i in['Socialist','Trade Unionist','Jew']]+['me-and there was no one left to speak for me.']))

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

-1 @Step Henに感謝

— マッサ
ソース
1
Then "for-> Then"forそして、あなたは他のPythonの答えを破っています:)
— スティーブン
@StepHen余分なスペースに気付いてくれてありがとう！:-)
— マッサ
1

Clojure、285バイト

(fn[](doseq[i(range 4):let[c["Socialist""Trade Unionist""Jew"""]f #(if(< i 3)% %2)]](println(if(= i 0)"First""Then")"they came for"(str(f(str"the "(c i)"s, ")"me-")(f"and I did not speak out-\n""and there was no one left to speak for me.")(f(str"Because I was not a "(c i)".\n")"")))))

これは楽しい小さな挑戦でした。私は、私が過度に回り道をしていることに気付いたので、そのほとんどを数回書き直しました。おそらく修正できる領域がいくつかありますが、元のファイルを54バイトだけ「圧縮」している場合でも、その結果に満足しています。

repl.io

説明については、ゴルフ前のコードを参照してください。

(defn ftc []
  ; Loop over the lines numbers for reference
  (doseq [i (range 4)
          :let [; Added a dummy last "class" since "me-" wasn't necessary,
                ;  and only having 3 elements was causing OOB errors.
                classes ["Socialist" "Trade Unionist" "Jew" ""]

                ; A helper function that executes either its first or second argument
                ;  depending on if the current line is one of the first 3 lines.
                if-first-three-lines #(if (< i 3) % %2)]]

    ; An implicit space is inserted between each of the args to println
    (println
      ; Decide on the opener
      (if (= i 0) "First" "Then")

      "they came for"

      ; Start string concatenation because the implicit space
      ;  begins complicating things.
      (str
        ; Decide which "class" the line belongs to
        (if-first-three-lines
          (str "the " (classes i) "s, ")
          "me-")

        ; Decide on the line ending
        (if-first-three-lines
          "and I did not speak out-\n"
          "and there was no one left to speak for me.")

        ; Then pick the trailer
        (if-first-three-lines
          (str "Because I was not a " (classes i) ".\n")
          "")))))
— 発がん性
ソース
1

JAPT、153の 150 149 147バイト

`{=` ey ¯´ f `}´-d tre °s no e ¤ft  speak f ´.`i`Sáû\E
TÎè UÍát
Jew`·rÈ+U+`e {Y}s, d I ¹d not speak t-
Be¯«e I °s not a {Y}.

Tn`}`Fir¡

試して

Oliverのおかげで1バイト節約

— シャギー
ソース
1

05AB1E、124 119 バイト

.•RYÁ Wö∍®Ø’áÅÚ)’Òü•'x¡™vy„€Û‚½#NĀ虓ÿ€»‹é€‡€€ ÿs,€ƒ Iƒ§€–¡´€Ä-“©¶y“ƒ« I€¥€–€… ÿ.“.ª¶¶}®19£“€á-and€Ç€¥€¸€µ…¸€„¡´€‡€á.“J

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

説明：

.•RYÁ Wö∍®Ø’áÅÚ)’Òü•
                  # Push compressed string "socialistxtrade unionistxjew"
 'x¡             '# Split it on "x": ["socialist","trade unionist","jew"]
    ™             # Convert each word to Titlecase: ["Socialist","Trade Unionist","Jew"]
v                 # Loop `y` over each of these strings:
 y                #  Push string `y`
 „€Û‚½            #  Push dictionary string "first then"
      #           #  Split on spaces: ["first","then"]
       N          #  Push the index of the loop
        Ā         #  Truthify it (0 remains 0; every other number becomes 1)
         è        #  Use it to index into the list
          ™       #  Titlecase it
 “ÿ€»‹é€‡€€ ÿs,€ƒ Iƒ§€–¡´€Ä-“
                  #  Push dictionary string "ÿ they came for the ÿs, and I did not speak out-"
                  #  where the "ÿ" are automatically filled with the strings at the top of the stack
  ©               #  Save it in the register (without popping)
                 #  Push a newline "\n"
 y                #  Push string `y` again
 “ƒ« I€¥€–€… ÿ.“  #  Push dictionary string "because I was not a ÿ."
                  #  where the "ÿ" is automatically filled again with the string
  .ª              #  Sentence case it: "because" becomes "Because"
 ¶¶               #  Push two newline characters "\n\n"
}                 # After the loop:
®                 # Push the string from the register:
                  #  "Then they came for the Jews, and I did not speak out-"
 19£              # Only leave the first 19 characters: "Then they came for "
“€á-and€Ç€¥€¸€µ…¸€„¡´€‡€á.“
                  # Push dictionary string "me-and there was no one left to speak for me."
J                 # Then join everything on the stack together (and output implicitly)

この05AB1Eのヒント（「辞書の使用方法」および「辞書の一部ではない文字列の圧縮方法」のセクション）を参照して、理由を理解してください。

  • .•RYÁ Wö∍®Ø’áÅÚ)’Òü• は "socialistxtrade unionistxjew"
  • „€Û‚½ は "first then"
  • “ÿ€»‹é€‡€€ ÿs,€ƒ Iƒ§€–¡´€Ä-“ は "ÿ they came for the ÿs, and I did not speak out-"
  • “ƒ« I€¥€–€… ÿ.“ は "because I was not a ÿ."
  • “€á-and€Ç€¥€¸€µ…¸€„¡´€‡€á.“ は "me-and there was no one left to speak for me."
— ケビン・クルーッセン
ソース
-4

テキスト、348バイト

First they came for the Socialists, and I did not speak out-
Because I was not a Socialist.

Then they came for the Trade Unionists, and I did not speak out-
Because I was not a Trade Unionist.

Then they came for the Jews, and I did not speak out-
Because I was not a Jew.

Then they came for me-and there was no one left to speak for me.

これはその言語で可能な限り最短のバージョンであり、執筆時点のBefunge-93の回答と同等です。

— IFcoltransG
ソース
2
ほとんどすべての「テキスト」回答と同様に、これは退屈で怠け者です
— ジョー・キング
@Jo King注目すべき点は、Befunge-93の回答と同じ長さだということです。
— IFcoltransG
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.