diff options
| author | Alessio Treglia <alessio@debian.org> | 2011-03-24 09:13:51 +0100 |
|---|---|---|
| committer | Alessio Treglia <alessio@debian.org> | 2011-03-24 09:13:51 +0100 |
| commit | e5328e59987b90c4e98959510b810510e384650d (patch) | |
| tree | 0f140b79d942c4654701d8fb4cfe2f1dd904f9f0 /primes.scm | |
| parent | 36cf8384e5699cda3f1ca607753fe4d4a8515b01 (diff) | |
Imported Upstream version 12.0
Diffstat (limited to 'primes.scm')
| -rw-r--r-- | primes.scm | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -4637,7 +4637,7 @@ (call-with-exit (lambda (return) (do ((p 65539 (+ p 2))) - (#f) ; now dumbly check all odd numbers above 65537 -- perhaps c-g? here to abort loop? + (#f) ; now dumbly check all odd numbers above 65537 (do ((val (/ num p) (/ num p))) ((not (integer? val))) (set! factors (cons p factors)) @@ -4691,7 +4691,7 @@ !# #! -(do ((i 0 (1+ i))) +(do ((i 0 (+ 1 i))) ((= i 10)) (let ((num (random (* 75000 75000)))) (display (format #f "~A " num)) |