(define (deep-reverse items) (cond ((not (pair? items)) items) (else (reverse (map deep-reverse items))))) (define x (list (list 1 2) (list 3 4))) ; ((1 2) (3 4)) (define y (list (list (list 1 2) (lis…続きを読む
問題2.24 (list 1 (list 2 (list 3 4))) gosh> (1 (2 (3 4))) 問題2.25 (define x (list 1 3 (list 5 7) 9)) ; (1 3 (5 7) 9) (car (cdr (car (cdr (cdr x))))) gosh> 7 (define x (list (list 7))) ; ((7)) (car …続きを読む
問題2.23 (define (for-each proc items) (if (null? items) #f (and (proc (car items)) (for-each proc (cdr items))))) (for-each (lambda (x) (newline) (display x)) (list 57 321 88)) gosh> 57 321 88#f 他の人…続きを読む
問題2.22 Louis Reasoner の反復プロセスでの square-list square した値を cons により結果となる answer（リスト） に繫げていくためにリストの値の順番が反転する。 (define (square-list items) (define (iter things answer) (if (null? things) answer (iter (cdr …続きを読む
リストの写像 リストの各数値を与えられた引数倍する手続き square-list。 (define (scale-list items factor) (if (null? items) () (cons (* (car items) factor) (scale-list (cdr items) factor)))) (scale-list (list 1 2 3 4 5) 10) gosh&g…続きを読む
WordPress 2.7 の日本語版がリリースされたのでアップグレードした。 基本的にトラブルはないのだけれど、ダッシュボードの "WordPress 2.7 が利用可能です ! アップデートしてください。" の表示が消えない… バージョン表示は 2.7 になっているんだけどなぁ。
ドット末尾記法（dotted-tail notation） ドットの後にあるパラメータはリストになる。 (define (f x y . z) (print x y z)) (f 1 2 3 4 5) gosh> 12(3 4 5) (f 1 2) gosh> 12() (define (g . w) (print w)) (g 1 2 3 4 5) gosh> (1 2 3 4…続きを読む
問題2.19 (define us-coins (list 50 25 10 5 1)) (define uk-coins (list 100 50 20 10 5 2 1 0.5)) (define (cc amount coin-values) (cond ((= amount 0) 1) ((or (< amount 0) (no-more? coin-values)) 0) (els…続きを読む
問題2.17 (define (last-pair items) (if (null? (cdr items)) (car items) (last-pair (cdr items)))) (last-pair (list 5 2 6 10 4 8)) gosh> 8 問題2.18 (define (reverse items) (define (reverse-iter i r) (if …続きを読む
並びの表現 gauche では nil は () で表現する。 (define list1 (cons 1 (cons 2 (cons 3 (cons 4 ()))))) list1 gosh> (1 2 3 4) (define list2 (list 1 2 3 4)) list2 gosh> (1 2 3 4) (car list1) gosh> 1 (cdr list1)…続きを読む