初心者プログラマ気分

全然、スムーズに書けない。文献とか読んで判った気分になって、いざ書こうとしたら、全然ダメだ。
Scheme演習 第１回の問2のコード書くだけで、1時間ぐらい費やしてしまった。

      1 (define even>odd?

      2   (lambda (x)

      3     (let ((even-num 0)

      4          (odd-num 0))

      5     (letrec ((count (lambda (x)

      6       (if (even? (car x))

      7         (set! even-num (+ even-num 1))

      8         (set! odd-num (+ odd-num 1)))

      9       (if (not (null? (cdr x))) (count (cdr x))))))

     10     (count x))

     11     (> even-num odd-num))))

たったこんだけなのに。しかももっと巧いやり方とかあるんだろうけど、まだ全然Scheme自体理解できてないので、これぐらいで良いか…。
先は長そう。でも楽しい。