zzkt/rsc3
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

added provide form to rsc3.rkt

Browse source
This commit is contained in:
Mustafa 2014-02-15 16:20:55 -08:00
parent fdfb5558f3
commit 5c7fe7d54e
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
rsc3/rsc3.rkt
View file

@ -8,25 +8,27 @@
"../sosc/transport.rkt"
"../sosc/sosc.rkt"
(prefix-in srfi: srfi/27)
(prefix-in srfi: srfi/19)
)
(prefix-in srfi: srfi/19))
;; TODO - export only useful funcs
(provide (all-defined-out)
send)
;; [a] -> int -> [a]
(define extend
(lambda (l n)
(let ((z (length l)))
(cond ((= z n) l)
((> z n) (take n l))
(else (extend (append2 l l) n))))))
((> z n) (take n l))
(else (extend (append2 l l) n))))))
;; [a] -> int -> [a]
(define take-cycle
(lambda (l n)
(if (null? l)
nil
(cons (head l)
(take-cycle (drop n l) n)))))
nil
(cons (head l)
(take-cycle (drop n l) n)))))
;; (a -> a -> a) -> ([a] -> [a])
(define differentiate-with