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/60.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'coding-exercises/2/60.rkt') diff --git a/coding-exercises/2/60.rkt b/coding-exercises/2/60.rkt index 87eb7be..3effe1c 100644 --- a/coding-exercises/2/60.rkt +++ b/coding-exercises/2/60.rkt @@ -18,7 +18,7 @@ (define (intersection-set set1 set2) (define (iter s1 s2 result) (cond ((or (null? s1) (null? s2)) result) - ((and + ((and (not (element-of-set? (car s1) result)) (element-of-set? (car s1) s2)) (iter (cdr s1) s2 (cons (car s1) result))) -- cgit v1.2.3