TPK algorithm: Difference between revisions

Revision as of 16:00, 15 December 2004

Revision as of 00:44, 21 January 2005

Line 24:

==Perl golf==

The following [[Perl]] implementation is 183147 bytes. It is shown here on several lines due to page width considerations, but it could be run as a one-liner.

<pre>

print join("\n"map$_.$/,reverse(map(join(' ',map"@$_)",

map([$$_->[0],($$_->[1]>400?'TOO LARGE':$$_->[1])],

map([$$_->[0],sub{sqrt(abs(5*$_[0]))**3+5*sqrt abs$_[0]**3}->($$_->[1])],

map([$_+0,$_=<>],(0..10))))))),"\n";

</pre>