1 files changed, 10 insertions, 0 deletions
diff --git a/2020/Util.hs b/2020/Util.hs
new file mode 100644
index 0000000..7f5f941
--- /dev/null
+++ b/2020/Util.hs
@@ -0,0 +1,10 @@
+module Util where
+
+import Data.List.NonEmpty (NonEmpty(..), (<|))
+
+
+splitOn :: (a -> Bool) -> [a] -> NonEmpty [a]
+splitOn _ [] = [] :| []
+splitOn f (x:xs) | f x = [] <| splitOn f xs
+                 | otherwise = let l :| ls = splitOn f xs
+                               in (x : l) :| ls