Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Stub for exact-integer-sqrt

Browse source
This commit is contained in:
Justin Ethier 2016-10-23 21:33:41 +00:00
parent 51577cbb60
commit 9aa0245675
1 changed files with 10 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
scheme/base.sld
View file

@ -35,6 +35,7 @@
floor-remainder floor-remainder
even? even?
exact-integer? exact-integer?
;exact-integer-sqrt
exact? exact?
inexact? inexact?
odd? odd?
@ -1043,6 +1044,15 @@
(if (>= res 0) res (+ res b))))) (if (>= res 0) res (+ res b)))))
(define (odd? num) (= (modulo num 2) 1)) (define (odd? num) (= (modulo num 2) 1))
(define (even? num) (= (modulo num 2) 0)) (define (even? num) (= (modulo num 2) 0))
; ;; from mosh
; (define (exact-integer-sqrt k)
; (unless (and (exact? k)
; (integer? k)
; (not (negative? k)))
; (error "exact non-negative integer required" k))
; (let* ((s (exact (truncate (sqrt k))))
; (r (- k (* s s))))
; (values s r)))
(define (exact-integer? num) (define (exact-integer? num)
(and (exact? num) (integer? num))) (and (exact? num) (integer? num)))
(define-c exact? (define-c exact?