12 lines
313 B
Text
12 lines
313 B
Text
λ(nix : ../NixPrelude.dhall) →
|
|
let lessThan = ./lessThan.dhall nix
|
|
|
|
let greaterThan = ./greaterThan.dhall nix
|
|
|
|
let compare
|
|
: Double → Double → Integer
|
|
= λ(a : Double) →
|
|
λ(b : Double) →
|
|
if lessThan a b then -1 else if greaterThan a b then +1 else +0
|
|
|
|
in compare
|