Perl 5, 54 Byte / 71 druckbare ASCII-Zeichen
Hinweis: Dies ist die zweite Version dieser Antwort. Informationen zur ursprünglichen 64-Byte- / 95-Zeichen-Version mit PHP und gzinflate () finden Sie im Verlauf dieser Antwort .
Hier ist die druckbare ASCII-Version mit 71 Zeichen:
y/01/ #/,say for unpack'(B40)4',unpack u,'4I*`1`(JJI!$FFNRJU52HIJ0*))H'
Die 54-Byte-Version enthält nicht druckbare Zeichen, daher stelle ich sie als Hex-Dump zur Verfügung. Auf Unixish-Systemen können Sie xxd -r
den Hex-Dump wieder in ein ausführbares Perl-Skript umwandeln :
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 ...$.'
Beide müssen mit ausgeführt werden perl -M5.010
, um die Perl 5.10+ say
-Funktion zu aktivieren . Sie werden die folgende Ausgabe erzeugen:
(Als Screenshot gezeigt, weil die große Zeilenhöhe in SE ASCII-Grafiken hässlich und schwer lesbar macht. Das Kleinbuchstaben "e" ist etwas umständlich, aber ich glaube, dass dies als lesbar gilt, wenn auch kaum.)
Ps. Wenn sich die Ausgabe der obigen Lösung für Sie zu minimalistisch anfühlt, finden Sie hier eine Variante mit 92 Zeichen , die eine Ausgabe ähnlich der von Tomas erzeugt :
y/01/ #/,say for unpack'(B56)*',unpack u,'CH!(`"(`"":,2``B``@GGDC\'(C#(YI!)("I)"2*,),`4,03D'
Hier ist ein Screenshot:
Pps. Ich bin mir ziemlich sicher, dass dies ( GolfScript, 51 Zeichen ) die kürzeste druckbare ASCII-Lösung ist, wenn Sie nicht diejenigen zählen, die nur banner / FIGLet oder auf andere Weise cheaten:
'iJ@Q@HmURBIMM{JkUUJeMRAQIM'{2base(;{' #'=}/}%39/n*
Die Ausgabe ist die gleiche wie für meine 71-Zeichen-Perl-Lösung oben.
bash
: 33 zeichen - pastebin.com/HZ1w8z8g Ist das akzeptabel?