Merge pull request #217 from omasanori/exact-integer-sqrt

Fix exact-integer-sqrt.
2014-09-20 20:31:57 +09:00
parent 38a1f92abd 95cf997b9f
commit 92e0961bb7
1 changed files with 1 additions and 1 deletions
@@ -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?