5 lines
123 B
Racket
5 lines
123 B
Racket
#lang racket
|
|
|
|
+inf.0 ; positive infinity
|
|
(define (finite? x) (< -inf.0 x +inf.0))
|
|
(define (infinite? x) (not (finite? x)))
|