1 files changed, 42 insertions, 0 deletions

diff --git a/src/Utils.elm b/src/Utils.elm
new file mode 100644
index 0000000..0f3164f
--- /dev/null
+++ b/src/Utils.elm
@@ -0,0 +1,42 @@
+module Utils exposing (..)
+
+import Array as A exposing (..)
+import Base exposing (Word, WordStatus(..))
+import Time exposing (Posix, posixToMillis)
+
+
+isNothing : Maybe a -> Bool
+isNothing p =
+    case p of
+        Nothing ->
+            True
+
+        Just a ->
+            False
+
+
+isJust : Maybe a -> Bool
+isJust p =
+    not (isNothing p)
+
+
+flip : (a -> b -> c) -> (b -> a -> c)
+flip f =
+    \x y -> f y x
+
+
+diffDuration : Posix -> Posix -> Float
+diffDuration t1 t2 =
+    let
+        m1 =
+            posixToMillis t1
+
+        m2 =
+            posixToMillis t2
+    in
+    toFloat (m2 - m1) / 1000
+
+
+wordCountWith : Array Word -> (WordStatus -> Bool) -> Int
+wordCountWith words predicate =
+    words |> A.map .status |> A.filter predicate |> A.length