6 lines
144 B
Haskell
6 lines
144 B
Haskell
*Main> mapM_ putStrLn $ takeWhile (not.null) $ unfoldr (Just . second(drop 1). break (==',')) "Hello,How,Are,You,Today"
|
|
Hello
|
|
How
|
|
Are
|
|
You
|
|
Today
|