(リストを集合とみなして) (use srfi-1) ;; append-map (define (my-power-set set) (if (null? set) '(()) (append-map (lambda (subset) `((,@subset ,(car set)) ,subset)) (my-power-set (cdr set)))))gosh> (my-power-set '(a b c d e)) ((e d c b a) (…
大学のサーバが落ちててよ?
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。