将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