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)
|
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)
|
x)
|
||||||
xor? = matchBool id not?
|
|
||||||
|
xor? = (\x y :
|
||||||
|
matchBool
|
||||||
|
(matchBool t (t t) y)
|
||||||
|
(matchBool (t t) t y)
|
||||||
|
x)
|
||||||
|
|
||||||
append = y (\self : matchList
|
append = y (\self : matchList
|
||||||
(\k : k)
|
(\k : k)
|
||||||
|
@ -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
|
||||||
|
Loading…
x
Reference in New Issue
Block a user