Gambarlah ASCII-O'-Lantern untuk Halloween


28

Halloween hampir tiba, hari libur setelah kebanyakan orang perlu menyapih diri dari diet gula yang berlubang.

Tulis program yang menggunakan bilangan bulat positif. Jika bilangan bulat kurang dari 31 (1 hingga 30), keluarkan lentera jack-o'-art ASCII ini, dengan melihat ke kanan seolah menantikan Halloween:

 _____I_____
| | | | | | |
| | |^| |^| |
| | | |^| | |
| | |VvVvV| |
|_|_|_|_|_|_|

Jika input adalah 31 (tanggal Oktober Halloween pada), output yang sama ASCII-o'-lantern, tapi melihat kiri:

 _____I_____
| | | | | | |
| |^| |^| | |
| | |^| | | |
| |VvVvV| | |
|_|_|_|_|_|_|

Jika inputnya lebih besar dari 31, keluarkan lentera ASCII yang tampak membengkak yang mungkin makan terlalu banyak permen. Ia dapat menghadap ke kiri atau ke kanan karena mual dapat membingungkan. Jadi output:

 _____I_____
| | | | | | |
| |o| |o| | |
| | |^| | | |
| |XXXXX| | |
|_|_|_|_|_|_|

atau

 _____I_____
| | | | | | |
| | |o| |o| |
| | | |^| | |
| | |XXXXX| |
|_|_|_|_|_|_|

Apapun yang kamu inginkan. Bahkan mungkin berbeda untuk nomor berbeda di atas 31.

Kode terpendek dalam byte menang.

Jawaban:


8

JavaScript (ES6), 185 142 140 136 byte

Sekarang Anda dapat men-tweet-a-labu!

n=>` _____I_____
0 4 1
02421
0 |^| 1
031
|_|_|_|_|_|_|`.replace(/\d/g,x=>x-2?x-3?x^n>30?"| |":"| | |":n>31?"XXXXX":"VvVvV":n>31?"o":"^")

Mungkin masih ada ruang untuk perbaikan ...


Itu x^n>30trik telah saya bingung pada awalnya, tetapi ketika saya bekerja di luar apa yang terjadi saya tanpa malu-malu mencuri untuk meningkatkan jawaban saya. Sebagai kompensasi saya tetap memberi Anda suara untuk itu.
Neil

8

아희 (Aheui) , 914 byte

붕빠뿌빠삮빠싸빠받따싼사주따반따퍄속맣이
숚뽀빠소뚜번범뻐터번선야챠슊산받발따다뿌
분뽀더번투빠뿌삮뿌다뿌쑬섣뽀빠뼈ㅇ뚜범쑬
받발따또싾솒빠쏟싿솓아삲쏠쑧뽀터벋터볼설
뿌뻐뻐뻐선썬뻐퍼섟썫선뻐퍼샧셗뺘쎣뺘뼈선
받따반타파빠빠받따받반타타싾삲빠빠빠빠뿌
숟썭뻐선썭뻐섣썭뻐선썭뻐섣썯터범떠범뻐선
빠싽술빠싽산빠싽삳빠싽숟삮쎨뿌서탸쥬싸셔
쀼이썭솓쀼섣싻이연우섞빠쏠뱐선반노쌹뻐숛
손빠쓞유삯쏢으산뽀쌹쏡야뼈섣싺이셗처솓썱
아솓썲솑쏢삱쏜빠쌄숞뚜범범섩뻐분터뿌뻐튜
번이손쎫ㅇ야샨우쌃이쀼뱔뿌떠뽀투또뿌뽀노
본떠벋뻐떠번떠숃볌쎬볌섩뿌빠뽀펴봄벌뽀뻐
샯이멓삭뭏ㅇㅇ이멓샥뎌뵥뿌븀범이멓삭뭏맣
맣이ㅇ몋섨희ㅇㅇㅇㅇㅇ먛뻐살뽀ㅇ솕멓샮속

Coba di sini! (harap salin dan tempel kode secara manual)

