sicp/1_41.sch

3 lines
45 B
Scheme

(define (double f)
(lambda (x) (f (f x))))