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

Added (make-list)

Browse source
This commit is contained in:
Justin Ethier 2015-03-24 15:55:05 -04:00
parent d418ce265f
commit 8b972b7421
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
trans.scm
View file

@ -89,8 +89,16 @@
(car lst)
(foldl (lambda (a b) (append-2 b a)) (car lst) (cdr lst)))))
(define (list . objs) objs)
; TODO: (define (make-list k . fill)
; )
(define (make-list k . fill)
(letrec ((x (if (null? fill)
#f
(car fill)))
(make
(lambda (n obj)
(if (zero? n)
'()
(cons obj (make (- n 1) obj) )))))
(make k x)))
(define (map func lst)
(foldr (lambda (x y) (cons (func x) y)) '() lst))
(define (for-each f lst)