TPK algorithm: Difference between revisions

Revision as of 15:40, 13 May 2007

Revision as of 14:06, 14 May 2007

Line 29:

<pre>

while($.<1011){$_[1011-$.]=sqrt(abs($x=<>))+5*$x**3}

map print(($_>400?"TOO LARGE":$_)."\n"),@_

</pre>