Multisplit: Difference between revisions
m
→{{header|Haskell}}: preferred `maybe` to `case Just ... Nothing ...` in fold version.
m (→{{header|Haskell}}: Pruned out one redundant binding from fold version.) |
m (→{{header|Haskell}}: preferred `maybe` to `case Just ... Nothing ...` in fold version.) |
||
Line 685:
(\(tokens, parts, offset) (c, i) ->
let inDelim = offset > i
in
(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"</lang>
| |||