21 kiểu tóc của ngày tận thế

Đưa ra một danh sách các số từ 1 đến 21 (hoặc 0 và 20) xuất ra bản vẽ "được khâu lại với nhau" của các mặt sau ( xem quy tắc để ghép thông tin ):

     ___           ,,,           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-

Mỗi khuôn mặt duy nhất được liệt kê trên một dòng mới (# là ID số nguyên cho khuôn mặt):

     ___      
    (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

Khuôn mặt như sau:

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

Đâu hlà kiểu tóc khải huyền năng động và Slà dấu gạch nối tiềm năng.

Ví dụ

Đầu vào: [1,2,3,4,5]

Đầu ra:

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

Đầu vào: [1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21]

Đầu ra:

     ___           ,,,           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-

Đầu vào: ["Fraggle Rock"] / [22]/ [-21041024]/[22,23,24,25,26]

Đầu ra: Nobody cares.

Đầu vào: [1,1,1,1]

Đầu ra:

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

Quy tắc

• Tiền đề và dấu vết dòng mới / dấu cách / dấu gạch nối là tốt.
• Khuôn mặt có thể xảy ra nhiều hơn một lần trong đầu vào.
• Nếu có một số không hợp lệ trong đầu vào, bạn có thể có hành vi không xác định.
• Các khâu:
  • Các mặt được khâu sẽ được nối bằng một dấu gạch nối trên dòng dưới cùng (thứ 3).
  • Tất cả các mặt sẽ nằm trên một dòng duy nhất (không giống như bản vẽ đầu tiên).
• Đầu vào có thể là 0 hoặc 1 được lập chỉ mục, với 20 là tối đa cho 0, 21 cho 1.
• Đây là môn đánh gôn , đánh số byte thấp nhất.

Japt -R , 122 117 113 110 109 107 105 104 103 102 100 99 byte

1 chỉ mục, với gói chỉ mục. Tôi đã theo dõi thông số kỹ thuật ở đây, yêu cầu một dấu gạch nối giữa dòng cuối cùng của mỗi khuôn mặt, thay vì các trường hợp thử nghiệm, bao gồm dấu gạch nối sau dòng cuối cùng của mỗi khuôn mặt.

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

Thử nó

[                                             :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

Python 2 , 209 byte

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]

Hãy thử trực tuyến!

Lập chỉ mục dựa trên 0; Không có gì đặc biệt thông minh ở đây, chỉ là dữ liệu được truy cập thông qua việc cắt và sử dụng exec thay vì một vòng lặp.

Than , 103 102 byte

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

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

Ｅ²⪫Ｅθ

Lặp lại hai lần đầu vào. Mỗi kết quả sau đó được in ngầm trên dòng riêng của mình.

⎇ι(o o)

Trên vòng lặp thứ hai, chỉ cần tạo mắt.

⪫ײ§ -⁼λ⁶

Bọc kiểu tóc 6 in -s, kiểu tóc khác trong không gian.

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

Trích xuất ba ký tự kiểu tóc từ một chuỗi nén.

× ⁹

Chèn chín khoảng cách giữa mỗi tóc hoặc mắt.

Ｍ⁴←

Di chuyển 4 khoảng trống còn lại.

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

In phần còn lại của các mặt, nối với a -.

R , 413 391 byte

Cảm ơn Giuseppe cho 22 byte ít hơn và nhận được điều này dưới 400 byte.

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)]))}

Hãy thử trực tuyến!

JavaScript (ES6), 200 199 byte

Yêu cầu đầu vào 1 chỉ mục.

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`
`

Hãy thử trực tuyến!

Đã bình luận

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

Ruby , 164 byte

->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}

Không có chỉ mục. Hãy thử trực tuyến!

Tất cả những điều khó khăn xảy ra trên dòng trên cùng.

"_,o=+# *| )(x ^ &"chứa tất cả các kiểu tóc với 3 ký tự giống hệt nhau, từ đó chúng ta chọn iký tự thứ , j.

nếu jkhông phải là khoảng trắng, biểu thức sau trả về 3 bản sao của ký tự. Nếu đó là một không gian, chúng tôi chọn kiểu tóc chính xác từ giữa %w{}. Các kiểu tóc "lẻ" là số 6,9,13,14,15,16,18,19 và i%11-2đưa ra một băm hoàn hảo để0..7

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

Tất cả những gì còn lại là đệm đến 14 khoảng trắng (ở giữa) và in một số lượng trung bình / đáy thích hợp.

Python 2 , 204 byte

i=input();l=len(i)
for l in[' '*4+' -'[x==6]+"_,o=+#**|_)(x@(>'^)\\&_,o=+#~*|/)(x_(X*^||&_,o=+#**|7)(x__<`^(/&"[x::21]+' -'[x==6]+' '*5for x in i],['    (o o)     ']*l,['ooO--(_)--Ooo-']*l:print''.join(l)

Hãy thử trực tuyến!

