ompayne
/
sicp
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add map to amb-utilities

This commit is contained in:
Oliver Payne 2023-11-15 22:47:11 +00:00
parent 3d5db17a33
commit 32eabfa3e0
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
mceval/amb-utilities.rkt
View File

@ -20,5 +20,10 @@
(cond ((null? items) true) (cond ((null? items) true)
((null? (cdr items)) true) ((null? (cdr items)) true)
((member (car items) (cdr items)) false) ((member (car items) (cdr items)) false)
(else (distinct? (cdr items))))))) (else (distinct? (cdr items)))))
(define (map f l)
(if (null? l) '()
(cons (f (car l))
(map f (cdr l)))))))