Serendip

Web Studio

問題2.60

重複の許されるリストで集合を表す。

element-of-set?、intersection-set はそのままでよい。
重複を許すと結果のリストが大きくなり、要素の検索等の効率が悪くなる。

(define (adjoin-set x set)
  (cons x set))

(adjoin-set '1 '(1 2 3 4 5))
gosh> (1 1 2 3 4 5)

(define (union-set set1 set2)
  (append set1 set2))

(union-set '(1 2 3 4 5) '(2 4 6))
gosh> (1 2 3 4 5 2 4 6)

計算機プログラムの構造と解釈

posted with amazlet at 08.11.07

ジェラルド・ジェイ サスマン ジュリー サスマン ハロルド エイブルソン
ピアソンエデュケーション
売り上げランキング: 6542

Amazon.co.jp で詳細を見る