2007-12-12から1日間の記事一覧

SICPを読む(70) 問題 2.57-2.58 記号微分(2)

微分を一気に乗り切るぞぉ〜。 問題 2.57 いやぁ、大失敗。失敗例。 (define (make-sum-iter ex2) (fold-right (lambda (ex l) (cond ((=number? ex 0) l) ((and (number? ex) (pair? l) (number? (car l))) (cons (+ ex (car l)) (cdr l))) (else (cons ex …

Gaucheでまとめてテスト

1個1個に分かれてると、どうもモジュール感がないので、どか~んとまとめてとテストしたい。 #!/usr/bin/gosh (use gauche.test) (test-start "test**-test-start!!") (define (test** title list) (test-section title) (for-each (lambda (l) (test* (cadr …