Compile and Execute Haskell Online

--isVowel :: Char -> Bool
--isVowel vowel
--          |vowel == 'a' || vowel == 'e' || vowel == 'i' || vowel == 'o' || vowel == 'u' = True 
--          |otherwise = False

-- isNegative :: Float -> Bool
-- isNegative inputNum = if inputNum < 0 then True else False 


-- middleNumber :: Integer -> Integer -> Integer -> Integer
-- middleNumber  x y z
--           |x > y && x < z || x > z && x < y = x
--           |y > x && y < z || y > z && y < x = y
--           |otherwise = z

--triangleArea :: Integer -> Integer -> Float 
--triangleArea a b = (fromIntegral a * fromIntegral b) * 0.5

nor :: Bool -> Bool -> Bool
nor a b
     | a == True  && b == True  = False
     | a == False && b == True  = False
     | a == True  && b == False = False
     | a == False && b == False = True

hasRemainder :: Integer -> Integer -> Bool 
hasRemainder divisor divised = if div divisor divised  == 0 then False else True

letterGrade :: Integer -> String 
letterGrade grade
             | grade >= 0  && grade < 60 = "F"
             | grade >= 60 && grade < 70 = "D"
             | grade >= 70 && grade < 80 = "C"
             | grade >= 80 && grade < 90 = "B"
             | otherwise = "A"

averageThree :: Integer -> Integer -> Integer-> Float
averageThree num num1 num2 = (fromIntegral num + fromIntegral num1 +fromIntegral num2) / 3

tripleNumber :: Integer -> Integer
tripleNumber num
             |num <= 100 = num * 3
             |otherwise = num


-- howManyBelowAverage :: Integer -> Integer -> integer -> Float 
-- howManyBelowAverage num num1 num2
--                              |num < averageThree num num1 num2
--                              |otherwise = 2.0


main = print(tripleNumber 101)