Help for this page

Select Code to Download

Select or download this

use Modern::Perl;
use Time::HiRes qw/time/;

...
say sprintf "Printing all: %.6f seconds", ( $end - $found );
say sprintf "Running time: %.6f seconds", ( $end - $start );

Select or download this

2
3
5
...
Found all:    0.000692 seconds
Printing all: 0.000879 seconds
Running time: 0.001571 seconds