conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix exact-integer-sqrt. 

Signed-off-by: OGINO Masanori <masanori.ogino@gmail.com>
This commit is contained in:
OGINO Masanori 2014-09-20 20:12:15 +09:00
parent 0a4ea0704d
commit 95cf997b9f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
contrib/05.r7rs/scheme/base.scm
View File

@ -260,7 +260,7 @@
(* x x)) (* x x))
(define (exact-integer-sqrt k) (define (exact-integer-sqrt k)
(let ((s (exact (sqrt k)))) (let ((s (exact (floor (sqrt k)))))
(values s (- k (square s))))) (values s (- k (square s)))))
(export number? (export number?