sicp-solutions/chapter-2/ex-2.07.scm

7 lines
83 B
Scheme

#lang sicp
(define (lower-bound i)
(car i))
(define (upper-bound i)
(cdr i))