Select Code to Download

#! perl -slw
use strict;
...
    $end = time;
    printf "%u @ %u in %.9f s\n", $v, $p, $end - $start;
}

C:\test>lookup64 -N=150e6

...
1234567890987654321 @ 0 in 0.000018835 s
16536075677023473182
16536075677023473182 @ 171436696 in 0.000000000 s