--等比级数 geometric progression
gp a q = a : gp (a*q) q
--gp a q = map (/x -> a*q^x) [0..]
ap a d = a : ap (a+d) d
-- ap a d = [a, a+d..]
--等比级数 geometric progression
gp a q = a : gp (a*q) q
--gp a q = map (/x -> a*q^x) [0..]
ap a d = a : ap (a+d) d
-- ap a d = [a, a+d..]