Adding foldr.
svn: r10048 original commit: f39d4e33ede9b93895b885b19de7f82e6c093eaf
This commit is contained in:
parent
3d2150a697
commit
620af310fc
|
@ -136,6 +136,7 @@
|
|||
(-poly (a b c)
|
||||
(cl-> [((a b . -> . b) b (make-lst a)) b]
|
||||
[((a b c . -> . c) c (make-lst a) (make-lst b)) c]))]
|
||||
[foldr (-poly (a b c) ((a b . -> . b) b (-lst a) . -> . b))]
|
||||
[filter (-poly (a) ((a . -> . B) (-lst a) . -> . (-lst a)))]
|
||||
[take (-poly (a) ((-lst a) -Integer . -> . (-lst a)))]
|
||||
[drop (-poly (a) ((-lst a) -Integer . -> . (-lst a)))]
|
||||
|
|
Loading…
Reference in New Issue
Block a user