Perl 5, 54 bytes / 71 caracteres ASCII imprimibles
Nota: Esta es la segunda versión de esta respuesta. Para la versión original de 64 bytes / 95 caracteres usando PHP y gzinflate (), vea el historial de esta respuesta .
Aquí está la versión ASCII imprimible de 71 caracteres:
y/01/ #/,say for unpack'(B40)4',unpack u,'4I*`1`(JJI!$FFNRJU52HIJ0*))H'
La versión de 54 bytes contiene caracteres no imprimibles, por lo que la proporciono como un volcado hexadecimal. En los sistemas Unixish, puede usar xxd -r
para volver a convertir el volcado hexadecimal en un script Perl ejecutable:
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 deben ejecutarse perl -M5.010
para habilitar la función Perl 5.10+ say
. Producirán el siguiente resultado:
(Se muestra como una captura de pantalla, porque la gran altura de la línea en SE hace que el arte ASCII sea feo y difícil de leer. La minúscula "e" es un poco incómoda, pero creo que esto califica como legible, aunque sea apenas).
PD. Si la salida de la solución anterior se siente demasiado minimalista para usted, aquí hay una variante de 92 caracteres que produce una salida similar a la solución de Tomas :
y/01/ #/,say for unpack'(B56)*',unpack u,'CH!(`"(`"":,2``B``@GGDC\'(C#(YI!)("I)"2*,),`4,03D'
Aquí hay una captura de pantalla:
Pps Estoy bastante seguro de que esta ( GolfScript, 51 caracteres ) es la solución ASCII imprimible más corta, si no cuenta las que simplemente llaman banner / FIGLet o que hacen trampa de alguna otra manera:
'iJ@Q@HmURBIMM{JkUUJeMRAQIM'{2base(;{' #'=}/}%39/n*
El resultado es el mismo que para mi solución Perl de 71 caracteres anterior.
bash
: 33 caracteres - pastebin.com/HZ1w8z8g ¿Es esto aceptable?