МП
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 впереди пришлось бы парсеру на каждую ( топать до -> или другого токена после соответствующей ), чтобы отличить лямбду от кортежа