MK
Собери в мапу с fromListWith (+)
Size: a a a
2020 June 30
MK
Не прокатит?
AV
Но он материализованный, так что может смысла делать что-то хитрое может ин не быть
AA
ну, я думаю, можно, щас попробую
AV
Собери в мапу с fromListWith (+)
вроде не то же?
AA
там же проде траверс по as просто, и для каждого элемента стверточник
AV
скорее всего да
K
ну
map (fmap (\p -> length . filter p $ bs))А потом скажут, что, мол write-only language, как APL
AV
а что тут непонятного?
K
Ну слова-то все понятные, но чтобы понять, что оно делает нужно сесть и думать
AV
flip (fmap . fmap . (length .) . flip filter)
AV
так лучше
AV
да?
MK
вроде не то же?
λ> let as = [("even", even), ("odd", odd)] in M.toList $ M.fromListWith(+) $ concatMap (\i -> map (\(a, p) -> (a, if p i then 1 else 0)) as) [1,2,3,4,5]
[("even",2),("odd",3)]AV
Знаем мы вас академиков
AV
λ> let as = [("even", even), ("odd", odd)] in M.toList $ M.fromListWith(+) $ concatMap (\i -> map (\(a, p) -> (a, if p i then 1 else 0)) as) [1,2,3,4,5]
[("even",2),("odd",3)]жутькакая
K
А теперь это код на FORTH/JOY. Я бы length/filter в именованную функцию вынес
MK
за чё жуть
AV
as <&> fmap (\p -> length . filter p $ [1,2,3,4,5])
[("even",2),("odd",3)]
[("even",2),("odd",3)]
K
за чё жуть
APL