blob: ed992944641d46bc5396480d3e2cddd86c01ae25 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
#lang racket
;; linear scan required for this one, but on average we save some time because sometimes we can quickly
;; adjoin small values and other times a full linear scan is required to add a high value.
(define (adjoin-set x myset)
(cond ((null? myset) (cons x '()))
((= (car myset) x) myset)
((> (car myset) x) (cons x myset))
(else (cons (car myset)
(adjoin-set x (cdr myset))))))
(define test-set (list 1 2 3 4 5 7))
(adjoin-set 6 test-set)
(adjoin-set 8 test-set)
|
