久しぶりになってしまいました。 p250くらいまでやっとこさ辿りつきました。 あー、滅茶苦茶楽しくなってきました（理解度とは比例せず）。。 (define (list=? a-list another-list) ;;17.8.2 (cond ((and (cons? a-list) (empty? another-list)) false) ((a…

今月に入って失速気味だったのですが一問解けたのでメモ。 (define LOS '(a b c)) (define LON '(1 2)) (define (cross alon1 alon2) ;;引数にリストを二つとって全部の組み合わせを書き出す関数 (cond ((empty? alon1) empty) (else (append (cross-aux (fi…

よし！来た電車の中で思いついた考え方でそれっぽいのが出てきた予感。 条件 ・引数にとった親自身が青い目をしていた場合は０ ・青い目をした人がいなかった場合はfalseを返す ---------------- family tree---------------------- (define-struct parent (…

(define (occurs1 a-wp s) ;;14.3.2 引数にとったシンボルがいくつか数える（入れ子になったリストは無視） (cond ((empty? a-wp) 0) ((and (symbol? (first a-wp)) (symbol=? (first a-wp) s)) (+ 1 (occurs1 (rest a-wp) s))) (else (occurs1 (rest a-wp) …