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

View File

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