Kıyametin 21 Saç Modelleri

1 ile 21 (veya 0 ve 20) arasındaki sayıların bir listesi verildiğinde, aşağıdaki yüzlerin "birlikte dikilmiş" çizimi çıkar ( dikiş bilgileri için kurallara bakın ):

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

Yeni satırda listelenen her benzersiz yüz (# yüz için tamsayı kimliğidir):

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

Yüz aşağıdaki gibidir:

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

hDinamik kıyamet saç modeli nerede ve Spotansiyel dikiş tiresi.

Örnekler

Giriş: [1,2,3,4,5]

Çıktı:

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

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

Çıktı:

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

Giriş: ["Fraggle Rock"] / [22]/ [-21041024]/[22,23,24,25,26]

Çıktı: Nobody cares.

Giriş: [1,1,1,1]

Çıktı:

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

kurallar

• Önceki ve sondaki satır / boşluk / kısa çizgi iyi.
• Girişte yüzler birden fazla oluşabilir.
• Girişte geçersiz bir sayı varsa, tanımlanmamış davranışınız olabilir.
• Dikiş:
  • Dikişli yüzler, alt (3.) satırdaki tek bir tire ile birleştirilir.
  • Yüzler tek bir çizgi üzerinde olacak (ilk çizimden farklı olarak).
• Giriş 0 veya 1 dizinlenebilir, 20 değeri 0 için maks. 1 için 21'dir.
• Bu kod golf , en düşük bayt sayısı kazanır.

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

1 dizinli, dizin kaydırmalı. Burada, her yüzün son satırından sonra bir tire içeren test senaryoları yerine, her yüzün son satırı arasında bir kısa çizgi gerektiren spesifikasyonu izledim .

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

Dene

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

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]

Çevrimiçi deneyin!

0 tabanlı indeksleme; burada zekice bir şey yok, sadece bir döngü yerine dilimleme ve exec kullanılarak erişilen verilere.

Kömür , 103102 bayt

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

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Açıklama:

Ｅ²⪫Ｅθ

Girişi iki kez çevirin. Her sonuç daha sonra dolaylı olarak kendi satırına yazdırılır.

⎇ι(o o)

İkinci döngüde, sadece gözleri oluşturun.

⪫ײ§ -⁼λ⁶

Saç modeli 6 -s, diğer saç modelleri boşluklarda sarın .

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

Sıkıştırılmış bir dizeden üç saç modeli karakterini ayıklayın.

× ⁹

Her saç veya göz arasına dokuz boşluk yerleştirin.

Ｍ⁴←

4 boşluk sola git.

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

A ile birlikte kalan yüzleri yazdırın -.

R , 413391 bayt

Daha az 22 bayt için Giuseppe teşekkür ve 400 bayt altında bu almak.

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

Çevrimiçi deneyin!

JavaScript (ES6), 200 199 bayt

1 dizinli giriş bekliyor.

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

Çevrimiçi deneyin!

Yorumlananlar

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

Yakut , 164 bayt

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

Sıfır indekslendi. Çevrimiçi deneyin!

Tüm zor şeyler en üst sırada gerçekleşir.

"_,o=+# *| )(x ^ &"iinci karakteri seçtiğimiz 3 özdeş karakter içeren tüm saç stillerini içerir j.

eğer jbir boşluk değil, aşağıdaki ifade karakterin 3 kopya döndürür. Eğer bir boşluksa, aralarından doğru saç stilini seçiyoruz %w{}. "Tek" saç modelleri 6,9,13,14,15,16,18,19 sayıları ve i%11-2mükemmel bir karma verir0..7

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

Geriye kalan tek şey 14 boşluğa (ortalanmış) doldurmak ve uygun sayıda orta / alt baskı yapmaktır.

Python 2 , 204 bayt

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)

Çevrimiçi deneyin!

Java 8, 273263 bayt

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

Çevrimiçi deneyin.

Açıklama:

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 , 247242 bayt

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

Çevrimiçi deneyin!

Şimdi, R'yi daha yönetilebilir bir bayt sayısına getirmeye çalışıyoruz ...

R'de karakter manipülasyonları yapmak umutsuzca ayrıntılı olduğundan, tüm yüz ve saç modellerini tamamen olduğu gibi listelemeye karar verdim. Güzel yazdırmak için saç stilleri formatile işlevini kullanıyorum justify="centre". Ne yazık ki, fazladan bir dolgu karakteri kullanmamız gerekiyor i==20çünkü formatdolgu, ters eğik çizgiden kaçıyormuş gibi hesaplanıyor \\|/.

Geçerli sürüm yok değil tire sondaki kullanın.

Düzenleme: -2 için JayCe ve -3 bayt için Giuseppe kredi.

C! ( C-Vay 1.1.0), 251 Bayt

(Program yürütüldüğünde bağımsız değişkenlerin iletilmesini gerektirir, boşluk bırakılır)

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

Ungolfed sürümü:

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

Kırmızı , 333 319 bayt

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]

Çevrimiçi deneyin!

Yakut , 163 bayt

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

Çevrimiçi deneyin!

0 endeksli. Ben Seviye Nehri ST adlı fiddled cevap ve görünüşe benzer golfiness arasında saç modelleri kodlamak için başka bir yaklaşım bulduk. Burada, "en uzun" 5 karakterli saç kesimini özel bir durum olarak ele alıyoruz, listenin ilk bölümündeki önemsiz desenlerin her biri 1 karakterle kodlanıyor ve ikinci bölümde tüm 3 karakterlik desenler tam anlamıyla listeleniyor - bu karakter farklı mı değil mi? Sonunda maymun suratı kazan plakası geliyor.

C (gcc) , 210 bayt

Tavan kedisi sayesinde -4 bayt . (Orijinal kodun sahip olduğu bir hatayı düzelttiğimde tekrar büyüdü.)

Oldukça basit.

#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-")}

Çevrimiçi deneyin!

PowerShell , 187 bayt

^{Mazzy sayesinde -16 bayt}

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

Çevrimiçi deneyin!

0 indeksli, sondaki kısa çizgi vardır.

unrolled:

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

Çok süslü bir şey yok. Sadece ilk satırda iyi bir mantık var. Kullanarak saç dizgisini indeksler $current_entry_value*3ve substrin kullanarak gbu yığınları dışarı çıkarır , tüm parçaları tek bir büyük satıra birleştirir. `` Bir sonraki caretten kaçma, neden bir IndexOutOfBounds hatası aldığımı merak ettim '' sorunuyla karşılaştım ama bu düzeltildi. Şimdi ilk satırı birleştirmek için çok daha iyi bir yol kullanıyor.

Önde gelen / sondaki tire işaretlerinin olmaması için 195 Bayt

Python 3 , 240 bayt

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)

Çevrimiçi deneyin!

Runik Efsunlar , 313 bayt

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

Çevrimiçi deneyin!

Mümkün olduğunda dizeleri sıkıştırmak ve segmentleri yeniden kullanmak ve giriş değerlerini doğrudan atlama ofsetleri olarak kullanmak açısından makul derecede kompakt B çiftlikte .

Fazla boşluk bırakılmasına izin verilirse, bu 4-son satırda atlanarak 2 bayt kısaltılabilir . Bir 1-final için +2 bayt- orada olmaması amaçlanıyorsa (eşleşen spesifikasyon, ihlal eden örnekler).

Yığın, " (o o) "sıkıştırmak imkansız, gibi şeyler kullanarak inşa etmek" "4* tam olarak aynı sayıda bayt olur.

Geçen girişler> 21 eğlenceli şeyler yapar. Örneğin , tek bir 22 yakın bir tıraş sağlar .