don't iterate over data so much

BrianHicks · Feb 22, 2020 · 9f1f341 · 9f1f341
1 parent dd574d2
commit 9f1f341
Showing 1 changed file with 11 additions and 4 deletions.
diff --git a/src/Wave.elm b/src/Wave.elm
@@ -279,10 +279,17 @@ propagateInDirection source sourceCell direction ( Wave wave, todo ) =
                                 |> Maybe.withDefault Set.empty
 
                         Open remaining_ ->
-                            remaining_
-                                |> Set.toList
-                                |> List.filterMap (\value -> Dict.get ( value, direction ) wave.rules)
-                                |> List.foldl Set.union Set.empty
+                            Set.foldl
+                                (\value acc ->
+                                    case Dict.get ( value, direction ) wave.rules of
+                                        Just rules ->
+                                            Set.union acc rules
+
+                                        Nothing ->
+                                            acc
+                                )
+                                Set.empty
+                                remaining_
 
                 reduced =
                     Set.intersect remaining possibleInDirection