2022-09-07 17:10:22 +00:00
|
|
|
let max = ./max.dhall
|
2022-09-01 14:41:13 +00:00
|
|
|
|
2022-09-07 17:10:22 +00:00
|
|
|
let Optional/map =
|
2022-09-14 14:51:57 +00:00
|
|
|
https://raw.githubusercontent.com/dhall-lang/dhall-lang/v22.0.0/Prelude/Optional/map.dhall
|
2022-09-07 17:10:22 +00:00
|
|
|
sha256:501534192d988218d43261c299cc1d1e0b13d25df388937add784778ab0054fa
|
2022-09-01 14:41:13 +00:00
|
|
|
|
2022-09-07 17:10:22 +00:00
|
|
|
let listMax
|
|
|
|
|
: List Integer → Optional Integer
|
|
|
|
|
= λ(xs : List Integer) →
|
|
|
|
|
Optional/map
|
|
|
|
|
Integer
|
|
|
|
|
Integer
|
|
|
|
|
(λ(n : Integer) → List/fold Integer xs Integer max n)
|
|
|
|
|
(List/head Integer xs)
|
2022-09-01 14:41:13 +00:00
|
|
|
|
2022-09-07 17:10:22 +00:00
|
|
|
in listMax
|
