将Int除以Int并返回Int

我需要一个获取两个Ints（a和b）并返回A/B为Int。我确定那A/B将永远是整数。

这是我的解决方案：

myDiv :: Int -> Int -> Int
myDiv a b = 
      let x = fromIntegral a
          y = fromIntegral b
      in truncate (x / y)

但是想找到更简单的解决方案。像这样：

myDiv :: Int -> Int -> Int
myDiv a b = a / b

如何将Int除以Int并获取Int？

为什么不只是使用quot？

quot a b

是截断为零的整数a和b的整数商。

这是我要做的自己的事情：

quot' a b
         | a<b = 0  -- base case
         | otherwise = 1 + quot' a-b b