TPK algorithm: Difference between revisions

Content deleted Content added
Perl golf: 79->74
Perl golf: 74->73
Line 26:
 
==Perl golf==
The following [[Perl]] implementation is 7473 [[byte]]s.
 
<source lang=perl>
map print(($_>400?"TOO LARGE":$_).$/),reverse map 5*<>*5**3+sqrt abs$_,1..11
</source>