j
k
j a
j l
This got a bit mangled, here's the fixed version:
...wordsBy :: (a -> Bool) -> [a] -> [[a]] wordsBy p s = case dropWhile p s of [] -> [] s':rest -> (s':w) : wordsBy p s'' where (w, s'') = break p rest
wordsBy :: (a -> Bool) -> [a] -> [[a]] wordsBy p s = case dropWhile p s of [] -> [] s':rest -> (s':w) : wordsBy p s'' where (w, s'') = break p rest
Back to the thread
Back to the list