将Int除以Int并返回Int
将Int除以Int并返回Int
提问于 2010-12-05 21:30:17
我需要一个函数来获取两个Int (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？
回答 2
Stack Overflow用户
回答已采纳
发布于 2010-12-05 21:36:14
为什么不直接使用quot
quot a b是向零截断的整数a和b的整数商。
Stack Overflow用户
发布于 2018-02-10 05:59:50
下面是我自己做的：
quot' a b
| a<b = 0 -- base case
| otherwise = 1 + quot' a-b b页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/4359043
复制相关文章
相似问题