Jump to content

Multisplit: Difference between revisions

m
m (→‎{{header|Haskell}}: (Pruned out a couple of redundant imports))
Line 688:
then Nothing
else find (`isPrefixOf` drop i s) ds) of
Just x -> ([], mappend parts [(tokens, x, i)] : parts, i + length x)
Nothing ->
( mappendif inDelim
then tokens
(ifelse inDelimc : tokens
then []
else [c])
, parts
, offset))
([], [], 0)
(zip s [0 .. lng])
in mappendreverse ps$ [(ts, [], lng)] : ps
 
main :: IO ()
9,659

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.