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

A bit of library clean-up

Browse Source
This commit is contained in:
James Eversole
2026-05-19 20:04:01 -05:00
parent e2a1744508
commit 1c17d4c94a
4 changed files with 16 additions and 318 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lib/list.tri
View File

@@ -157,8 +157,6 @@ partition_ = y (self pred xs trues falses :
partition = pred xs : partition_ pred xs t t
partition = pred xs : partition_ pred xs t t
strLength = length
strAppend = append
strEq? = equal?
@@ -191,11 +189,11 @@ contains? = y (self needle haystack :
lines_ = y (self str :
matchList
(acc current : append acc [(reverse current)])
(acc current : snoc (reverse current) acc)
(h r :
acc current :
matchBool
(self r (append acc [(reverse current)]) t)
(self r (snoc (reverse current) acc) t)
(self r acc (pair h current))
(equal? h 10))
str)
@@ -213,14 +211,14 @@ words_ = y (self str :
(acc current :
matchBool
acc
(append acc [(reverse current)])
(snoc (reverse current) acc)
(emptyList? current))
(h r :
acc current :
matchBool
(matchBool
(self r acc current)
(self r (append acc [(reverse current)]) t)
(self r (snoc (reverse current) acc) t)
(emptyList? current))
(self r acc (pair h current))
(equal? h 32))