File: bench-random-prime-bigint.pl

package info (click to toggle)
libmath-prime-util-perl 0.73-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 2,796 kB
  • sloc: perl: 24,676; ansic: 11,471; makefile: 26; python: 24
file content (21 lines) | stat: -rwxr-xr-x 447 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
#!/usr/bin/env perl
use strict;
use warnings;

use Math::Prime::Util qw/random_nbit_prime/;
use Math::BigInt try=>'GMP';
use Benchmark qw/:all/;
use List::Util qw/min max/;
my $count = shift || -3;

srand(29);
test_at_bits($_) for (15, 30, 60, 128, 256, 512, 1024, 2048, 4096);

sub test_at_bits {
  my $bits = shift;
  die "Digits must be > 0" unless $bits > 0;

  cmpthese($count,{
    "$bits bits" => sub { random_nbit_prime($bits); },
  });
}