Perl 5, 54 bytes / 71 caracteres ASCII imprimíveis
Nota: Esta é a segunda versão desta resposta. Para a versão original de 64 bytes / 95 caracteres usando PHP e gzinflate (), consulte o histórico desta resposta .
Aqui está a versão ASCII imprimível de 71 caracteres:
y/01/ #/,say for unpack'(B40)4',unpack u,'4I*`1`(JJI!$FFNRJU52HIJ0*))H'
A versão de 54 bytes contém caracteres não imprimíveis, por isso estou fornecendo-a como um dump hexadecimal. Em sistemas Unixish, você pode usar xxd -r
para transformar o hex dump novamente em um script Perl executável:
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 ...$.'
Ambos precisam ser executados perl -M5.010
para ativar o say
recurso Perl 5.10+ . Eles produzirão a seguinte saída:
(Mostrado como uma captura de tela, porque a enorme altura da linha no SE torna a arte ASCII feia e difícil de ler. A letra minúscula "e" é meio estranha, mas acredito que isso se qualifica como legível, mesmo que apenas um pouco.)
Ps. Se a saída da solução acima parecer muito minimalista para você, aqui está uma variante de 92 caracteres que produz uma saída semelhante à solução de Tomas :
y/01/ #/,say for unpack'(B56)*',unpack u,'CH!(`"(`"":,2``B``@GGDC\'(C#(YI!)("I)"2*,),`4,03D'
Aqui está uma captura de tela:
Pps. Tenho certeza de que essa ( GolfScript, 51 caracteres ) é a menor solução ASCII imprimível, se você não contar as que chamam de banner / FIGLet ou que trapaceiam de alguma outra maneira:
'iJ@Q@HmURBIMM{JkUUJeMRAQIM'{2base(;{' #'=}/}%39/n*
A saída é a mesma da minha solução Perl de 71 caracteres acima.
bash
: 33 caracteres - pastebin.com/HZ1w8z8g Isso é aceitável?