Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: Parrot vs. C cagematch (Just for fun)

by Joost (Canon)
on Apr 07, 2005 at 21:53 UTC ( [id://445889]=note: print w/replies, xml ) Need Help??


in reply to Parrot vs. C cagematch (Just for fun)

#!/usr/local/bin/perl -w use strict; my ($x, $y, $k, $counter); my @b = split //, " .:,;!/>)|&IH%*#"; my ($r, $i, $z, $Z, $t, $c, $C); my ($begin, $end); $counter = 0; $begin = time; while ($counter < 1000) { for ($y = 30 ; $C = $y * 0.1 - 1.5, $y--;) { print "\n"; for ($x = 0 ; $c = $x * 0.04 - 2, $z = 0, $Z = 0, $x++ < 75 ;) + { for ( $r = $c, $i = $C, $k = 0 ; $t = $z * $z - $Z * $Z + $r, $Z = 2 * $z * $Z + $i +, $z = $t, $k < 112 ; $k++ ) { last if ($z * $z + $Z * $Z > 10); } print $b[ $k % 16 ]; } } $counter++; } $end = time; printf("%d count in %ld secs \n", $counter, $end - $begin);
updated: misplaced the counter++ statement.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://445889]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others about the Monastery: (4)
As of 2024-03-29 07:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found