Продукт факториала in haskell

Question

Я пытаюсь преобразовать Python в Haskell, но сталкиваюсь с трудностями. Я очень новичок в Haskell и знаю только основы. Вот код Python, который мне нужен в Haskell. Кто-нибудь может мне помочь?

Спасибо.

import sys 
fact=[] 
def facto(): 
    mod=1000000007 
    f1=1;f2=1 
    for j in xrange(1,1000001): 
     f1=f1*j%mod 
     f2=f2*f1%mod 
     fact.append(f2) 
def main(): 
    facto() 
    tc=int(sys.stdin.readline()) 
    for i in xrange(tc): 
     n=int(sys.stdin.readline()) 
     sys.stdout.write("Case %d: "%(i+1)) 
     print fact[n-1] 
main() 

Answer 1

Вот способ создания "продукт факториалов" списка с помощью scanl:

p = 1000000007 :: Int64 
mtimes a b = mod (a * b) p 
facts = scanl mtimes 1 [1..] 
prodfacts = scanl mtimes 1 facts 

Примечание:

ghci> take 10 facts 
[1,1,2,6,24,120,720,5040,40320,362880] 

ghci> take 10 prodfacts 
[1,1,1,2,12,288,34560,24883200,411327125,709563912]