Perl 5, 54 byte / 71 caratteri ASCII stampabili
Nota: questa è la seconda versione di questa risposta. Per la versione originale a 64 byte / 95 caratteri che utilizza PHP e gzinflate (), vedere la cronologia di questa risposta .
Ecco la versione ASCII stampabile a 71 caratteri:
y/01/ #/,say for unpack'(B40)4',unpack u,'4I*`1`(JJI!$FFNRJU52HIJ0*))H'
La versione a 54 byte contiene caratteri non stampabili, quindi la sto fornendo come dump esadecimale. Sui sistemi Unixish, puoi usare xxd -r
per trasformare il dump esadecimale in uno script Perl eseguibile:
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 ...$.'
Entrambi devono essere eseguiti con perl -M5.010
per abilitare la say
funzione Perl 5.10+ . Produrranno il seguente output:
(Indicato come uno screenshot, perché l'enorme altezza della linea su SE rende l'arte ASCII brutta e difficile da leggere. La minuscola "e" è un po 'imbarazzante, ma credo che questo si qualifichi come leggibile, anche se a malapena.)
Ps.Se l'output della soluzione sopra sembra troppo minimalista per te, ecco una variante di 92 caratteri che produce output simile alla soluzione di Tomas :
y/01/ #/,say for unpack'(B56)*',unpack u,'CH!(`"(`"":,2``B``@GGDC\'(C#(YI!)("I)"2*,),`4,03D'
Ecco uno screenshot:
Pps. sono abbastanza sicuro questo ( GolfScript, 51 caratteri ) sia la soluzione ASCII stampabile più breve, se non conti quelli che chiamano semplicemente banner / FIGLet o che imbrogliano in qualche altro modo:
'iJ@Q@HmURBIMM{JkUUJeMRAQIM'{2base(;{' #'=}/}%39/n*
L'output è lo stesso della mia soluzione Perl da 71 caratteri sopra.
bash
: 33 caratteri - pastebin.com/HZ1w8z8g È accettabile?