14 lines
316 B
Text
14 lines
316 B
Text
|
λ(nix : ../NixPrelude.dhall) →
|
||
|
|
let Number = ./Type.dhall
|
||
|
|
|
||
|
|
let Number/multiply = ./multiply.dhall nix
|
||
|
|
|
||
|
|
let fromNatural = ./fromNatural.dhall nix
|
||
|
|
|
||
|
|
let product
|
||
|
|
: List Number → Number
|
||
|
|
= λ(xs : List Number) →
|
||
|
|
List/fold Number xs Number Number/multiply (fromNatural 1)
|
||
|
|
|
||
|
|
in product
|