affine/flesh
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

added userlib reduce function

Browse source 
Signed-off-by: Ava Hahn <ava@sunnypup.io>
This commit is contained in:
Ava Apples Affine 2023-03-20 21:07:16 -07:00
parent 3f75157fac
commit 4f6622730a
Signed by: affine
GPG key ID: 3A4645B8CF806069
3 changed files with 28 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
snippets/userlib-tests.rls
View file

@ -35,6 +35,7 @@
(let ((test-val 0))
(set (q test-val) 3)
(eq? test-val 3))))
('prepend prepends to list'
(quote
(let ((list (2 3 4))
@ -48,6 +49,12 @@
(adder (lambda (x) (add 1 x))))
(eq? (map adder list) (2 3 4)))))
('reduce function adds numbers'
(quote
(let ((list (1 2 3))
(adder (lambda (x y) (add x y))))
(eq? (reduce adder list) (add 1 2 3)))))
;; add more test cases here
))