История изменений
Исправление nezamudich, (текущая версия) :
pure (\x y z -> x + y + z) <*> f1 <*> f2 <*> f3
sum <$> sequence [f1, f2, f3]
Много их.
Исходная версия nezamudich, :
pure (\x y z -> x + y + z) <*> f1 <*> f2 <*> f3
sum <$> sequence [f1, f2, f3]