等比級數(geometric progression) 和等差數列

--等比級數 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..]