stepus53/psil
1
0
Fork 0
mirror of https://github.com/usatiuk/psil.git synced 2025-10-29 03:07:49 +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

47
clitests/coffee.test.psil Normal file
View File

@@ -0,0 +1,47 @@
(define (getmax a b)
(if (> a b) a b)
)
(define (equal a b)
(if (nil? a) (if (nil? b) 1 0)
(if (atom a)
(if (atom b) (= a b) 0)
(if (atom b) 0 (if (equal (car a) (car b)) (equal (cdr a) (cdr b)) 0))
)
)
)
(define (coffee-shop-impl times last cur max)
(if (= times (nil))
(getmax cur max)
(if (equal last (car times))
(coffee-shop-impl (cdr times) last (+ cur 1) max)
(coffee-shop-impl (cdr times) (car times) 1 (getmax cur max))
)
)
)
(define (coffee-shop times)
(coffee-shop-impl times (nil) 0 0)
)
(equal (nil) (nil))
(equal (nil) ())
(equal () (nil))
(equal (nil) (quote()))
(equal () (nil))
(equal () (quote()))
(equal (quote(a))(quote()))
(equal (quote(a)) ())
(equal (quote(a)) (nil))
(equal (quote(a)) (quote(a.)))
(equal (quote(a.)) (quote(a b)))
(equal (quote(a b)) (quote(a.b)))
(equal (quote(a b)) (quote(a b)))
(coffee-shop (nil))
(coffee-shop (quote( (8 0) (8 10) (8 10) (8 45) )))
(coffee-shop (quote( (8 12) (10 11) (10 11) (15 15) (15 15) (15 15) (22 22) (22 22) (22 59) )))