ASOCS

摘要： (define f-expt (lambda (b n) (define f-i (lambda (b n value cnt) (if (= n cnt) value (cond [(> (* 2 cnt) n) (f-i b n (* value b) (+ cnt 1))] [else (f-i b n (* value value) (* 2 cnt))])))) (f-i b... 阅读全文

摘要： 1 (define pascal2 (lambda (x y)3 (cond [(= y 1) 1]4 [(= x 1) 1]5 [(= x y) 1]6 [else (+ (pascal (- x 1) (- y 1))7 (pascal (- x 1) y))])))(define pascal (lambda (x y) (cond [(= y 1) 1] [(= x 1) 1] [(= x y) 1] [else (+ (pas... 阅读全文