あんまし変わってないけど、重複を許す集合上の演算。 (define (element-of-set? x set) (cond ((null? set) #f) ((equal? x (car set)) #t) (else (element-of-set? x (cdr set))))) (define (adjoin-set x set) (cons x set)) (define (union-set set1 set…

ぼくはクソ凹んでいて、エントリとか書く気力もなく、さりとて何かするわけでもなく、怠惰な暮らしを送っていたのでした。 http://d.hatena.ne.jp/kiririmode/20071223/p2 まぁ毎日怠惰と言えば怠惰なんですけど、輪をかけて怠惰です。みんなが怠惰ならあん…