TPK algorithm: Difference between revisions

Revision as of 16:40, 15 May 2007

Revision as of 16:47, 15 May 2007

Line 26:

==Perl golf==

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

<source lang=perl>

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

</source>