5 my @chars=split(//, 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890');
8 for(my $i=1000;$i<1060;$i++) { for(my $j=0;$j<10170;$j++) {
16 my $max_iteration = 1000;
18 while ( $x*$x + $y*$y <= (2*2) && $iteration < $max_iteration ) {
19 my $xtemp = $x*$x - $y*$y + $x0;
26 if ( $iteration == $max_iteration ) {
29 $color = int($iteration/100);
31 #print $chars[$color];
33 if ( $iteration < $max_iteration/100 ) {
This page took 0.260646 seconds and 4 git commands to generate.