2010-01-21から1日間の記事一覧
とりあえず固定なソレを試してみます。色々試行錯誤したんですが以下なソースで
昨晩エントリでナニした reverse の実装ですが、以下。 (define (reverse l) (let f ((l l) (result '())) (if (null? l) result (f (cdr l) (cons (car l) result)))))昨晩の検証の中で頭ではイメージできてたんですが、上記な手続きにできんかった。やっぱ…
とりあえず固定なソレを試してみます。色々試行錯誤したんですが以下なソースで
昨晩エントリでナニした reverse の実装ですが、以下。 (define (reverse l) (let f ((l l) (result '())) (if (null? l) result (f (cdr l) (cons (car l) result)))))昨晩の検証の中で頭ではイメージできてたんですが、上記な手続きにできんかった。やっぱ…