ЗП
Haskell> ([True,False], [1..10]) & selecting (_1 . traversed) (\b -> _2 . traversed . filtered ((==b) . even) . to Sum)
[
( False
, Sum
{ getSum = 25 }
)
,
( True
, Sum
{ getSum = 30 }
)
]
selecting?Size: a a a
ЗП
Haskell> ([True,False], [1..10]) & selecting (_1 . traversed) (\b -> _2 . traversed . filtered ((==b) . even) . to Sum)
[
( False
, Sum
{ getSum = 25 }
)
,
( True
, Sum
{ getSum = 30 }
)
]
selecting?KV
selecting?JS
[
AA
ЗП
KV
ЗП
[

KV
[
KV
[
KV
ЗП
KV
к
С
С