Select Code to Download

map{$a=1-$_/10;map{$d=$a;$e=$b=$_/20-2;$c=X;map{($d,$e)=(2*$d*$e+$a,$
e**2-$d**2+$b);$c=$"if$d**2+$e**2>4}1..50;print$c}0..59;print$/}0..20

map {
   $a = 1-$_/10;
...
   } 0..59;
   print $/
} 0..20