163533adcd0e — Benjamin Weber 2 years ago 
own implementation of Random.List.choices
patch browse 
1 files changed, 15 insertions(+), 1 deletions(-)

M src/Rework.elm

M src/Rework.elm +15 -1
@@ 97,7 97,21 @@ setReworkNew n =
         toRework =
             List.map (\x -> updateRework x NeedsRework)
     in
-    Random.map (\( a, b ) -> toRework a ++ b) << Random.List.choices n
+    Random.map (\( a, b ) -> toRework a ++ b) << choices n
+
+
+choices : Int -> List a -> Random.Generator ( List a, List a )
+choices n xs =
+    case n of
+        0 ->
+            Random.constant ( [], xs )
+
+        _ ->
+            let
+                xs1 =
+                    Random.List.shuffle xs
+            in
+            Random.map2 Tuple.pair (Random.map (List.take n) xs1) (Random.map (List.drop n) xs1)
 
 
 setReworksCmd : Model -> Cmd Msg