dmalikov · September 17, 2012 14:24
diff --git a/droowhile.hs b/droowhile.hs
 {-# LANGUAGE UnicodeSyntax #-}

 import Control.Applicative ((<$>))
 import System.Environment (getArgs)
 import Text.Regex.Posix ((=~))

 main ∷ IO ()
 main = do
  pattern ← head <$> getArgs
  mapM_ putStrLn =<< dropWhile (\α → not $ α =~ pattern) . lines <$> getContents
	{-# LANGUAGE UnicodeSyntax #-}

	import Control.Applicative ((<$>))
	import System.Environment (getArgs)
	import Text.Regex.Posix ((=~))

	main ∷ IO ()
	main = do
	pattern ← head <$> getArgs
	mapM_ putStrLn =<< dropWhile (\α → not $ α =~ pattern) . lines <$> getContents