artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

map: support two lists.

Browse source
This commit is contained in:
Jan Nieuwenhuizen 2016-07-09 22:05:07 +02:00
parent 717ae9cdc1
commit de2e9502cf
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scm.mes
View file

@ -95,4 +95,6 @@ EOF
(define (map f l . r) (define (map f l . r)
(cond ((null l) '()) (cond ((null l) '())
((null r) (cons (f (car l)) (map f (cdr l)))))) ((null r) (cons (f (car l)) (map f (cdr l))))
((null (cdr r))
(cons (f (car l) (caar r)) (map f (cdr l) (cdar r))))))

4
test.mes
View file

@ -102,4 +102,8 @@
(newline) (newline)
(map '(lambda (x) (display x) (newline)) '(5 6 7 8)) (map '(lambda (x) (display x) (newline)) '(5 6 7 8))
(newline) (newline)
(map '(lambda (i a) (display i) (display ':) (display a) (newline)) '(1 2 3 4) '(a b c d))
(newline)
'() '()