day3 done

day2/Main.hs

@@ -92,13 +92,3 @@ result 'X' = Loss
 result 'Y' = Draw
 result 'Z' = Win
 result c = error $ "malformed Input: "<> show c
-
--- | Split a list into sublists delimited by the given element.
---
--- From: https://hackage.haskell.org/package/haskell-gi-0.26.2/docs/src/Data.GI.CodeGen.Util.html#splitOn
-splitOn :: Eq a => a -> [a] -> [[a]]
-splitOn x xs = go xs []
-    where go [] acc = [reverse acc]
-          go (y : ys) acc = if x == y
-                            then reverse acc : go ys []
-                            else go ys (y : acc)