Replace placeholder xor? library function
This commit is contained in:
parent
7d1b6a741d
commit
a16a24a808
15
lib/base.tri
15
lib/base.tri
@ -38,11 +38,16 @@ head = matchList t (\head _ : head)
|
||||
tail = matchList t (\_ tail : tail)
|
||||
|
||||
or? = (\x y :
|
||||
matchBool
|
||||
(matchBool (t t) (t t) y)
|
||||
(matchBool (t t) 0 y)
|
||||
x)
|
||||
xor? = matchBool id not?
|
||||
matchBool
|
||||
(matchBool (t t) (t t) y)
|
||||
(matchBool (t t) t y)
|
||||
x)
|
||||
|
||||
xor? = (\x y :
|
||||
matchBool
|
||||
(matchBool t (t t) y)
|
||||
(matchBool (t t) t y)
|
||||
x)
|
||||
|
||||
append = y (\self : matchList
|
||||
(\k : k)
|
||||
|
@ -1,7 +1,7 @@
|
||||
cabal-version: 1.12
|
||||
|
||||
name: tricu
|
||||
version: 0.13.0
|
||||
version: 0.13.2
|
||||
description: A micro-language for exploring Tree Calculus
|
||||
author: James Eversole
|
||||
maintainer: james@eversole.co
|
||||
|
Loading…
x
Reference in New Issue
Block a user