使用Haskell的數字的倍數

Question

我已經寫了以下函數來查找輸入數字的倍數。 當我嘗試給出負數時，輸出僅爲正數列表。如何修改我的代碼以允許在輸出中列出負數？

我嘗試：

multiples n = if n<0 then result1 else result2 
where 
    result1 = [x | x <- [0..], x `mod` (-n) == 0]   
    result2 = [x | x <- [0..], x `mod` n == 0] 

    Input : take 5 $ multiples (-3) 
    Output: [0,3,6,9,12] 
    Expected Output: [0,-3,-6,-9,-12] 

Answer 1

如果只是將參數乘以連續的自然數，則可以避免分支：

multiples n = map (* n) [0..] 

這適用於所有n，正面或負面。 （和零，如果你不介意0的無限列表。）

Answer 2

您需要在負版本來否定x：

result1 = [-x | x <- [0..], x `mod`(- n) == 0] 

當然，這只是解決立即解決問題@ chepner的回答是更優雅