МП
Size: a a a
МП
МП
МП
оГ
оГ
оГ
VS
VS
VS
VS
VS
K
Map
насовать своих методов?get
, ни foldMap
в Map
не видны:module Map =
let foldMap
(monoid : 'a Monoid.t)
(f : 'b -> 'a)
: ('c, 'b) Map -> 'a
=
Map.fold (fun s _ b -> monoid.append s (f b)) monoid.empty
let get (monoid : 'a Monoid.t) (k : 'b) (m : ('b, 'a) Map) : 'a =
Monoid.orElse monoid <| Map.tryFind k m
АВ
EV
AH
K
fun
впереди пришлось бы парсеру на каждую (
топать до ->
или другого токена после соответствующей )
, чтобы отличить лямбду от кортежа