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

almost working something

Browse Source
This commit is contained in:
Stepan Usatiuk
2024-01-03 20:31:37 +01:00
parent 7c54d16273
commit 2db8b5984f
9 changed files with 262 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
clitests/coffee.psil Normal file
View File

@@ -0,0 +1,21 @@
(define (getmax a b)
(if (> a b) a b)
)
(define (coffee-shop-impl times last cur max)
(if (= times (nil))
(getmax cur max)
(if (= 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)
)
(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) )))

3
clitests/coffee.res Normal file
View File

@@ -0,0 +1,3 @@
0
2
3

1
clitests/testall.sh
View File

@@ -20,6 +20,7 @@ for FILE in *.psil; do
continue
fi
echo "$FILE OK"
rm $FILE.res
done