Your change in the test doesn't work with
demerphq's code.
It does work in my 146 though (for a total of 143).
map{$i=$_/20-1;map{$r=$j=$_/20-2.3;$z=$i;$b=$";$n=$z*$z;($m=$r*$r)>4?
$b="+":($z=2*$r*$z+$i,$r=$m-$n+$j)for a..z;print$b}0..59;print$/}0..39
__END__
++++++++++++++++++++++++++
+++++++ +++++++++++++++++
++++++++ ++++++++++++ +
+++++++++ ++++++++++
++++++++++ ++++++++
+++++++++++ ++++++
++++++++++++ +++
+++++++++++++
++++++++++++++ +
++++++++++++ ++
++++++++++ +++
++++++++++ ++++
++++++++ + +++++
+++++++++ ++++++
++++++++ ++++++
++++++++ +++++++
+++++++ +++++++
+++++++ ++++++++
++++++ ++++++++
++++++ ++++++++
++++++ ++++++++
++++++ ++++++++
++++++ ++++++++
+++++++ ++++++++
+++++++ +++++++
++++++++ +++++++
++++++++ ++++++
+++++++++ ++++++
++++++++ + +++++
++++++++++ ++++
++++++++++ +++
++++++++++++ ++
++++++++++++++ +
+++++++++++++
++++++++++++ +++
+++++++++++ ++++++
++++++++++ ++++++++
+++++++++ ++++++++++
++++++++ ++++++++++++ +
+++++++ +++++++++++++++++
--
perl -pew "s/\b;([mnst])/'$1/g"
