Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixing bug in factor.

Browse source
This commit is contained in:
Alex Shinn 2014-09-19 12:07:28 +09:00
parent 5731ff73f7
commit d382e92b14
2 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/chibi/math/prime.scm
View file

@ -171,15 +171,14 @@
(list n)) (list n))
(else (else
(let lp ((n n) (let lp ((n n)
(limit (exact (ceiling (sqrt n))))
(res (list))) (res (list)))
(cond (cond
((even? n) ((even? n)
(lp (quotient n 2) (quotient limit 2) (cons 2 res))) (lp (quotient n 2) (cons 2 res)))
((= n 1) ((= n 1)
(reverse res)) (reverse res))
(else (else
(let lp ((i 3) (n n) (limit limit) (res res)) (let lp ((i 3) (n n) (limit (exact (ceiling (sqrt n)))) (res res))
(cond (cond
((= n 1) ((= n 1)
(reverse res)) (reverse res))

2
tests/prime-tests.scm
View file

@ -68,6 +68,8 @@
(test '(2 5) (factor 10)) (test '(2 5) (factor 10))
(test '(11) (factor 11)) (test '(11) (factor 11))
(test '(2 2 3) (factor 12)) (test '(2 2 3) (factor 12))
(test '(2 3 3) (factor 18))
(test '(2 2 2 3 3) (factor 72))
(test '(3 3 3 5 7) (factor 945)) (test '(3 3 3 5 7) (factor 945))
(test 975 (aliquot 945)) (test 975 (aliquot 945))