projects
/
u
/
mdw
/
catacomb
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
key-data.[ch]: Fix trivial typo.
[u/mdw/catacomb]
/
pcheck.pl
diff --git
a/pcheck.pl
b/pcheck.pl
index
354b0f6
..
3b1447a
100644
(file)
--- a/
pcheck.pl
+++ b/
pcheck.pl
@@
-28,15
+28,15
@@
EOF
for (;;) {
$_ = <>; @F = split; $F[0] eq "#:factor" or last; $f = $F[1];
print <<EOF;
for (;;) {
$_ = <>; @F = split; $F[0] eq "#:factor" or last; $f = $F[1];
print <<EOF;
-
f = $f;
-
if (!ptest(f)) print " factor not prime", f;
-
ff *= f;
+ f = $f;
+ if (!ptest(f)) print " factor not prime", f;
+ ff *= f;
EOF
$ll = 1;
}
if ($ll) {
print <<EOF;
EOF
$ll = 1;
}
if ($ll) {
print <<EOF;
-
if (ff != p - 1) print " missing factors";
+ if (ff != p - 1) print " missing factors";
EOF
}
}
EOF
}
}