(wat-aro)

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

SICP 問題 2.61

(define (adjoin-set x s)
  (cond ((null? s) (list x))
        ((= x (car s)) s)
        ((< x (car s)) (cons x s))
        (else (cons (car s) (adjoin-set x (cdr s))))))

;; 同じ数字,またはxより大きい数字が出てきた時点で計算が終わるので順序付けられない表現に比べ半分のステップ数ですむ.