This commit is contained in:
parent
bc8c2ff7fb
commit
196571ae13
9 changed files with 212 additions and 31 deletions
|
@ -88,6 +88,12 @@ export const larger = match([Any, Any], (math, [T, U]) => {
|
|||
return boolnum((t, u) => !eq(t, u) && bigger(t, u))(math)
|
||||
})
|
||||
|
||||
export const isPositive = match(Any, (math, T) => {
|
||||
const zero = math.zero(T)
|
||||
const larger = math.larger.resolve([T, T])
|
||||
return boolnum(t => larger(t, zero))
|
||||
})
|
||||
|
||||
export const largerEq = match([Any, Any], (math, [T, U]) => {
|
||||
const eq = math.equal.resolve([T, U])
|
||||
const bigger = math.exceeds.resolve([T, U])
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue