Left factorials: Difference between revisions

Content added Content deleted
Line 1,519: Line 1,519:


=={{header|Haskell}}==
=={{header|Haskell}}==
<lang haskell>fact :: [Integer]
<lang haskell>leftFact :: [Integer]
fact = scanl (*) 1 [1 ..]

leftFact :: [Integer]
leftFact = scanl (+) 0 fact
leftFact = scanl (+) 0 fact

fact :: [Integer]
fact = scanl (*) 1 [1 ..]


main :: IO ()
main :: IO ()