Replace placeholder xor? library function

This commit is contained in:
James Eversole 2025-01-30 17:17:07 -06:00
parent 7d1b6a741d
commit a16a24a808
2 changed files with 11 additions and 6 deletions

View File

@ -40,9 +40,14 @@ tail = matchList t (\_ tail : tail)
or? = (\x y : or? = (\x y :
matchBool matchBool
(matchBool (t t) (t t) y) (matchBool (t t) (t t) y)
(matchBool (t t) 0 y) (matchBool (t t) t y)
x)
xor? = (\x y :
matchBool
(matchBool t (t t) y)
(matchBool (t t) t y)
x) x)
xor? = matchBool id not?
append = y (\self : matchList append = y (\self : matchList
(\k : k) (\k : k)

View File

@ -1,7 +1,7 @@
cabal-version: 1.12 cabal-version: 1.12
name: tricu name: tricu
version: 0.13.0 version: 0.13.2
description: A micro-language for exploring Tree Calculus description: A micro-language for exploring Tree Calculus
author: James Eversole author: James Eversole
maintainer: james@eversole.co maintainer: james@eversole.co