TPK algorithm: Difference between revisions

Revision as of 14:06, 14 May 2007

Revision as of 12:14, 15 May 2007

Line 28:

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

<source lang=perl>

<pre>

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

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

</presource>

==Python version==