Help for this page

Select Code to Download

Select or download this

#!/usr/local/bin/perl5.9.3

...
for my $n (0.3, 0, -4, 7, 9) {
  printf "sqrt(%f) = %f\n", $n, my_sqrt($n);
}

Select or download this

toledo:~# perl5.9.3 -d /tmp/as.pl

...
22
  DB<1> p $n
-4