From ac1bf1b75868c873037f742b727e79ee5a97bae2 Mon Sep 17 00:00:00 2001 From: Mike Vink Date: Fri, 24 Mar 2023 23:01:25 +0100 Subject: progress --- coding-exercises/2/61.rkt | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 coding-exercises/2/61.rkt (limited to 'coding-exercises/2/61.rkt') 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) -- cgit v1.2.3