diff options
Diffstat (limited to 'coding-exercises/2/61.rkt')
| -rw-r--r-- | coding-exercises/2/61.rkt | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/coding-exercises/2/61.rkt b/coding-exercises/2/61.rkt new file mode 100644 index 0000000..71d773d --- /dev/null +++ b/coding-exercises/2/61.rkt @@ -0,0 +1,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) |