gistfile1.txt

sub mandelbrot($c) {
    my $z = $c;
    for 1 .. 20 {
        $z = $z * $z + $c;
        return $_ if abs $z > 2;
    }
}
 
loop (my $y = 1; $y >= -1; $y -= 0.05) {
    loop (my $x = -2; $x <= 0.5; $x += 0.0315) {
        print mandelbrot($x + $y * i) ?? ' ' !! '#';
    }
    print "\n";
}