Help for this page

Select Code to Download


  1. or download this
      sub {{
    my $ret = [ map {int} @$c ];
    ...
  2. or download this
      $w = [ map {
       my $v = $f + $s*$_/$i;
...
       $v # not int $v
     } @$w ];
     $w->[-1] += $f;
  3. or download this
    use constant PI => 4 * atan2(1,1);

...
</tr>};
}
print "</table></body></html>\n";