プログラミングGauche 練習問題(p101)を解く。 手続き any-pred と every-pred を自分で定義する。 any-pred ;; 最初に思いついた解答 (define (any-pred . preds) (define (iter preds x) (if (null? preds) #f (if ((car preds) x) #t (iter (cdr preds) …続きを読む

lambda 式内の a は letrec 内で b が呼び出される時に使われる。 (letrec ((a 1) (b (lambda (x) (+ a x)))) (b 4)) gosh> 5 (letrec ((a 1) (b (lambda (x) (+ a x)))) (set! a 2) (b 4)) gosh> 6 プログラミングGaucheの練習問題(p74)を解く。 (…続きを読む

プログラミングGaucheの練習問題(p68)を解く。 for-each-numbers (define (for-each-numbers proc lis) (for-each proc (filter number? lis))) (for-each-numbers print ‘(1 2 #f 3 4 #t)) gosh> 1 2 3 4 #<undef> map-num…続きを読む

処理の一番最後に再帰呼び出しをして、その結果がそのまま現在の処理の結果として返されるパターンを末尾再帰と呼びます。 （プログラミングGauche p57） プログラミングGauche posted with amazlet at 08.11.14 Kahuaプロジェクト オライリージャパン 売り上げランキング: 22775 Amazon.co.jp で詳細を見る reverse を末尾再帰で書き直…続きを読む

プログラミングGaucheの練習問題(p56)を解く。 リストの長さを計算する手続き length。 (define (length lis) (define (iter lis result) (if (null? lis) result (iter (cdr lis) (+ result 1)))) (iter lis 0)) (length ‘(1 2 3 4 5)) gosh> 5 …続きを読む

ネストしたリストも全てコピーする deep-copy-list を考える。 ただコピーしただけだと結果を見てもネストしたリストの要素もコピーされているのかよく分からないので、要素を2倍してコピーさせている。 ;; copy-list (define (copy-list lis) (if (not (pair? lis)) lis (cons (* 2 (car lis)) (copy-list …続きを読む