AP
Или IntSet в качестве промежуточного решения
Data.Set нормально работаетSize: a a a
2020 December 06
AP
А вообще оно и с
AP
для второй части с сетами недостаточно, надо счетчики
достаточно сетов
AP
сумма длин пересечений
A
ну да
AP
первая задача — сумма длин объединений
AP
Кароч, Data.Set отлично справляется. Если бы начал "жать", я бы взял IntSet, который на битмасках и работает
A
ага, с сетами прям красиво
A
countAnswersAny = Set.size . foldl1 Set.union
countAnswersAll = Set.size . foldl1 Set.intersection
IR
Set.unions
A
для intersection я такого не нашел
IR
да, меня больше
лучше явно
foldl1 беспокоит, который будет падать на пустом вводе.лучше явно
foldl' memptyк
ну для unions даже так можно
Set.size . fold
а для intersection почему-то не завезли ни функции, ни ньютайпа
Set.size . foldl' Set.intersection mempty
Set.size . fold
а для intersection почему-то не завезли ни функции, ни ньютайпа
Set.size . foldl' Set.intersection mempty
AP
Set.size тоже не нужен, length хватит
AP
А для intersection нельзя mempty
AP
Потому что пересечение с пустым множеством даст пустое множество
AP
Нужно явно брать голову в качестве аккумулятора
AP
или
foldl1' использовать. Да, частичная функция, но тут на входе всегда непустые списки множествIR
или
foldl1' использовать. Да, частичная функция, но тут на входе всегда непустые списки множествнет смысла заводить привычку думать каждый раз о том пустые тут или не пустые, если можно сразу предоставить пруф
IR
один раз написал и забыл со спокойной совестью