20/03/12 22:23:54 y8hLNrTr.net
p n=(3/6)*((3/6)^(n-1)-(1/6)^(n-1)-(2/6)^(n-1))+(1/6)*((5/6)^(n-1)-(2/6)^(n-1)-(3/6)^(n-1))+(2/6)*((4/6)^(n-1)-(1/6)^(n-1)-(3/6)^(n-1))
main = do
print $ sum [p n| n<-[3..10000]]
-------
0.9999999999999996
20/03/12 22:23:54 y8hLNrTr.net
p n=(3/6)*((3/6)^(n-1)-(1/6)^(n-1)-(2/6)^(n-1))+(1/6)*((5/6)^(n-1)-(2/6)^(n-1)-(3/6)^(n-1))+(2/6)*((4/6)^(n-1)-(1/6)^(n-1)-(3/6)^(n-1))
main = do
print $ sum [p n| n<-[3..10000]]
-------
0.9999999999999996