Hatena::Grouphokudaisicp

TSBの日記

 | 

2008-12-01

1.3 --- 1-43

| 17:24

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

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

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

(define (repeated proc num)

(

if(> num 0) (lambda(x) ( (repeated proc (- num 1)) (proc x) ) )

(lambda(x) x)

)

)

(print ( (repeated square 3) 5))

以上のやつはだめみたい。

procが重なってない。

単純に計算を逐次的にやってるように見えるだけ?

 |