TPK algorithm: Difference between revisions

Revision as of 16:53, 15 May 2007

Revision as of 17:03, 15 May 2007

Line 26:

==Perl golf==

The following [[Perl]] implementation is 7379 [[byte]]s.

<source lang=perl>

map print(($_>400?"TOO LARGE":$_).$/),reverse map 5*($x=<>*5)**3+sqrt abs$_x,1..11

</source>