Hatena::Grouphokudaisicp

TSBの日記

2008-12-01

1.3 --- 1-41

| 16:29

(define (inc x) (+ x 1) )

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

(print (((double (double double)) inc) 5) )