Por @Alvy — 27 de octubre de 2006

A pesar de las clásicas limitaciones de la consola, y usando Perl, uno de los lenguajes de programación más ofuscados del universo, Root nos ha enviado cómo conseguir una figura imposible estilo M.C. Escher con unas pocas líneas de Perl…

#!/usr/bin/perl -i=-/*/~%*~%/~~%/~~~-/*/_/=~~~-/====~~! 
$o=35;
$_=\"$^I-*!=====_!/\";s/~/!*/g;s~%~-/ / ~g;$_.=\'---     Escher\';
s/=/__/g;
y|*!| \\\\|;
for(split/-/){print\' \'x$o--.\"$_\\n\"}

SerVer ~ # ./escher

                                   __
/ /\\
/ / \\
/ / /\\ \\
/ / /\\ \\ \\
/ /_/__\\ \\ \\
/________\\ \\ \\
\\___________\\/

Compartir en Flipboard Publicar / Tuitear Publicar