9 lines
275 B
Text
9 lines
275 B
Text
|
λ(nix : ../NixPrelude.dhall) →
|
||
|
|
let Number/fromDouble = ../Number/fromDouble.dhall nix
|
||
|
|
|
||
|
|
let Number/negate = ../Number/negate.dhall nix
|
||
|
|
|
||
|
|
let Number/toDouble = ../Number/toDouble.dhall nix
|
||
|
|
|
||
|
|
in λ(a : Double) → Number/toDouble (Number/negate (Number/fromDouble a))
|