TPK algorithm: Difference between revisions

Content deleted Content added
Perl golf: 147 -> 91
Perl golf: 91->90
Line 29:
 
<pre>
while($.<=9){$_[10-$.]=sqrt(abs($x=<>))+5*$x**3};
map print(($_>400?"TOO LARGE":$_)."\n"),@_
</pre>