in reply to (TIMTOWTDI / Golf / Obfu) Airplanes in class

#!/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"@$."

[download]

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)

[download]

------
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 Section Meditations