stepus53/psil
1
0
Fork 0
mirror of https://github.com/usatiuk/psil.git synced 2025-10-28 18:57:48 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

rename tests

Browse Source
This commit is contained in:
Stepan Usatiuk
2024-01-04 12:53:24 +01:00
parent efc60b4c23
commit 49de281083
15 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
clitests/decorate.test.psil Normal file
View File

@@ -0,0 +1,20 @@
(define (decorate f g)
(lambda (x) (g (f x)))
)
(define (fold op acc l)
(if (nil? l)
acc
(op (car l) (fold op acc (cdr l)))
)
)
(define (plus a b)
(+ a b)
)
((decorate (lambda (x) (+ x 1)) (lambda (x) (+ x 2))) 1)
((decorate (lambda (lst) (fold plus 0 lst)) (lambda (x) (* x x))) (quote(1 2 3)))
((decorate (lambda (lst) (fold plus 0 lst)) (lambda (x) (/ x 2))) (quote(1 2 3)))
((decorate (lambda (lst) (fold plus 0 lst)) (lambda (x) (= x 0))) (nil))
((decorate (lambda (lst) (fold plus 0 lst)) (lambda (x) (= x 0))) (quote(1)))