Help for this page

Select Code to Download


  1. or download this
    C:\>perl -MPDL -E "srand(3); say rand();"
0.422170424674736

C:\>perl -MPDL -E "srand(3); say rand();"
0.000277820349769087
  2. or download this
    package OverRider;
use strict;
...
  return sprintf "%.7g", $_[0] ** 0.5;
}
1;
  3. or download this
    D:\>perl -Mstrict -Mwarnings -MOverRider -le "print sqrt(2); print COR
+E::sqrt(2);"
1.414214
1.4142135623731