[bugfix] exact-integer-sqrt was broken

2013-12-10 08:30:20 -08:00 · 2013-12-10 08:30:20 -08:00 · 11c0d78957
parent acd70f108d
commit 11c0d78957
1 changed files with 1 additions and 1 deletions
--- a/piclib/built-in.scm
+++ b/piclib/built-in.scm
@ -376,7 +376,7 @@
 (import (scheme inexact))

 (define (exact-integer-sqrt k)
-  (let ((n (exact (sqrt k))))
+  (let ((n (exact (floor (sqrt k)))))
    (values n (- k (square n)))))

 (define (gcd n m)