牛肉とセロリのオイスターソース炒め シシャモ(樺太シシャモ) 鶏肉とナスのトマトソース炒め

(define (union-set set1 set2) (cond ((null? set1) set2) ((null? set2) set1) (else (let ((x1 (car set1)) (x2 (car set2))) (cond ((= x1 x2) (cons x1 (union-set (cdr set1) (cdr set2)))) ((< x1 x2) (cons x1 (union-set (cdr set1) set2))) ((< x2…

順序づけられた表現を使ったadjoin-set の実装 (define (adjoin-set x set) (cond ((null? set) (list x)) ((= x (car set) (set)) ((< x (car set) (cons x set)) (else (cons (car set) (adjoin-set x (cdr set)))))))) 順序の利点は検索対象と同じか、検…