James/tricu
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updates to demos

Browse Source
This commit is contained in:
James Eversole
2025-04-16 14:23:53 -05:00
parent 25bfe139e8
commit b8e2743103
7 changed files with 61 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/list.tri
View File

@ -1,5 +1,7 @@
!import "base.tri" !Local
_ = t
matchList = a b : triage a _ b
emptyList? = matchList true (_ _ : false)

20
lib/patterns.tri
View File

@ -1,4 +1,5 @@
!import "list.tri" !Local
!import "base.tri" !Local
!import "list.tri" List
match_ = y (self value patterns :
triage
@ -16,21 +17,8 @@ match_ = y (self value patterns :
patterns)
match = (value patterns :
match_ value (map (sublist :
pair (head sublist) (head (tail sublist)))
match_ value (List.map (sublist :
pair (List.head sublist) (List.head (List.tail sublist)))
patterns))
otherwise = const (t t)
matchExample = (x : match x
[[(equal? 1) (_ : "one")]
[(equal? 2) (_ : "two")]
[(equal? 3) (_ : "three")]
[(equal? 4) (_ : "four")]
[(equal? 5) (_ : "five")]
[(equal? 6) (_ : "six")]
[(equal? 7) (_ : "seven")]
[(equal? 8) (_ : "eight")]
[(equal? 9) (_ : "nine")]
[(equal? 10) (_ : "ten")]
[ otherwise (_ : "I ran out of fingers!")]])