TPK algorithm: Difference between revisions

Revision as of 23:59, 27 November 2004

Revision as of 16:00, 15 December 2004

Line 30:

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

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

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

</pre>