mo utilz

1 files changed, 10 insertions, 0 deletions

diff --git a/src/Utils.elm b/src/Utils.elm
index 0f3164f..83e025b 100644
--- a/src/Utils.elm
+++ b/src/Utils.elm
@@ -40,3 +40,13 @@ diffDuration t1 t2 =
 wordCountWith : Array Word -> (WordStatus -> Bool) -> Int
 wordCountWith words predicate =
     words |> A.map .status |> A.filter predicate |> A.length
+
+
+triple : a -> b -> c -> ( a, b, c )
+triple a b c =
+    ( a, b, c )
+
+
+listIdx : List a -> Int -> Maybe a
+listIdx ls idx =
+    List.head (List.drop idx ls)