2 lines
104 B
Haskell
2 lines
104 B
Haskell
expseq :: [Rational] -> [Rational]
|
|
expseq ps = zipWith (\p q -> p*fromInteger q) ps (scanl (*) 1 [1..])
|