3 # Reads ptab.in or similarly-formatted file; writes a calc script to check
7 next if /^\s*(\#[^!]|$)/;
9 if ($F[0] eq "group") {
11 $_ = <>; @F = split; $F[0] eq "p" or die $F[0]; $p = $F[1];
12 $_ = <>; @F = split; $F[0] eq "q" or die $F[0]; $q = $F[1];
13 $_ = <>; @F = split; $F[0] eq "g" or die $F[0]; $g = $F[1];
15 print "testing $group...";
19 if (!ptest(p)) print " p not prime";
20 if (!ptest(q)) print " q not prime";
21 if ((p - 1)%q) print " q doesn't divide p - 1";
23 if (pmod(g, q, p) != 1) print " g doesn't have order q";
24 if (pmod(g, h, p) == 1) print " g generates overly large group";
29 $_ = <>; @F = split; $F[0] eq "#:factor" or last; $f = $F[1];
32 if (!ptest(f)) print " factor not prime", f;
39 if (ff != p - 1) print " missing factors";