RosettaCodeData/Task/Strip-comments-from-a-string/Haskell/strip-comments-from-a-strin...

5 lines
90 B
Haskell

ms = ";#"
main = getContents >>=
mapM_ (putStrLn . takeWhile (`notElem` ms)) . lines