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

options prettier

Browse Source
This commit is contained in:
Stepan Usatiuk
2024-01-03 23:38:48 +01:00
parent 0528cfed7f
commit 5490495227
11 changed files with 42 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
clitests/decorate.psil
View File

@@ -2,10 +2,10 @@
(lambda (x) (g (f x)))
)
(define (foldl op acc l)
(define (fold op acc l)
(if (nil? l)
acc
(op (car l) (foldl op acc (cdr l)))
(op (car l) (fold op acc (cdr l)))
)
)
@@ -14,7 +14,7 @@
)
((decorate (lambda (x) (+ x 1)) (lambda (x) (+ x 2))) 1)
((decorate (lambda (lst) (foldl plus 0 lst)) (lambda (x) (* x x))) (quote(1 2 3)))
((decorate (lambda (lst) (foldl plus 0 lst)) (lambda (x) (/ x 2))) (quote(1 2 3)))
((decorate (lambda (lst) (foldl plus 0 lst)) (lambda (x) (= x 0))) (nil))
((decorate (lambda (lst) (foldl plus 0 lst)) (lambda (x) (= x 0))) (quote(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)))