Update Cabal caching path

.gitea/workflows/test-and-build.yml

@@ -24,7 +24,7 @@ jobs:
         uses: actions/cache@v4
         with:
           path: |
-            ~/.cabal
+            ~/.cache/cabal
             ~/.ghc
           key: cabal-${{ runner.os }}-${{ hashFiles('tricu.cabal') }}
           restore-keys: |
@@ -44,7 +44,7 @@ jobs:
         run: |
           nix develop --command cabal update
 
-      - name: Install dependencies and run tests
+      - name: Run test suite
         run: |
           nix develop --command cabal test
 
@@ -63,7 +63,7 @@ jobs:
         uses: actions/cache@v4
         with:
           path: |
-            ~/.cabal
+            ~/.cache/cabal
             ~/.ghc
           key: cabal-${{ runner.os }}-${{ hashFiles('tricu.cabal') }}
           restore-keys: |

lib/eager.tri

@@ -0,0 +1,2 @@
+eager = (\f x : triage (f t) (\u f : (t u)) (\u v : f (t u v)) x)
+eagerEval = y (\self : triage (\u : t u) (\u v : t u v) (triage (\u2 v : u2) (\u1 u2 v : eager (self (self u1 v)) (self u2 v)) (\u0 u1 u2 v : triage u0 (\v : self u1 v) (\v1 v2 : self (self u2 v1) v2) v)))

lib/labels.tri

@@ -0,0 +1,9 @@
+-- IMPLIED BASE IMPORT
+isLeaf = (\node : lOr (emptyList node) (emptyList (tail node)))
+getLabel = (\node : head node)
+getLeft = (\node : if (emptyList node) [] (if (emptyList (tail node)) [] (head (tail node))))
+getRight = (\node : if (emptyList node) [] (if (emptyList (tail node)) [] (if (emptyList (tail (tail node))) [] (head (tail (tail node))))))
+
+processLevel = y (\self queue : if (emptyList queue) [] (pair (map getLabel queue) (self (filter (\node : not (emptyList node)) (lconcat (map getLeft queue) (map getRight queue))))))
+
+levelOrderTraversal = (\a : processLevel (t a t))