From 95cf997b9f767216a7e26268ec947a2d0b8dc3c0 Mon Sep 17 00:00:00 2001 From: OGINO Masanori Date: Sat, 20 Sep 2014 20:12:15 +0900 Subject: [PATCH] Fix exact-integer-sqrt. Signed-off-by: OGINO Masanori --- contrib/05.r7rs/scheme/base.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/05.r7rs/scheme/base.scm b/contrib/05.r7rs/scheme/base.scm index 690396a1..ece1bbd0 100644 --- a/contrib/05.r7rs/scheme/base.scm +++ b/contrib/05.r7rs/scheme/base.scm @@ -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?