この問題も大して難しくない。 そもそも「抽象化」し、とか難しそうに書いているけど、 前の問題のmap使ってる方の「*」ってなっているところを、 引数として取得した手続きを使えるようにすればいいだけだ。 実装 #!/usr/local/bin/gosh ;; -*- coding: utf…

この問題、問題は単純だけど句読点の場所とかを意識しないと問題がうまく読めない。 求める答えは以下の2つでいいと思う。 ・square-treeを直接に定義する。 ・square-treeをmapと再帰を使って定義する。 何を僕がとち狂っているのかというと、 直接バージョ…

こんな問題は簡単だ。(と思っていたら難しかった。) 受験勉強的には。 要は、穴埋め問題なんだけど、 (define (subsets s) (if (null? s) (list nil) (let ((rest (subsets (cdr s)))) (append rest (map rest))))) のって部分を埋めて、 (1 2 3) って集合か…