Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/perl

for(0..39){$i=-1+$_*.05;for(0..59){$r=$j=-2.3+$_*.05;
$z=$i;$b=" ";for(0..255){$m=$r*$r;$n=$z*$z;if($m+$n>4)
{$b="+";last}$z=2*$r*$z+$i;$r=$m-$n+$j}print$b}print"\n"}
  2. or download this
    __END__
Output should be this:
...
++++++++++++++++++++++++++++++++++++++++++++ +++++++++++++++
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++