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

19
clitests/examples.test.psil Normal file
View File

@@ -0,0 +1,19 @@
(let ((plus (lambda (a b) (+ a b)))) (plus 2 3))
(let ((minus (lambda (a b) (- a b)))) (minus 2 3))
(let ((minusone (lambda (a b) (- a b))) (minustwo (lambda (a b) (- b a)))) (minustwo 2 (minusone 3 1)))
(let ((iffn (lambda (a) (if a 1 2)))) (iffn 0))
(let ((iffn (lambda (a) (if a 1 2)))) (iffn 1))
(let ((iffn (lambda (a) (if (> a 1) 1 2)))) (iffn 1))
(let ((iffn (lambda (a) (if (> a 1) 1 2)))) (iffn 2))
(letrec ((fib (lambda (n) (if (> n 0)
(if (> n 1)
(+ (fib (- n 1))
(fib (- n 2)))
1)
0))
)) (fib 10))
(define (globalplus x y) (+ x y))
(globalplus 2 3)