style, formatting and new version of domino piling

Author: Vicfred

README.md

@@ -38,3 +38,9 @@ runhaskell sourcefile.hs
 [Team](src/team.hs) *getList*, fmap, filter, replicateM
 
 [Team](src/team_.hs) point free notation, $ notation
+
+[Domino piling](src/dominopiling.hs) *getList*, pattern matching, putStrLn
+
+[Domino piling](src/dominopiling_.hs) interact, function currying, $ notation
+
+[Domino piling](src/dominopiling__.hs) print, getLine, =<< operator

src/dominopiling.hs

@@ -1,9 +1,13 @@
+-- https://codeforces.com/problemset/problem/50/A
+
 getList :: Read a => IO [a]
 getList = fmap (map read . words) getLine
 
 solve :: Int -> Int -> Int
 solve m n = m * n `div` 2
 
+main :: IO ()
 main = do
     [m,n] <- getList
     putStrLn . show $ solve m n
+

src/dominopiling_.hs

@@ -0,0 +1,5 @@
+-- https://codeforces.com/problemset/problem/50/A
+
+main :: IO ()
+main = do interact $ show . (`div` 2) . product . map read . words
+

src/dominopiling__.hs

@@ -0,0 +1,5 @@
+-- https://codeforces.com/problemset/problem/50/A
+
+main :: IO ()
+main = print . (`div` 2) . product . map read . words =<< getLine
+