$a=$_-($A[$_]=$A[++$b]+$A[$b=++$a])for(@A=(1,1))..299;$,=$/,print@A
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page