main = do print (maxBound :: Int) print (minBound :: Int)
main = print (succ 12)
main = print (readInt "12") readInt :: String -> Int readInt = read
main = print (show [1..10])
main = print (4 <= 2)
main = do if 8 /= 8 then putStrLn "The values are Equal" else putStrLn "The values are not Equal"
fType :: Char-> Char fType x = 'K' main = do let x = 'v' print (fType x)
main = do let x = True if x == False then putStrLn "X matches with Bool Type" else putStrLn "X is not a Bool Type"
fType :: Double -> Double -> Double fType x y = x*x + y*y main = print (fType 2.56 3.81)
fType :: Float -> Float -> Float fType x y = x*x + y*y main = print (fType 2.5 3.8)
We use cookies to provide and improve our services. By using our site, you consent to our Cookies Policy. Accept Learn more