Код:
gc n pp
| even n = undefined
| otherwise = sum $ take (div n 2 + 1) psn
where
pn = 1-pp
ps1 = pp : pn : repeat 0
add ps = zipWith (+) (map (*pp) ps) (0 : map (*pn) ps)
psn = take (n+1) $ head $ drop (n-1) $ iterate add ps1А вот, что получается:
Ok, one module
(
Read more... )