Perl 5, 54 bayt / 71 yazdırılabilir ASCII karakter
Not: Bu, bu cevabın ikinci sürümüdür. PHP ve gzinflate () yöntemini kullanan orijinal 64 bayt / 95 karakter sürümü için bu cevabın geçmişine bakın .
İşte 71-char yazdırılabilir ASCII versiyonu:
y/01/ #/,say for unpack'(B40)4',unpack u,'4I*`1`(JJI!$FFNRJU52HIJ0*))H'
54 bayt sürümü yazdırılamaz karakter içeriyor, bu yüzden onaltılık bir döküm olarak veriyorum. Unixish sistemlerde, xxd -r
altıgen dökümü tekrar çalıştırılabilir bir Perl betiğine dönüştürmek için kullanabilirsiniz:
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 ...$.'
perl -M5.010
Perl 5.10+ say
özelliğini etkinleştirmek için her ikisinin de çalıştırılması gerekir . Aşağıdaki çıktıyı üretecekler:
(Bir ekran görüntüsü olarak gösterilir, çünkü SE'deki büyük çizgi yüksekliği ASCII sanatını çirkin ve okumayı zorlaştırır. Küçük harf "e" biraz gariptir, ancak bunun ancak zor okunabilir nitelikte olduğuna inanıyorum.)
Ps. Yukarıdaki çözümün çıktısı sizin için çok minimalist hissediyorsa, işte Tomas'ın çözümüne benzer çıktılar üreten 92 karakterli bir değişken :
y/01/ #/,say for unpack'(B56)*',unpack u,'CH!(`"(`"":,2``B``@GGDC\'(C#(YI!)("I)"2*,),`4,03D'
İşte bir ekran görüntüsü:
Pps. Ben eminim bu ( GolfScript, 51 karakter Eğer olanları saymazsak) en kısa yazdırılabilir ASCII çözüm olduğunu sadece çağrı afiş / FIGLet veya başka bir şekilde bu hile:
'iJ@Q@HmURBIMM{JkUUJeMRAQIM'{2base(;{' #'=}/}%39/n*
Çıktı yukarıdaki 71-charl Perl çözümüm ile aynı.
bash
: 33 karakter - pastebin.com/HZ1w8z8g Bu kabul edilebilir mi?