#!/usr/bin/perl -l @_=((105)x2,(110)x1,(104)x1, (97)x4);s/(..)/chr($1+$_[$i]) /eg,$i++for@$=qw(I 14000303 000106 1200100715 1500150417 000817151100130418 0813 0211001818 );print"@$."
Update: I forgot to print it out 500 times. *blush*
#!/usr/bin/perl -l @_=((105)x2,(110)x1,(104)x1, (97)x4);s/(..)/chr($1+$_[$i])/eg,$i ++for@$=qw(I 14000303 000106 1200100715 1500150417 000817151100130418 0813 0211001818 );print"@$.$/"x(($=-=10)*10)
------
We are the carpenters and bricklayers of the Information Age.
The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6
Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.
In reply to (Obfu) Airplanes in class
by dragonchild
in thread (TIMTOWTDI / Golf / Obfu) Airplanes in class
by Juerd
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |