Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
   my $engine = Engine->new(NUM_WORKERS);
   printf("%s! = %s\n", $_, fibonacci($engine, $_)) for 1..10;
}
  2. or download this
    1! = 1
2! = 1
...
8! = 21
9! = 34
10! = 55
  3. or download this
    BEGIN {
   package Semaphore;
...
   $INC{'Engine.pm'} = __FILE__;
}