Powered by Google
  • Blog personal más o menos geek:
  • tecnología, ciencia, internet, gadgets…
  • Por Nacho, Alvy, Wicho y Cron
Microsiervos
La Singularidad se comió nuestros deberes


Viernes, 27 de Octubre de 2006

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

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

Publicado por Alvy el 27/10/2006
Categoría: Arte y Diseño
Enviar por correo Enviar por correo


Descubre otras anotaciones de Microsiervos

Dirigible en posición incómodaBloons: un juego fácil y divertido, el destructor de la productividad de hoy30 aniversario del Apple IIA subasta las plazas del primer vuelo comercial de un Airbus A380

Publicidad



¿Qué es esto?

Estás leyendo una anotación de un weblog llamado Microsiervos, un sitio web personal en el que escribimos varios amigos.

Puedes visitar los archivos clasificados por fechas y por categorías o ir a la portada para ver lo más reciente que se ha publicado o leer más acerca de Microsiervos.