3 lines
109 B
Scheme
3 lines
109 B
Scheme
+inf.0 ; positive infinity
|
|
(define (finite? x) (< -inf.0 x +inf.0))
|
|
(define (infinite? x) (not (finite? x)))
|