Help for this page

Select Code to Download


  1. or download this
    use strict;
    use warnings;
    ...
    my $elapsed_time = tv_interval($start_time);
    say "$prime_candidate is a prime " if  $is_prime != 0;
    printf "The [$0] script took %2.2f seconds to finish\n", $elapsed_time
    +;
    
  2. or download this
    $ perl time_is_prime_v1.pl 
    Enter the integer: 99929
    ...
    $ perl time_is_prime_v1.pl 
    Enter the integer: 1320486952377516576  
    1320486952377516576 is not a prime