Java 8, 273 263 byte

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);}

Hãy thử trực tuyến.

Giải trình:

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

R , 247 242 byte

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<
'*`
^^^
)|(
\|/
&&&

Hãy thử trực tuyến!

Bây giờ, cố gắng đưa R đến số byte dễ quản lý hơn ...

Vì việc thực hiện các thao tác nhân vật trong R rất dài dòng, tôi quyết định liệt kê tất cả các kiểu khuôn mặt và kiểu tóc hoàn toàn. Để in đẹp các kiểu tóc tôi sử dụng formatchức năng với justify="centre". Thật không may, chúng ta cần sử dụng một ký tự đệm thêm i==20vì formattính toán phần đệm như thể dấu gạch chéo ngược được thoát ra, như thế \\|/.

Phiên bản hiện tại không sử dụng dấu gạch nối.

Chỉnh sửa: Tín dụng cho JayCe cho -2 và Giuseppe cho -3 byte.

C! ( C-Wow 1.1.0), 251 byte

(Yêu cầu các đối số được truyền vào khi thực hiện chương trình, phân tách không gian)

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)));

Phiên bản bị đánh cắp:

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)));

Màu đỏ , 333 319 byte

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]

Hãy thử trực tuyến!

Ruby , 163 byte

->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}

Hãy thử trực tuyến!

Chỉ số 0. Tôi loay hoay với câu trả lời của Level River St và tìm thấy một cách tiếp cận khác để mã hóa các kiểu tóc, rõ ràng là giống như golf. Ở đây, chúng tôi coi kiểu tóc 5-char "dài nhất" là trường hợp đặc biệt, các mẫu tầm thường trong phần đầu tiên của danh sách được mã hóa bởi 1 char mỗi mẫu, và trong phần thứ hai, tất cả các mẫu 3-char đều được liệt kê theo nghĩa đen, bất kể - là những ký tự khác biệt hay không. Cuối cùng là nồi hơi mặt khỉ.

C (gcc) , 210 212 byte

-4 byte nhờ vào trần nhà . (Nó đã phát triển trở lại khi tôi sửa một lỗi mà mã gốc có.)

Khá đơn giản.

#define r(s)for(i=!puts("");i<n;printf(s,c,"___,,,ooo===+++###*~****|||_/7)))(((xxx@__((_>X<'*`^^^)|(\\|/&&&"+x*3,c=x^6?32:45,x=l[i++]));
x,c,i;f(l,n)int*l;{r("%5c%.3s%-6c")r("    (o o)     ")r("ooO--(_)--Ooo-")}

Hãy thử trực tuyến!

PowerShell , 187 171 byte

^{-16 byte nhờ mazzy}

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

Hãy thử trực tuyến!

0-index, có dấu gạch nối.

Chưa được kiểm soát:

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

Không có gì quá lạ mắt. Chỉ có dòng đầu tiên có một số logic tốt trong đó. Nó lập chỉ mục vào chuỗi tóc bằng cách sử dụng $current_entry_value*3và lấy ra phần đó bằng cách sử dụng substrin g, trước khi nối tất cả các phần thành một dòng lớn. Gặp phải vấn đề 'thoát khỏi sự chăm sóc tiếp theo, khiến tôi tự hỏi tại sao tôi lại gặp lỗi IndexOutOfBound nhưng điều đó đã được sửa. Bây giờ sử dụng một cách tốt hơn nhiều để kết hợp dòng đầu tiên.

195 Byte để theo thông số kỹ thuật không có dấu gạch nối hàng đầu / dấu

Python 3 , 240 byte

h=[x*3for x in"_,o=+#*|)(x^&"]
for i,*l in(6,"-*~*-"),(9,"_/7"),(13,"@__","((_",">X<","'*`"),(18,")|(","\|/"):h[:i]+=l
*x,=map(int,input().split())
l=len(x)
p=print
p(*(h[i].center(13)for i in x))
p("    (o o)     "*l)
p("ooO--(_)--Ooo-"*l)

Hãy thử trực tuyến!

Runic bùa mê , 313 byte

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-"

Hãy thử trực tuyến!

Hợp lý nhỏ gọn về mặt nén các chuỗi và sử dụng lại các phân đoạn khi có thể cũng như sử dụng các giá trị đầu vào làm điểm nhảy trực tiếp khi Btrang trại.

Nếu không gian theo dõi dư thừa được cho phép, điều này có thể được rút ngắn 2 byte bằng cách bỏ qua 4-dòng cuối cùng. +2 byte cho a 1-nếu cuối cùng -dự định không có ở đó (thông số kỹ thuật phù hợp, ví dụ vi phạm).

Chunk, " (o o) "khó chịu không thể nén, vì việc xây dựng nó bằng cách sử dụng những thứ như " "4*cuối cùng có cùng số byte.

Vượt qua đầu vào> 21 làm những điều thú vị. Ví dụ, một 22 duy nhất cho một cạo sát .