Hatena::Grouphokudaisicp

TSBの日記

 | 

2008-12-01

1.3 --- 1-42

| 16:34

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

(define (square x) (* x x))

(define (compose proc2 proc1) (lambda(x) (proc2 (proc1 x)) ) )

(print ( (compose square inc) 6) )

 |