TheSeasonedSchemer (4) - yamanetoshi's diary

今更ながらどうもこの本はこーゆー形ではなくて、ホワイトボードがある所で喧喧諤諤しながら読んだ方が良さげな気がしてきています。 Scheme修行14章 この章、確かに長くはあるのですが、非常に示唆に富んでるというかなかなか面白いです。 第15の戒律 if がようやく出てきた あと、継続との組み合わせで以下な let というか begin の使い方は成程、と言うしかないッスね。 (define leftmost (lambda (l) (letcc skip (letrec ((lm (lambda (l) (cond ((null? l) '()) ((atom? (car l)) (skip (car l))) (else (let () (lm (car l)) (lm (cdr l)))))))) (lm l)))))最後の let の中の最初の lm の呼び出しで skip した場合