2005-11-05から1日間の記事一覧

冪集合を求める

(リストを集合とみなして) (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) (…

ーあ

大学のサーバが落ちててよ?