On Sat, Jan 30, 2010 at 8:39 AM, zaxis <z_axis@163.com> wrote:
fac n = foldr (*) 1 [1..n]

fac n = product [1..n]

;)