Aheui mungkin bukan untuk bermain golf, tapi tetap saja menyenangkan. :)

Output:

N = 10

 _____I_____ 
| | | | | | |
| | |^| |^| |
| | | |^| | |
| | |VvVvV| |
|_|_|_|_|_|_|

N = 31

 _____I_____ 
| | | | | | |
| |^| |^| | |
| | |^| | | |
| |VvVvV| | |
|_|_|_|_|_|_|

N = 40

 _____I_____ 
| | | | | | |
| |o| |o| | |
| | |^| | | |
| |XXXXX| | |
|_|_|_|_|_|_|

4

Jelly , 73 byte

“ẋƥḷỊKNṇ&JƝ¡'Ɲṣ,c;|Ṙɗ.hṿ#⁴ɠ³Ṙṅ’b8ị“ I|o^Xv_”
<32ị“o^XV“vX”y¢s13µ¹U31=³¤?Y

Program lengkap
TryItOnline!

Mungkin bisa bermain golf ini dengan bantuan bouncing ŒḄ,.

Bagaimana?

“ẋƥḷỊKNṇ&JƝ¡'Ɲṣ,c;|Ṙɗ.hṿ#⁴ɠ³Ṙṅ’b8ị“ I|o^Xv_” - Link 1, Jack construction
“ẋƥḷỊKNṇ&JƝ¡'Ɲṣ,c;|Ṙɗ.hṿ#⁴ɠ³Ṙṅ’              - a base 250 integer
                               b8            - convert to base 8
                                 ị           - index into
                                  “ I|o^Xv_” - literal " I|o^Xv_"
                                             - makes this, without the line feeds:
                                                _____I_____ 
                                               | | | | | | |
                                               | |o| |o| | |
                                               | | |^| | | |
                                               | |XvXvX| | |
                                               |_|_|_|_|_|_|

<32ị“o^XV“vX”y¢s13µ¹U31=³¤?Y - Main link: n
<32                          - 1 if n is less than 32 else 0
   ị                         - index into
    “o^XV“vX”                - list of strings, ["o^XV","vX"]
             y               - map those characters (o->^ and X->V OR v->X) in string:
              ¢              -    call last link (1) as a nilad
               s13           - split into chunks of length 13
                  µ          - monadic chain separation
                          ?  - ternary if:
                         ¤   -     nilad and links as a nilad
                     31=³    -         31 equals first argument
                   ¹         -     identity (do nothing if true)
                    U        -     upend (reverse each if false)
                           Y - join with line feeds

3

Ruby, 137 byte

Poin wajah tersisa dan setelah tanggal 31.

->n{puts ' _____I_____',(0..4).map{|i|s=[?|]*7*' _'[i/4]
s[5-n/31*2,5]=' | | o| |o |^| VvVvV_|_|_'[i*5,5];s.tr('ovV','^vVoX'[n/32*3,3])}}

Tidak terkurung dalam program uji

f=->n{
  puts ' _____I_____',                                #Draw top of pumpkin
  (0..4).map{|i|                                      #then 5 more lines
    s=[?|]*7*' _'[i/4]                                #of 7 | separated by space or _ .
    s[5-n/31*2,5]=' | | o| |o |^| VvVvV_|_|_'[i*5,5]  #Add a line of face with 'o' eyes and 'VvVvV' mouth.
    s.tr('ovV','^vVoX'[n/32*3,3])                     #Substitute characters as necessary.
  }
}

f[gets.to_i]

3

Arang , 71 byte

NβA‹β³²τA§o^τεA§XVτφA§XvτθF³«P↑⁵|_»↑⁵←I←×_⁵‖O→↙↙←←ε↙←^↖↓ε↓→φθφθφ¿⁼β³¹‖←

Catatan : Kode ini tidak berfungsi di komit terbaru saat pengeposan, karena pengindeksan string rusak. Namun, versi ini seharusnya berfungsi pada tanggal 25 Oktober. Versi ini juga berjalan dengan sukses pada versi yang saat ini ada di Try It Online .

Penjelasan

