Perl 5, 54 octets / 71 caractères ASCII imprimables
Remarque: Ceci est la deuxième version de cette réponse. Pour la version originale à 64 octets / 95 caractères utilisant PHP et gzinflate (), voir l'historique de cette réponse .
Voici la version ASCII imprimable à 71 caractères:
y/01/ #/,say for unpack'(B40)4',unpack u,'4I*`1`(JJI!$FFNRJU52HIJ0*))H'
La version à 54 octets contient des caractères non imprimables, je la fournis donc sous forme de vidage hexadécimal. Sur les systèmes Unixish, vous pouvez utiliser xxd -r
pour reconvertir le vidage hexadécimal en script Perl exécutable:
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 ...$.'
Les deux doivent être exécutés avec perl -M5.010
pour activer la fonctionnalité Perl 5.10+ say
. Ils produiront la sortie suivante:
(Illustré en tant que capture d'écran, car l'énorme hauteur de ligne sur SE rend l'art ASCII moche et difficile à lire. La minuscule "e" est un peu gênante, mais je crois que cela est lisible, à peine si.)
Ps. Si le résultat de la solution ci-dessus vous semble trop minimaliste, voici une variante à 92 caractères produisant un résultat similaire à la solution de Tomas :
y/01/ #/,say for unpack'(B56)*',unpack u,'CH!(`"(`"":,2``B``@GGDC\'(C#(YI!)("I)"2*,),`4,03D'
Voici une capture d'écran:
Pps. Je suis presque sûr que ceci ( GolfScript, 51 caractères ) est la solution imprimable au format ASCII la plus courte, si vous ne comptez pas ceux qui appellent simplement banner / FIGLet ou qui trichent d'une autre manière:
'iJ@Q@HmURBIMM{JkUUJeMRAQIM'{2base(;{' #'=}/}%39/n*
Le résultat est le même que pour ma solution Perl à 71 caractères ci-dessus.
bash
: 33 caractères - pastebin.com/HZ1w8z8g Est-ce acceptable?