diff options
author | Werner Koch <[email protected]> | 1998-02-24 18:50:46 +0000 |
---|---|---|
committer | Werner Koch <[email protected]> | 1998-02-24 18:50:46 +0000 |
commit | 5a05af2bca319adc9a915ff4466f04c3ef05142a (patch) | |
tree | 24292fd49662c09acbe4d6eae321888cbb175585 /tools | |
parent | rel 0.2.7 mit kleines Korrekturen (diff) | |
download | gnupg-V-0-2-8.tar.gz gnupg-V-0-2-8.zip |
Renamed to GNUPGV-0-2-8
Diffstat (limited to '')
-rw-r--r-- | tools/bftest.c | 8 | ||||
-rw-r--r-- | tools/mpicalc.c | 8 | ||||
-rw-r--r-- | tools/primes.scm | 31 |
3 files changed, 8 insertions, 39 deletions
diff --git a/tools/bftest.c b/tools/bftest.c index cd0eef972..764a82610 100644 --- a/tools/bftest.c +++ b/tools/bftest.c @@ -1,14 +1,14 @@ /* bftest.c - Blowfish test program - * Copyright (c) 1997 by Werner Koch (dd9jn) + * Copyright (C) 1998 Free Software Foundation, Inc. * - * This file is part of G10. + * This file is part of GNUPG. * - * G10 is free software; you can redistribute it and/or modify + * GNUPG is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * - * G10 is distributed in the hope that it will be useful, + * GNUPG is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. diff --git a/tools/mpicalc.c b/tools/mpicalc.c index 0bee7fc42..f5ea14a81 100644 --- a/tools/mpicalc.c +++ b/tools/mpicalc.c @@ -1,5 +1,5 @@ /* mpitest.c - test the mpi functions - * Copyright (c) 1997 by Werner Koch (dd9jn) + * Copyright (C) 1998 Free Software Foundation, Inc. * * This is a RPN calculator; values must be given in hex. * Operaion is like dc(1) except that the input/output radix is @@ -7,14 +7,14 @@ * Addition operators: ++ and --. All operators must be delimeted by a blank * * - * This file is part of G10. + * This file is part of GNUPG. * - * G10 is free software; you can redistribute it and/or modify + * GNUPG is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * - * G10 is distributed in the hope that it will be useful, + * GNUPG is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. diff --git a/tools/primes.scm b/tools/primes.scm deleted file mode 100644 index 0772cdcf9..000000000 --- a/tools/primes.scm +++ /dev/null @@ -1,31 +0,0 @@ -(define (prime? n) - (define (smallest-divisor n) - (find-divisor n 2)) - (define (find-divisor n test) - (cond ((> (square test) n) n) - ((divides? test n) test) - (else (find-divisor n (+ test 1))))) - (define (divides? a b) - (= (remainder b a) 0)) - (define (square n) - (* n n)) - (= n (smallest-divisor n))) - -(define count 0) - - - -(define (display-prime n) - (display n) - (display ", ") - (cond ((> count 8) (display "\n") (let count 0)) - (else (define count (+ count 1))))) - - -(define (primes n limit) - (if (prime? n) - (display-prime n) ) - (if (< n limit) - (primes (+ n 1) limit)) ) - -(primes 3 5000) |