RosettaCodeData/Task/Infinity/Scheme/infinity.scm

mirror of https://github.com/acmeism/RosettaCodeData.git
+inf.0 ; positive infinity
(define (finite? x) (< -inf.0 x +inf.0))
(define (infinite? x) (not (finite? x)))
	`+inf.0 ; positive infinity`
	`(define (finite? x) (< -inf.0 x +inf.0))`
	`(define (infinite? x) (not (finite? x)))`