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

4 lines
52 B
Scheme

#lang sicp
(define (cdr z)
(z (lambda (p q) q)))