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

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

Fix exact-integer-sqrt.
This commit is contained in:
Yuichi Nishiwaki 2014-09-20 20:31:57 +09:00
parent 38a1f92abd 95cf997b9f
commit 92e0961bb7
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?