将Int除以Int并返回Int

Question

我需要一个函数，它会获得两个Int s（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？

Answer 1

为什么不使用quot？

quot a b

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

Answer 2

这就是我自己做的事情：

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