Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-24 12:35:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added (list-copy)

Browse source
This commit is contained in:
Justin Ethier 2015-03-24 16:01:48 -04:00
parent 8b972b7421
commit 02d0054afc
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
trans.scm
View file

@ -99,6 +99,8 @@
'() '()
(cons obj (make (- n 1) obj) ))))) (cons obj (make (- n 1) obj) )))))
(make k x))) (make k x)))
(define (list-copy lst)
(foldr (lambda (x y) (cons x y)) '() lst))
(define (map func lst) (define (map func lst)
(foldr (lambda (x y) (cons (func x) y)) '() lst)) (foldr (lambda (x y) (cons (func x) y)) '() lst))
(define (for-each f lst) (define (for-each f lst)