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};
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.