Initial data commit

Task/Multisplit/Haskell/multisplit-2.hs

@@ -0,0 +1,18 @@
+import Data.List (find, isPrefixOf, foldl') --'
+import Data.Bool (bool)
+
+multiSplit :: [String] -> String -> [(String, String, Int)]
+multiSplit ds s =
+  let (ts, ps, o) =
+        foldl' --'
+          (\(tokens, parts, offset) (c, i) ->
+              let inDelim = offset > i
+              in maybe
+                   (bool (c : tokens) tokens inDelim, parts, offset)
+                   (\x -> ([], (tokens, x, i) : parts, i + length x))
+                   (bool (find (`isPrefixOf` drop i s) ds) Nothing inDelim))
+          ([], [], 0)
+          (zip s [0 ..])
+  in reverse $ (ts, [], length s) : ps
+main :: IO ()
+main = print $ multiSplit ["==", "!=", "="] "a!===b=!=c"