Perl 5, 54 bajty / 71 znaków ASCII do wydruku
Uwaga: jest to druga wersja tej odpowiedzi. W przypadku oryginalnej wersji 64-bajtowej / 95-znakowej używającej PHP i gzinflate () zobacz historię tej odpowiedzi .
Oto 71-znakowa wersja ASCII do wydruku:
y/01/ #/,say for unpack'(B40)4',unpack u,'4I*`1`(JJI!$FFNRJU52HIJ0*))H'
Wersja 54-bajtowa zawiera znaki niedrukowalne, więc udostępniam ją jako zrzut heksadecymalny. W systemach uniksowych możesz użyć, xxd -r
aby zmienić zrzut szesnastkowy z powrotem w wykonywalny skrypt Perla:
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 ...$.'
Oba należy uruchomić, perl -M5.010
aby włączyć funkcję Perla 5.10+ say
. Wyprodukują one następujące dane wyjściowe:
(Pokazany jako zrzut ekranu, ponieważ ogromna wysokość linii na SE sprawia, że sztuka ASCII jest brzydka i trudna do odczytania. Mała litera „e” jest trochę niezręczna, ale uważam, że można ją zakwalifikować jako czytelną, jeśli tylko ledwo.)
Ps. Jeśli wynik powyższego rozwiązania wydaje Ci się zbyt minimalistyczny, oto 92-znakowy wariant, który daje wynik podobny do rozwiązania Tomasa :
y/01/ #/,say for unpack'(B56)*',unpack u,'CH!(`"(`"":,2``B``@GGDC\'(C#(YI!)("I)"2*,),`4,03D'
Oto zrzut ekranu:
Pps. Jestem prawie pewien, że to ( GolfScript, 51 znaków ) jest najkrótszym rozwiązaniem ASCII do wydruku, jeśli nie liczyć tych, które nazywają banner / FIGLet lub które oszukują w inny sposób:
'iJ@Q@HmURBIMM{JkUUJeMRAQIM'{2base(;{' #'=}/}%39/n*
Dane wyjściowe są takie same jak dla mojego powyższego 71-znakowego rozwiązania Perl.
bash
: 33 znaków - pastebin.com/HZ1w8z8g Czy to możliwe?