import Custom
eveno :: Int -> Bool
noto :: Bool -> String
eveno x = if x `rem` 2 == 0
then True
else False
noto x = if x == True
then "This is an even Number"
else "This is an ODD number"
main = do
print(not(1 == 2))
let x = [6,6]
print(x!!1)
putStrLn "Example of Haskell Function composition"
print ((noto.eveno)(16))
print(showEven 5)
module Custom
(
showEven,
showBoolean
) where
showEven :: Int-> Bool
showEven x = do
if x 'rem' 2 == 0
then True
else False
showBoolean :: Bool->Int
showBoolean c = do
if c == True
then 1
else 0
