mssawant

prnEqual :: (Eq a) => a -> a -> IO ()
prnEqual a b = if a == b then print "True" else print "false"

prnGt :: (Ord a, Show a, Num a) => a -> a -> IO ()
prnGt a b | b < 0 = error "Invalid input"
prnGt a b  = if a > b then print a else print b

reverseList :: [a] -> [a]
reverList [] = error "List is empty"
reverseList l = foldl (\acc x -> x : acc) [] l -- Understand this can be done using

mssawant

import System.Environment
import Data.Bool
import Data.List

checkchar :: IO Bool
checkchar = do c <- getChar
               return (c == 'y')

addList :: Int -> [Int] -> [Int]
addList y (x:xs) = y:xs