Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15: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) )))))
(make k x)))
(define (list-copy lst)
(foldr (lambda (x y) (cons x y)) '() lst))
(define (map func lst)
(foldr (lambda (x y) (cons (func x) y)) '() lst))
(define (for-each f lst)