module Main where import System.Environment import Text.Read data EvenOdd = Even | Odd deriving (Show) isEvenOdd :: Int -> EvenOdd isEvenOdd x | x `mod` 2 == 0 = Even | otherwise = Odd headMaybe :: [a] -> Maybe a headMaybe  = Nothing headMaybe (x:xs) = Just x main :: IO () main = do args <- getArgs let x = headMaybe args case x >>= readMaybe of Nothing -> putStrLn "Usage: please input a number" Just x -> putStrLn $ show $ isEvenOdd x
Even Odd in Haskell was written by:
If you see anything you'd like to change or update, please consider contributing.
No 'How to Implement the Solution' section available. Please consider contributing.
No 'How to Run the Solution' section available. Please consider contributing.