2005/04/17

そうか、名前付きletを使えばいいのか。

(define rvs
(lambda (ls)
(let ((ls (cons (cons (car ls) ()) (cdr ls))))
(let fishy-rvs ((ls ls))
(let ((amari (cdr ls)))
(if (null? amari)
(car ls)
(fishy-rvs
(cons
(cons (car amari) (car ls))
(cdr amari)))))))))

アルゴリズムは昨日のと同じ。しかし今度はletだらけで、やっぱりうざい。

No comments :