読者です 読者をやめる 読者になる 読者になる

(wat-aro)

無職から有職者にランクアップしました

SICP 問題 2.62

scheme SICP
(define (union-set s t)
  (cond ((null? s) t)
        ((null? t) s)
        ((= (car s) (car t))
         (cons (car s)
               (union-set (cdr s) (cdr t))))
        ((< (car s) (car t))
         (cons (car s)
               (union-set (cdr s) t)))
        ((< (car t) (car s))
         (cons (car t)
               (union-set s (cdr t))))))