项目Euler＃24在Haskell

Project Euler #24 in Haskell

我正试图用Haskell解决Project Euler的问题，但我在24时被吸引了。

我试图用阶乘来解决这个问题，但最后三位数字不起作用，下面是我的代码：

1
2
3
4
5
6
7
8
9
10
11

import Data.List
fact n = product [n, n-1 .. 1]
recur :: Int -> Int -> [Int] -> [Int]
recur x y arr
| y > 1 = arr !! d : recur r (y-1) (delete (arr !! d) arr)
| otherwise = arr
where d = x `div` fact y
r = x `mod` fact y

main::IO()
main = print(recur 1000000 9 [0..9])

(我知道它现在不是真正的"功能性的")。我设法得到了结果[2,7,8,3,9,1,4,5,0,6]，而我无意中得出的正确答案是2783915460。

我只想知道为什么这个算法在最后三位数不起作用。谢谢。