Microsiervos { Ecología + Fotografía + Juegos + Ciencia + Internet + Aviones + WTF } por Alvy, Nacho y Wicho
Rasca la pantalla para ver si tienes premio
← Potenciando la lectura
Desde Rusia con amor →


M.C. Escher en Perl

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

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