Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (6 sloc) 141 Bytes
(define (make-interval a b)
(cons a b))
(define (upper-bound i)
(max (car i) (cdr i)))
(define (lower-bound i)
(min (car i) (cdr i)))