mirror of
https://github.com/jfmengels/elm-review.git
synced 2024-12-23 09:42:49 +03:00
Make fastConcatMap faster
This commit is contained in:
parent
187e8a34be
commit
f280038e96
2
src/Vendor/ListExtra.elm
vendored
2
src/Vendor/ListExtra.elm
vendored
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user