Help for this page

Select Code to Download


  1. or download this
    sub sub1() {
    for my $count (0..2) {
...
        my $result = sprintf "$count iteration$declension so far...\n"
+;
    }
}
  2. or download this
    timethis 2000000: 52 wallclock secs (26.95 usr +  0.39 sys = 27.34 CPU
+) @ 73152.89/s (n=2000000)
timethis 2000000: 38 wallclock secs (25.47 usr +  0.34 sys = 25.81 CPU
+) @ 77489.35/s (n=2000000)