黙示録の21の髪型

16

黙示録の21の髪型

1から21（または0から20）の間の数字のリストが与えられた場合、次の面の「つなぎ合わされた」描画を出力します（情報のつなぎのルールを参照）。

     ___           ,,,           ooo           ===           +++           ###          -*~*-     
    (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)     
ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-

     ***           |||           _/7           )))           (((           xxx           @__      
    (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)     
ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-

     ((_           >X<           '*`           ^^^           )|(           \|/           &&&      
    (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)     
ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-

改行でリストされたそれぞれの一意の顔（＃は顔の整数ID）：

     ___      
    (o o)     
ooO--(_)--Ooo #1

     ,,,      
    (o o)     
ooO--(_)--Ooo #2

     ooo      
    (o o)     
ooO--(_)--Ooo #3

     ===      
    (o o)     
ooO--(_)--Ooo #4

     +++      
    (o o)     
ooO--(_)--Ooo #5

     ###      
    (o o)     
ooO--(_)--Ooo #6

    -*~*-     
    (o o)     
ooO--(_)--Ooo #7

     ***      
    (o o)     
ooO--(_)--Ooo #8

     |||      
    (o o)     
ooO--(_)--Ooo #9

     _/7      
    (o o)     
ooO--(_)--Ooo #10

     )))      
    (o o)     
ooO--(_)--Ooo #11

     (((      
    (o o)     
ooO--(_)--Ooo #12

     xxx      
    (o o)     
ooO--(_)--Ooo #13

     @__      
    (o o)     
ooO--(_)--Ooo #14

     ((_      
    (o o)     
ooO--(_)--Ooo #15

     >X<      
    (o o)     
ooO--(_)--Ooo #16

     '*`      
    (o o)     
ooO--(_)--Ooo #17

     ^^^      
    (o o)     
ooO--(_)--Ooo #18

     )|(      
    (o o)     
ooO--(_)--Ooo #19

     \|/      
    (o o)     
ooO--(_)--Ooo #20

     &&&      
    (o o)     
ooO--(_)--Ooo #21

顔は次のとおりです。

    hhhhh     
    (o o)     
ooO--(_)--OooS

h動的終末論的なヘアスタイルはどこにあり、S潜在的なステッチハイフンはどこにありますか。

例

入力： [1,2,3,4,5]

出力：

     ___           ,,,           ooo           ===           +++      
    (o o)         (o o)         (o o)         (o o)         (o o)     
ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-

入力： [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21]

出力：

     ___           ,,,           ooo           ===           +++           ###          -*~*-          ***           |||           _/7           )))           (((           xxx           @__           ((_           >X<           '*`           ^^^           )|(           \|/           &&&      
    (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)         (o o)     
ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-

入力： ["Fraggle Rock"] / [22]/ [-21041024]/[22,23,24,25,26]

出力： Nobody cares.

入力： [1,1,1,1]

出力：

     ___           ___           ___           ___      
    (o o)         (o o)         (o o)         (o o)     
ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-ooO--(_)--Ooo-

ルール

  • 前後の改行/スペース/ハイフンは問題ありません。
  • 顔は、入力内で複数回出現する可能性があります。
  • 入力に無効な数値がある場合、未定義の動作が発生する可能性があります。
  • ステッチ：
    • ステッチされた面は、一番下（3番目）の行に1つのハイフンで連結されます。
    • （最初の描画とは異なり）面はすべて1行になります。
  • 入力には0または1のインデックスを付けることができ、20が0の最大値、21が1のインデックスです。
  • これはcode-golfであり、バイト数が最も少なくなります。
code-golf  ascii-art 
— 魔法のタコUr
ソース
1
— NinjaBearMonkey
7
7番は「顔は次のとおりです」という部分に違反しているようです
— -boboquack
10
すべてのテストケースには、末尾の「ステッチング」ハイフンが含まれていますが、これは仕様と矛盾しているようです。
— シャギー
3
キルロイはここにいた。
— msh210
2
@MagicOctupusUrn、上で挙げた末尾のハイフンの問題に対処してください。
— シャギー

回答:

9

JAPT -R、122 117 113 110 109 107 105 104 103 102 100 99バイト

1インデックス、インデックスラップ付き。ここでは、各面の最後の行の後にハイフンを含むテストケースではなく、各面の最後の行の間にハイフンを必要とする仕様に従っています。

[Umg"@__((_>X<'*`^^^)|(\\|/"i"&_,o=+#*|)(x"m³ ò3 i7"-*~"ê)iA"_/7")¡"(o o)"á"O--(_)--O"ûoDÃq-]ûD m¸

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

[                                             :Construct an array of 3 elements
Umg"@.../"i"&...x"m³ ò3 i7"-*~"ê)iA"_/7")     :FIRST ELEMENT (F)
U                                             :  Input array
 m                                            :  Map
  g                                           :    Index into
   "@.../"                                    :      Literal string
          i                                   :      Prepend
           "&...x"                            :        Literal string
                  m                           :        Map
                   ³                          :          Repeat 3 times
                     ò3                       :      Split into chucks of 3
                        i7                    :      Insert at 0-based index 7
                          "-*~"ê              :        "-*~" palindromised
                                )             :      End insert
                                 iA"_/7"      :      Insert "_/7" at index 10
                                        )     :  End map
¡"(o o)"Ã                                     :SECOND ELEMENT (S)
¡                                             :  Map input array
 "(o o)"                                      :    Literal string
        Ã                                     :  End map
¡"O...O"ûoDÃq-                                :THIRD ELEMENT (T)
¡                                             :  Map input array
 "O...O"                                      :    Literal string
        ûo                                    :    Centre pad with "o"
          D                                   :      To length 13
           Ã                                  :  End map
            q-                                :  Join with "-"
]                                             :End array
 ûD                                           :Centre pad each string in F & S to length 13 with spaces, does nothing to T as it will always be at least 13 characters long
    m                                         :Map
     ¸                                        :  Join F & S with spaces. Split T on spaces, creating a singleton array which gets cast back to a string on output
                                              :Implicit output, joined with newlines
— シャギー
ソース
1
100に到達するのは素晴らしい仕事です。私たちが望んでいたchar-mirrorメソッドは、ここで本当に役立つでしょう。
— オリバー
また、そのラッピング&を利用することm³は天才でした。特にそれが1ベースになったので。
— オリバー
それは逆の方法でした。1ベース&にすればそこに移動できることに気付きました;）それでもここにはゴルフがもっとあると感じていますが、遅いので明日まで待つ必要があります。
— シャギー
6

Python 2、209バイト

def f(a):s=t=u='\n';i=0;exec"s+=(\"_,o=+#-*|_)(x@(>'^)\\&_,o=+#**|/)(x_(X*^||&_,o=+#~*|7)(x__<`^(/&\"[a[i]::21]+'*-'*(a[i]==6)).center(14);t+='    (o o)     ';u+='ooO--(_)--Ooo-';i+=1;"*len(a);print s+t+u[:-1]

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

0ベースのインデックス付け。ここでは特に賢いことは何もありません。スライシングとループの代わりにexecを使用してアクセスされるデータだけです。

— チャス・ブラウン
ソース
— リン・
6

炭、103 102バイト

Ｅ²⪫Ｅθ⎇ι(o o)⪫ײ§ -⁼λ⁶§⪪”|″:αuxkτT↷K[ï�↔ς↨?◧BZ@C←↑⊞Ａ⧴M✂↶ºKf÷H#S⦃J&≔⁰∧5À³≕r‹▷”³λ× ⁹Ｍ⁴←⪫ＥθooO--(_)--Ooo¦-

オンラインでお試しください！リンクは、コードの詳細バージョンです。説明：

Ｅ²⪫Ｅθ

入力を2回ループします。各結果は、それ自体の行に暗黙的に印刷されます。

⎇ι(o o)

2番目のループでは、目を生成します。

⪫ײ§ -⁼λ⁶

ヘアスタイル6を-sに、他のヘアスタイルをスペースにラップします。

§⪪”|″:αuxkτT↷K[ï�↔ς↨?◧BZ@C←↑⊞Ａ⧴M✂↶ºKf÷H#S⦃J&≔⁰∧5À³≕r‹▷”³λ

圧縮された文字列から3つの髪型文字を抽出します。

× ⁹

各髪または目の間に9つのスペースを挿入します。

Ｍ⁴←

左に4スペース移動します。

⪫ＥθooO--(_)--Ooo¦-

で結合された残りの面を印刷し-ます。

— ニール
ソース
6

R、413 391バイト

22バイト少ないGiuseppeに感謝し、これを400バイト未満にしています。 

function(s,n=length(s)){I=intToUtf8
U=utf8ToInt
R=rep
K=cat
a=U("_,o=+#^*|&)(x")
b=c("@__","((_",">X<","'*`","",")|(","\\|/","","-*~*-","_/7")
s[s==7]=22;s[s==10]=23;s[s==18]=7;s[s==21]=10
for(i in s)K(I(c(rep(32,4+(i!=22)),"if"(i<14,R(a[i],3),U(b[i-13])),R(32,5+(i!=22)))))
K("
",I(R(c(R(32,3),40,111,32,111,41,R(32,6)),n)),"
")
K(I(40+R(c(x<-c(71,71,39,5,5),0,55,1,rev(x),5),n)[-(14*n)]))}

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

— JayCe
ソース
あなたは別名おそらくべきutf8ToIntとintToUtf8
— ジュゼッペ
— ジュゼッペ
@ジュゼッペ良い点！私はインデックスの交換が恥ずかしくて、とても高価です。私はそれに取り組みます。
— JayCe
@JayCe rep短くするためにもう1つ見逃しました：for(i in s)K(I(c(rep<--
— キリルL.
ありがとう@KirillL。！最終的にこのコードを確認する時間があるときに、これを含めるようにします。
— JayCe
5

JavaScript（ES6）、200 199バイト

1インデックス付きの入力が必要です。

a=>[1,0,2].map(y=>a.map(n=>s=y&2?'ooO--(_)--Ooo':`    ${p='( -'[y*n-7?y:2]}${"o o___,,,ooo===+++###*~****|||_/7)))(((xxx@__((_>X<'*`^^^)|(\\|/&&&".substr(y*n*3,3)}${y?p:')'}    `).join(s[3])).join`
`

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

コメント済み

a =>                              // given the input array a[]
  [1, 0, 2].map(y =>              // for each row y:
    a.map(n =>                    //   for each integer n in a[]:
      s =                         //     let s be the content of this row
        y & 2 ?                   //     if this is the 3rd row:
          'ooO--(_)--Ooo'         //       use a hardcoded string
        :                         //     else:
          `    ${                 //       append 4 spaces
            p = '( -'[            //       append and save in p:
              y * n - 7 ? y : 2   //         '(' if y = 0 (2nd row)
            ]                     //         ' ' if y = 1 and n != 7
          }${                     //         '-' if y = 1 and n = 7
            "o o___,,,ooo(...)"   //       append the middle pattern (NB: truncated string)
            .substr(y * n * 3, 3) //       which is always the eyes if y = 0
          }${                     //
            y ? p : ')'           //       append p for the 1st row or ')' for the 2nd row
          }    `                  //       append 4 spaces
    ).join(s[3])                  //   join with the 4th character of s (space or hyphen)
  ).join`\n`                      // join with line-feeds
— アーノールド
ソース
4

ルビー、164バイト

->a{puts a.map{|i|j="_,o=+# *| )(x    ^  &"[i];(j<?!?%w{@__ ((_ >X< '*` -*~*- )|( \|/ _/7}[i%11-2]:j*3).center(14)}*"","    (o o)     "*k=a.size,"ooO--(_)--Ooo-"*k}

ゼロインデックス。オンラインでお試しください！

難しいことはすべてトップラインで起こります。

"_,o=+# *| )(x ^ &"には3つの同一の文字を持つすべてのヘアスタイルが含まれており、そこからith文字を選択しますj。

jがスペースでない場合、次の式は文字の3つのコピーを返します。スペースの場合、の間から正しいヘアスタイルを選択します%w{}。「奇数」の髪型は、番号6,9,13,14,15,16,18,19あるとi%11-2の完璧なハッシュを与えます0..7

j<?!?%w{@__ ((_ >X< '*` -*~*- )|( \|/ _/7}[i%11-2]:j*3

残っているのは、14のスペース（中央）にパディングし、適切な数の中間/下部を印刷することです。

— レベルリバーストリート
ソース
括弧をドロップできますcenter(14)
— キリルL.
2

Java 8、273 263バイト

a->{String r[]={"","",""},s="    ",t="ooO--(_)--Ooo",u="(o o)";for(int i:a){r[0]+=s+(i==7?"-":" ")+"___,,,ooo===+++###*~****|||_/7)))(((xxx@__((_>X<'*`^^^)|(\\|/&&&".split("(?<=\\G...)")[i]+(i==7?"-":" ")+s+" ";r[1]+=s+u+s+" ";r[2]+=t+"-";}return t.join("\n",r);}

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

説明：

a->{                       // Method with integer-array parameter and String return-type
  String r[]={"","",""},   //  Result-String, starting at three empty rows
         s="    ",         //  Temp-String of four spaces for the first and second rows
         t="ooO--(_)--Ooo",//  Temp-String for the third row
         u="(o o)";        //  Temp-String for the second row
  for(int i:a){            //  Loop over the input-array
    r[0]+=                 //   Append to the first row:
          s                //    Four spaces
          +(i==7?          //    If the number is 7 (edge-case):
             "-"           //     Append "-"
            :              //    Else:
             " ")          //     Append a single space
          +"___,,,ooo===+++###*~****|||_/7)))(((xxx@__((_>X<'*`^^^)|(\\|/&&&".split("(?<=\\G...)")[i]
                           //    Append the correct hat based on `i`
          +(i==7?"-":" ")  //    If the number is 7, append "-" again, else a space
          +s+" ";          //    And append five spaces
    r[1]+=                 //   Append to the second row:
          s                //    Four spaces
          +u               //    The head
          +s+" ";          //    Five spaces
    r[2]+=                 //   Append to the third row:
          t                //    The hands and bodies
          +"-";}           //    And the stitch "-"
  return t.join("\n",r);}  //  Return the three rows as single newline delimited String
— ケビン・クルーッセン
ソース
2

R、247 242バイト

function(a,n=length(a)){for(i in a)cat(format(h[i],,,,"c",14+!20-i))
cat("
","   (o o)     "*n,"
")
cat("ooO--(_)--Ooo"*n,sep="-")}
"*"=rep
h=readLines(,21)
___
,,,
ooo
===
+++
###
-*~*-
***
|||
_/7
)))
(((
xxx
@__
((_
>X<
'*`
^^^
)|(
\|/
&&&

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

ここで、Rをより管理しやすいバイトカウントにしようとしています...

Rで文字操作を行うのは非常に冗長なので、すべての顔と髪型のパターンを完全にリストすることに決めました。ヘアスタイルをきれいに印刷するには、でformatfunction を使用しjustify="centre"ます。残念ながら、のようにバックスラッシュがエスケープされているようにパディングを計算するi==20ため、追加のパディング文字を使用する必要があります。format\\|/

現在のバージョンでは、末尾のハイフンは使用されていません。

編集：-2バイトの場合はJayCe、-3バイトの場合はGiuseppeのクレジット。

— キリル・L
ソース
あなたの直接的なアプローチが大好きです！justify="centre"おそらく再利用できるとは知りませんでした。マイナス2文字："/"=rep
— JayCe
さらに2バイトダウン：format(h[i],,,,"c",14+!20-i)
— ジュゼッペ
@ジュゼッペは実際には-3なので、さらに良いです。@JayCeは非常に素晴らしいです。実際、乗算も使用していません。そのため、オーバーライド*はさらに見栄えがよくなりましたstring * number。他の多くの言語に共通の操作に似ています。
— キリルL.
2

C！（C-Wow 1.1.0）、251バイト

（スペースで区切られたプログラム実行時に引数を渡す必要があります）

SS("     (o o)     \nooO--(_)--Ooo-",'\n') SS("___A,,,AoooA===A+++A###A-*~*-A***A|||A_/7A)))A(((AxxxA@__A((_A>X<A'*`A^^^A)|(A\\|/A&&&",'A') F(MR("0",A(0),"23"),W("?");E) I(AC,W("     ");RI(TN(A(i))+2);W("     ")); WL I(AC,W(RI(0))); WL I(AC,W(RI(1)));

ゴルフされていないバージョン：

STRSPLIT("     (o o)     \nooO--(_)--Ooo-", '\n')
STRSPLIT("___A,,,AoooA===A+++A###A-*~*-A***A|||A_/7A)))A(((AxxxA@__A((_A>X<A'*`A^^^A)|(A\\|/A&&&", 'A')
IF(MATHRANGE("0", ARGS(0), "23"), PRINT("?"); E)
LOOP(ARGC, PRINT("     "); READI(TONUM(ARGS(i)) + 2); PRINT("     "));
PRINTL
LOOP(ARGC, PRINT(READI(0)));
PRINTL
LOOP(ARGC, PRINT(READI(1)));
— 0x22fe
ソース
1

赤、333の 319バイト

func[x][h: copy[]i: 0
foreach[k l m]{___,,,ooo===+++###   ***|||_/7)))(((xxx@__((_>X<'*`^^^^^^)|(\|/&&&}[alter h
pad pad/left either 7 = i: i + 1["-*~*-"][rejoin[" "k l m" "]]9
14]foreach y x[prin h/(y)]print append/dup copy"^/"{    (o o)     }l: length? x
print take/part append/dup copy""{ooO--(_)--Ooo-}l 14 * l - 1]

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

— ガレン・イワノフ
ソース
1

ルビー、163バイト

->a{puts a.map{|i|(i==6?"-*~*-":i<9?"_,o=+#~*|"[i]*3:"_/7)))(((xxx@__((_>X<'*`^^^)|(\\|/&&&"[3*i-27,3]).center 14}*"","    (o o)     "*k=a.size,"ooO--(_)--Ooo-"*k}

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

0インデックス。Level River Stの答えをいじり、髪型をエンコードする別のアプローチを見つけました。ここでは、「最長」の5文字のヘアカットを特別なケースとして扱います。リストの最初の部分の些細なパターンはそれぞれ1文字でエンコードされ、2番目の部分ではすべての3文字パターンが文字通りリストされます-これらの文字は区別されるかどうかです。最後に、猿の顔のボイラープレートが来ます。

— キリル・L
ソース
1

PowerShell、187171バイト

mazzyのおかげで-16バイト 

''+($args|%{($x=' '*4)+($y=' -'[$_-eq6])+("___,,,ooo===+++###*~****|||_/7)))(((xxx@__((_>X<'*``^^^)|(\|/&&&"|% s*g($_*3)3)+$y+$x;$z++})
"$x(o o)$x "*$z
"ooO--(_)--Ooo-"*$z

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

0から始まり、末尾にハイフンが付きます。

展開：

''+($args|%{
    ($x=' '*4) + ($y=' -'[$_-eq6]) + 
    ("___,,,ooo===+++###*~****|||_/7)))(((xxx@__((_>X<'*``^^^)|(\|/&&&"|% substring ($_*3) 3) +
    "$y$x ";
    $z++
    })
"$x(o o) $x"*$z
"ooO--(_)--Ooo-"*$z

派手なものは何もありません。最初の行のみに、適切なロジックが含まれています。を使用してヘア文字列にインデックス$current_entry_value*3をs付けg、すべてのチャンクを1つの大きな行に結合する前に、ubstrin を使用してそのチャンクをスクープします。次のキャレットをエスケープするという問題に遭遇しました。なぜIndexOutOfBoundsエラーが発生したのか疑問に思っていましたが、それは修正されました。今、最初の行を結合するはるかに良い方法を使用しています。

195バイトは、先行/末尾ハイフンなしの仕様に従う

— ヴェスカ
ソース
1
nice 7.バイトを節約できますオンラインで試してみてください！
— mazzy
1
— mazzy
0

ルーン文字のエンチャント、313バイト

B6?>8b2*B0il2)?\B" "9a2*
{" ___ "D
{" ,,, "D
{" ooo "D
{" === "D
{" +++ "D
{" ### "D
{"-*~*-"D
{" *** "D
{" ||| "D
{" _/7 "D
{" ))) "D
{" ((( "D
{" xxx "D
{" @__ "D
{" ((_ "D
{" >X< "D
{" '*` "D
{" ^^^ "D
{" )|( "D
{" \|/ "D\
{" &&& "D{
{"    " LLRB͍!{
"-(_)--Ooo-"{*@\~4-:l͍e,:{$ak$"    (o o)     "{*$ak$"ooO-"

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

文字列を圧縮し、可能な場合はセグメントを再利用し、B牧場での入力値を直接ジャンプオフセットとして使用するという点で、合理的にコンパクトです。

余分な後続スペースが許可され4-ている場合、最後の行のを省略することにより、これを2バイト短縮できます。1-ファイナル-が存在しないことを意図している場合は、+ 2バイト（仕様に一致し、例に違反する）

チャンクは、" (o o) "圧縮するのが面倒" "4*です。これは、同じバイト数になるようなものを使用して構築するためです。

21を超える入力を渡すことは楽しいことです。例えば、単一の22は近いひげそりを与えます。

— ドラコ
ソース
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.