I just turned 15 yesterday, so I thought I'd make a little something.
On an unrelated note, school ended yesterday as well, so it's not like I was bored or anything ;-)
Enjoy!
f(e( ));sub a{%cp=
(''. '131',[8,3 ],
'1'. '30',
[2], '12'.
'2', [21],'129',[
15, 11,
23], ''.
'1'. '19',[9,18],
'1'. '16', [10,22,14], '125', [6],'1'. '26', [7],'1'. '23
+', [16],
'2'. '5',[ 25], '95', [13], '61', [24
+],
'114',[20], '47',[4,17 ,12],'112',[19, 5],'' .'1
+32',[1],
'89', [0] ) ; %cp; }sub
+ b {
15;} sub c{ $e= $_[0] -15; $e;}
+ sub d
{chr ($_[
+0]);}sub
e {
%cp = a();
@cs=();foreach(keys %cp){my$av=c($_);my$cv=d($av);foreach(@{$cp{$av
++15}}){
$cs[$_]=$cv;}}return@cs;}sub f {print join( "", @_ );print "\n";}
~
Thomas~
bless( $you ) if $you->{sneezed};