7 lines
144 B
Haskell
7 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
|