reduce lookups

BrianHicks · Feb 22, 2020 · dd574d2 · dd574d2
1 parent d46f8f5
commit dd574d2
Showing 1 changed file with 10 additions and 9 deletions.
diff --git a/src/Wave.elm b/src/Wave.elm
@@ -163,16 +163,17 @@ collapse seed coords (Wave wave) =
         Just (Open remaining) ->
             let
                 generator =
-                    wave.weights
-                        |> Dict.toList
-                        |> List.filterMap
-                            (\( k, weight ) ->
-                                if Set.member k remaining then
-                                    Just ( toFloat weight, k )
-
-                                else
-                                    Nothing
+                    remaining
+                        |> Set.foldl
+                            (\current acc ->
+                                case Dict.get current wave.weights of
+                                    Just weight ->
+                                        ( toFloat weight, current ) :: acc
+
+                                    Nothing ->
+                                        acc
                             )
+                            []
                         |> (\weights ->
                                 case weights of
                                     [] ->