|
[Date Prev] [Date Next] [Thread Prev] [Thread Next] [Date Index] [Thread Index]
|
Philippe Bruhat's amazing T-shirt design
|
I mentioned it at dinner last night:
#!/usr/bin/perl -wT
use strict;use Safe;(my$s=new Safe)->permit(qw/rand sort entereval/);@_{s=>'t'
}=(<<Orange,"smrfnexi--tjfillx ybvwvngwr ;-)\r");%_=(%_,split(/(\n^.{24})/m,q[
____ ____ ____ _________ ________ _
\ \ / / / \ | V \ Hogeschool Holland | | __ __
\ \/ / / \ | __ \ ____/ __ __ Amsterdam / __) \ \/ /
\ / / /\ \ | | \ | / / \ / \ Netherlands \__ \ > <
| | / /__\ \| |__/ / | \__/ \__/ August 2-4 ( / /_/\_\
__|____|_/ ______ \ ____/ \____ __ __ 2001 _|_| __ __
| \ / \ \ | \ \/ \ / \ / __ \ \ \/ /
| ______/_/ __ _\___\__|____\________/\__/_\__/ ---- / / _` | > <
| \ | | | | V V __ \ | ___ \/ __ \ \ \__,_|/_/\_\
| ___/ | | | | ___/ / \ \| |___) ) /__) ) Coded by \___/_ __ __
| |_____| |__| | | | | | | ____/ ____/ Philippe (_)/ / \ \/ /
| \ | | \ \__/ /| | \ \ "BooK" / /_ > <
|_________/\____,__|__| \______/ |__| \_____/ Bruhat /_/(_)/_/\_\
Orange
____ ___ ___ _ ..(substr($y[&a],&p,1)=chr 97+(ord(substr$y[&a],&p,1)+
(___ \ / _ \_/ _ \/ | $c='( +)';s/(key)|eval/$1?"value":""/eg;*y=[split/(\W+
__) | | | | | | | | c())%26)}sub p{$y%length$y[&a]}sub a{$p%3*2}print"\n";
__/ __/| | | | | | | | ){print@y if(select($/,$,,$<,.1*rand)||($y+=$p+++&c)).
(__)/___| |_| | |_| | | )/,$_{t}];($_=eval)=~y/\n//d;sub c{length};for(split$c
(_____(_)___(_)___/|_| udy]),'');$|++;$s->reval($_='eval join"",sort+keys%_')
**Majordomo list services provided by PANIX <URL:http://www.panix.com>**
**To Unsubscribe, send "unsubscribe phl" to majordomo@lists.pm.org**
|
|