The King's Museum

ソフトウェアエンジニアのブログ。

2020-01-27から1日間の記事一覧

Scheme 手習い(6)

第7章:友達と親類 set? (define (set? lat) (cond [(null? lat) #t] [(member? (car lat) (cdr lat)) #f] [else (set? (cdr lat))])) lat が重複要素を持たない(= セットかどうか)かを調べる関数。 前章までですでに定義した手続き member? を利用する。…

(c) The King's Museum