在JavaScript中：

console.log(13 % 5);
// Expected output: 3

console.log(-13 % 5);
// Expected output: -3

我在Haskell也需要同样的东西。我做

:{
modulo :: Double -> Int -> Double
modulo a p = 
    let p' = fromIntegral p
    in
    if a > 0 
        then a - fromIntegral(p * floor(a/p'))  
        else a - fromIntegral(p * ceiling(a/p'))
:}

这似乎是有效的（至少我发现与JavaScript的结果相同）。有更好的办法吗？
与rem相反，它应该适用于Doublea：

ghci> modulo (-13.5) 5
-3.5