Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
    for (@_) { $t = $t<<1 if $_; }
    return 2 == $t;
}

Select or download this

           anonmonk1 :  3.26 secs   100% (3 errors)
           snowhare4 :  4.50 secs   138% (0 errors)
...
          tanktalus1 : 15.49 secs   475% (0 errors)
             ph713_1 : 20.21 secs   620% (0 errors)
             davido1 : 21.96 secs   674% (0 errors)