Make fastConcatMap faster

This commit is contained in:
Jeroen Engels 2022-06-30 18:23:33 +02:00
parent 187e8a34be
commit f280038e96

View File

@ -63,4 +63,4 @@ uniquePairs xs =
fastConcatMap : (a -> List b) -> List a -> List b
fastConcatMap fn list =
List.foldr (fn >> (++)) [] list
List.foldr (\item acc -> fn item ++ acc) [] list