Arang adalah bahasa yang dirancang untuk seni ASCII. Keluaran diletakkan di atas kanvas, yang dicetak di akhir program.

Mendirikan

Dapatkan input dan hitung karakter wajah:

Nβ        Input number into beta
A‹β³²τ    Assign beta<32 to tau for easy reuse
A§o^τε    Assign appropriate eye character (selected via indexing into "o^") to epsilon
A§XVτφ    Assign outside and middle mouth character to phi
A§Xvτθ    Assign other mouth character to theta

Gambar labu

F³«  »    Do this three times:
P↑⁵       Draw a 5-character line upward (using | by default); don't move the cursor
|_         Draw that string, rightward

Setelah loop ini, kita punya

| | | 
| | | 
| | | 
| | | 
|_|_|_

Berikutnya:

↑⁵         Draw a 5-character line upward
←I         Draw the stem leftward
←×_⁵       Draw 5 underscores leftward
‖O→       Reflect the canvas rightward, overlapping in the middle

Hasil:

 _____I_____ 
| | | | | | |
| | | | | | |
| | | | | | |
| | | | | | |
|_|_|_|_|_|_|

Gambarlah wajahnya

Kami akan menggambar wajah dengan melihat ke kanan dan mengubahnya nanti jika perlu.

↙↙←←ε      Move to the correct spot and draw the right eye (our right, pumpkin's left)
↙←^        Move to the correct spot and draw the nose
↖↓ε        Move to the correct spot and draw the left eye
↓→φθφθφ    Move to the correct spot and draw the mouth with alternating characters

Hasil (untuk masukan 31):

 _____I_____ 
| | | | | | |
| | |^| |^| |
| | | |^| | |
| | |VvVvV| |
|_|_|_|_|_|_|

Renungkan apakah itu Halloween:

¿⁼β³¹      If beta equals 31:
‖←         Reflect canvas leftward

Hasil akhir:

 _____I_____ 
| | | | | | |
| |^| |^| | |
| | |^| | | |
| |VvVvV| | |
|_|_|_|_|_|_|

2

Pyth - 84 byte

Kompresi basis manual.

+dj\Im*5\_2Xjb@_MBsMc5@L"^|_V ve"jC"mËÝ8|0càvll+DzSïë¬Ê"7qQ31"Vve"?>Q31"XXo""Vv^

Test Suite .


2

PHP, 178 176 171 byte

$e="| | ";$b=($n=$argv[1]-31)?" |^":"^| ";$c=$n<1?VvVvV:XXXXX;$a=$n<1?$b:" |o";echo" _____I_____\n$e$e$e|\n| |$a|$a$e\n$e|$b$e|\n| |",$n?" |$c":"$c| ","$e\n|_|_|_|_|_|_|";

bisa menghemat 5 byte dengan linebreak fisik. Jalankan dengan -r.


1

V , 97 byte

é|6i| Y5PÒ_r $.7|rIGÓ /_
3G3f r^jll.kll.5G3f RVvVvVLá
Àé*ñ30|l2GGkld$PñGñ31|l3GÓÞ/o
5GÓãv/Xñͪ

Cobalah online!

Saya kecewa dengan berapa lama ini terjadi. Ini lebih berbelit-belit dari biasanya karena V nyaris tidak bisa menangani angka, banyak byte yang berasal dari membuat kondisi peretasan. Saya akan memposting penjelasan rinci, tetapi butuh waktu lama untuk menghasilkan, jadi saya mungkin bisa melakukannya nanti. Ini hexdump:

0000000: e97c 3669 7c20 1b59 3550 d25f 7220 242e  .|6i| .Y5P._r $.
0000010: 377c 7249 47d3 202f 5f0a 3347 3366 2072  7|rIG. /_.3G3f r
0000020: 5e6a 6c6c 2e6b 6c6c 2e35 4733 6620 5256  ^jll.kll.5G3f RV
0000030: 7656 7656 1b4c e10a c0e9 2af1 3330 7c6c  vVvV.L....*.30|l
0000040: 3247 1647 6b6c 6424 50f1 47f1 3331 7c6c  2G.Gkld$P.G.31|l
0000050: 3347 d3de 2f6f 0a35 47d3 e376 2f58 f1cd  3G../o.5G..v/X..
0000060: aa                                       .

FYI ini akan berjalan sangat lambat. Ini akan memakan waktu sekitar 10 detik. Saya tahu mengapa ini terjadi, dan saya mencari perbaikan.


1

Pyth, 76 byte

+dX*11\_5\IjbmX.<.[14d"| "yqQ31<G3?>Q31"XXo""Vv^"c"
|c| |c
|^
|ababa"bt*7"_|

Cobalah online.

Tidak menggunakan kompresi. (Saya mencoba menggunakan beberapa untuk versi string data wajah, tetapi berakhir dengan panjang yang sama.)


1

Java 7, 237 byte

String c(int n){char a=n==31?94:n>31?'o':32,b=n<31?'^':32;return(" _____I_____ \n~~~~~~|\n~|"+a+"|"+b+"|"+a+"|"+b+"~|\n~~|"+(n>31?94:a)+"|"+b+"~~|\n~"+(n<31?"~|VvVvV|":n==31?"|VvVvV~|":"|XXXXX~|")+" |\n|_|_|_|_|_|_|").replace("~","| ");}

Tidak digabungkan & kode uji:

Coba di sini.

class M{
  static String c(int n){
    char a = n == 31
              ? 94
              : n > 31
                 ? 'o'
                 : 32,
         b = n < 31
              ? '^'
              : 32;
    return (" _____I_____ \n~~~~~~|\n~|"+a+"|"+b+"|"+a+"|"+b+"~|\n~~|"
        +(n > 31
           ? 94
           :a)
        +"|"+b+"~~|\n~"
        +(n < 31
           ? "~|VvVvV|"
           : n == 31
              ? "|VvVvV~|"
              : "|XXXXX~|")
        +" |\n|_|_|_|_|_|_|")
      .replace("~", "| ");
  }

  public static void main(String[] a){
    System.out.println(c(12));
    System.out.println();
    System.out.println(c(31));
    System.out.println();
    System.out.println(c(100));
  }
}

Keluaran:

 _____I_____ 
| | | | | | |
| | |^| |^| |
| | | |^| | |
| | |VvVvV| |
|_|_|_|_|_|_|

 _____I_____ 
| | | | | | |
| |^| |^| | |
| | |^| | | |
| |VvVvV| | |
|_|_|_|_|_|_|

 _____I_____ 
| | | | | | |
| |o| |o| | |
| | |^| | | |
| |XXXXX| | |
|_|_|_|_|_|_|

Bukankah kode golf Anda hanya sebuah fungsi, bukan program lengkap?
Angzuril

Solusi JavaScript ETHproductions hanya sebuah fungsi, saya tidak mengerti mengapa ini akan berbeda untuk Java
brianush1

1

C ++, 222 204 194 byte

-18 byte terima kasih kepada Kevin Cruijssen dan -10 byte untuk bagian atas yang eksplisit

using S=std::string;S f(int n){char L[80],o=2*(n>30),i=-1;while(i++<80)L[i]=47<i&i<53?88:i%2?'|':i==20|i==24|i==36?n<32|i>35?94:'o':(i-o)%14?i-o<55?32:95:10;return" _____I_____ "+S(L+o,L+70+o);}

Tidak disatukan

#include <string>

using S=std::string;
S f(int n){
 char L[80];
 int o=2*(n>30);
 for (int i=0;i<80;i++){
  L[i]=
   (47<i && i<53) ?
   'X' :
   (
    (i%2) ?
    '|' :
    (
     i==20||i==24||i==36 ?
     (n<32||i>35?'^':'o') :
     ((i-o)%14?(i-o<55?' ':'_'):'\n')
    )
   );
 }
 return " _____I_____ " + S(L+o,L+70+o);
}

1
Saya hanya diprogram dalam C ++ sekali bertahun-tahun yang lalu jadi saya benar-benar tidak dapat mengingatnya, tetapi apakah tanda kurung wajib untuk pemeriksaan ternary? Jika tidak, Anda bisa menghapus banyak dari mereka. Juga, apakah mungkin untuk mengubah &&to &dan ||to |? Sebagai ringkasan, apakah using S=std::string;S f(int n){char L[80],o=2*(n>30),i=-1;while(i++<80)L[i]=47<i&i<53?88:i%2?'|':i==20|i==24|i==36?n<32|i>35?94:'o':i-o%14?i-o<55?32:95:10;S t(5,95);return' '+t+'I'+t+' '+S(L+o,L+70+o);}( 202 byte ) mengkompilasi & menjalankan?
Kevin Cruijssen

1
@KevinCruijssen Ya Anda benar. Hanya tanda kurung di sekitar i-oyang wajib, jadi 204 byte,
Karl Napf

1

PHP, 222 Bytes

for($s=" ".str_pad("I",11,_,2)." \n";$i<5;$i++)$s.=str_pad("",13,$i<4?"| ":"|_")."\n";$p=($a=$argv[1])<31||!($a%2)?2:0;$s=substr_replace($s,$a>31?XXXXX:VvVvV,$p+59,5);$s[$p+31]=$s[$p+35]=($a>31?o:"^");$s[$p+47]="^";echo$s;

Keluaran

input:29
 _____I_____ 
| | | | | | |
| | |^| |^| |
| | | |^| | |
| | |VvVvV| |
|_|_|_|_|_|_|

input:30
 _____I_____ 
| | | | | | |
| | |^| |^| |
| | | |^| | |
| | |VvVvV| |
|_|_|_|_|_|_|

input:31
 _____I_____ 
| | | | | | |
| |^| |^| | |
| | |^| | | |
| |VvVvV| | |
|_|_|_|_|_|_|

input:32
 _____I_____ 
| | | | | | |
| | |o| |o| |
| | | |^| | |
| | |XXXXX| |
|_|_|_|_|_|_|

input:33
 _____I_____ 
| | | | | | |
| |o| |o| | |
| | |^| | | |
| |XXXXX| | |
|_|_|_|_|_|_|

input:34
 _____I_____ 
| | | | | | |
| | |o| |o| |
| | | |^| | |
| | |XXXXX| |
|_|_|_|_|_|_|

input:35
 _____I_____ 
| | | | | | |
| |o| |o| | |
| | |^| | | |
| |XXXXX| | |
|_|_|_|_|_|_|

1

Groovy Script, 273 265 216 202 198 byte

i=args[0]as int
a=i<32?'^| |^':'o| |o'
b=i<32?'VvVvV':'XXXXX'
j=i>30
print" _____I_____\n| | | | | | |\n| |${j?"$a| ":" |$a"}| |\n| | |${j?'^| ':' |^'}| | |\n| |${j?"$b| ":" |$b"}| |\n|_|_|_|_|_|_|"

Versi tidak disatukan

i = args[0] as int
a = i < 32 ? '^| |^' : 'o| |o'
b = i < 32 ? 'VvVvV' : 'XXXXX'
j = i > 30
print """ _____I_____
| | | | | | |
| |${j ? "$a| " : " |$a"}| |
| | |${j ? '^| ' : ' |^'}| | |
| |${j ? "$b| " : " |$b"}| |
|_|_|_|_|_|_|"""

Coba di sini

Edit

Seperti Titus disebutkan, saya bisa menyimpan beberapa ukuran dengan i < 32bukannyai in 1..31

Edit 2

Menghapus semua ruang yang mungkin di sekitar operator ... Lupa melakukannya di awal

Edit 3

Tulis ulang kondisi ternary untuk menggunakan variabel yang disimpan, diganti ;dengan baris baru, menghapus definisi variabel eksplisit

Edit 4

Seperti yang disebutkan oleh Otávio, saya dapat menyimpan 4 byte lagi jika saya beralih dari | |${j ? ' |^| | ' : ' | |^| '}| |ke| | |${j ? '^| ' : ' |^'}| | |


Bagaimana kalau i < 32bukan i in 1..31?
Titus

Anda tidak dapat menghilangkan ruang di sekitar operator?
Dana Gugatan Monica

Ya, saya bisa ... Benar-benar lupa tentang ini, terima kasih
Victor A.

Karena pernyataan Groovy dapat dipisahkan oleh baris baru atau ;keduanya panjangnya 1 karakter, saya sarankan untuk memilih baris baru agar mudah dibaca. Dan menyerah dengan kebiasaan pengkodean yang baik, singkirkan itu intdan def.
manatwork

Pada printternary pertama simpan kondisi dalam variabel sebagai (j=i>30), maka dalam 2 berikutnya gunakan hanya jdaripada mengulangi i>30kondisi yang sama .
manatwork

1

JavaScript (ES6), 163 125 byte

f=
n=>` _____I_____
3 5 4
30504
3 |^| 4
3121214
|_|_|_|_|_|_|`.replace(/\d/g,c=>(n>31?`oXX`:`^Vv`)[c]||(c-3^n>30?`| |`:`| | |`))
;
<input type=number oninput=o.textContent=f(this.value)><pre id=o>

Sekarang tanpa malu-malu mencuri trik @ ETHproduction untuk memposisikan wajah. Pengkodean: 0adalah mata, 1dan 2gigi, 3adalah sisi kiri, 4adalah sisi kanan dan 5merupakan jembatan hidung.


0

Ruby, 168 byte

->i{s=(Zlib.inflate Base64.decode64 "eJxTiAcBTzDJVaOABCG8OCiGycUhyYWVASGYF48EuRTwGhmHZkgckhzMQBKNzIdibEZGgAA2IwFZA1N4").lines;puts i<31?s[0..5]:i<32?s[6..11]:s[12..17]}

Mungkin jauh dari optimal. Membutuhkan base64dan zlibperpustakaan.

Sebut sebagai fungsi lambda.


0

Python 2, 167 byte

i=input()
b='| |';e='^o'[i>31]+b;print'\n'.join(x[::[1,-1][i>30]]for x in[' _____I_____ ','| '*5+b,b+' |'+e+e,b+' | |^| '+b,b+' |'+['VvVvV','X'*5][i>31]+b,'|_'*6+'|'])

-1

C # 6, 223 215 byte

int d=int.Parse(args[0]);var x="| | |\n| |";var s=d<31?" |^| |^| |\n| | | |^"+x+" |VvVvV":(d==31?"^| |^"+x+" |^| "+x+"VvVvV| ":"o| |o"+x+" |^| "+x+"XXXXX| ");Write(" _____I_____\n| | | | "+x+s+"| |\n|_|_|_|_|_|_|");

Seluruh program ungolfed:

using static System.Console;
namespace Halloween
{
    public class Program
    {
        public static void Main(string[] args)
        {
            int d = int.Parse(args[0]);
            var x = "| | |\n| |";
            var s = d < 31 ? " |^| |^| |\n| | | |^" + x + " |VvVvV" 
                           : (d == 31 ? "^| |^" + x + " |^| " + x + "VvVvV| " 
                                      : "o| |o" + x + " |^| " + x + "XXXXX| ");
            Write(" _____I_____\n| | | | " + x + s + "| |\n|_|_|_|_|_|_|");
        }
    }
}

2
Ini hanya beberapa kode bukan fungsi atau program, Anda dapat mengkompilasinya ke suatu Func<int, string>yang biasanya merupakan cara terpendek untuk melakukannya.
TheLethalCoder

1
Saya yakin Anda dapat menyimpan beberapa byte dengan memindahkan kondisi ke Writebukannya mendeklarasikan dan mendefinisikan s.
Titus

2
Dan mengapa \r\nbukannya adil \n?
Titus

tidak ada yang menghentikan Anda untuk melakukannya dengan lebih baik
IonutC

3
Mereka hanya membantu Anda!
MrPaulch
Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.