Perl 5, 54 byte / 71 karakter ASCII yang dapat dicetak
Catatan: Ini adalah versi kedua dari jawaban ini. Untuk versi 64-byte / 95-char asli menggunakan PHP dan gzinflate (), lihat riwayat jawaban ini .
Berikut adalah versi ASCII 71-char yang dapat dicetak:
y/01/ #/,say for unpack'(B40)4',unpack u,'4I*`1`(JJI!$FFNRJU52HIJ0*))H'
Versi 54 byte berisi karakter yang tidak dapat dicetak, jadi saya menyediakannya sebagai hex dump. Pada sistem Unixish, Anda dapat menggunakan xxd -r
untuk mengembalikan hex dump menjadi skrip Perl yang dapat dieksekusi:
0000000: 792f 3031 2f20 232f 2c73 6179 2066 6f72 y/01/ #/,say for
0000010: 2075 6e70 6163 6b27 2842 3430 2934 272c unpack'(B40)4',
0000020: 27a4 a011 008a aaa4 1126 9aec aad5 54a8 '........&....T.
0000030: a6a4 0a24 9a27 ...$.'
Keduanya harus dijalankan dengan perl -M5.010
untuk mengaktifkan fitur Perl 5.10+ say
. Mereka akan menghasilkan output berikut:
(Ditunjukkan sebagai tangkapan layar, karena ketinggian garis besar pada SE membuat ASCII jelek dan sulit dibaca. Huruf kecil "e" agak canggung, tapi saya percaya ini memenuhi syarat sebagai dapat dibaca, jika hanya nyaris begitu.)
Ps. Jika output dari solusi di atas terasa terlalu minimalis untuk Anda, berikut adalah varian 92-karakter yang menghasilkan output yang mirip dengan solusi Tomas :
y/01/ #/,say for unpack'(B56)*',unpack u,'CH!(`"(`"":,2``B``@GGDC\'(C#(YI!)("I)"2*,),`4,03D'
Berikut screenshotnya:
Pps. Saya cukup yakin ini ( GolfScript, 51 karakter ) adalah solusi cetak-ASCII terpendek, jika Anda tidak menghitung yang hanya memanggil banner / FIGLet atau yang curang dengan cara lain:
'iJ@Q@HmURBIMM{JkUUJeMRAQIM'{2base(;{' #'=}/}%39/n*
Outputnya sama dengan solusi Perl 71-char saya di atas.
bash
: 33 karakter - pastebin.com/HZ1w8z8g Apakah ini dapat diterima?