Perl 6 Hints @perl6hints, Twitter Profile

10 years ago

#Perl6 #Mandelbrot for ^40 -> $y {for ^72 {my $z=0;my $i=50;while (--$i&&$z.abs<4) { $z=$z*$z+$_/36-1.5+$y\i/20-i};print $i%9||'.'};say ""}