20/03/12 22:28:30 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 [(fromInteger n)*(p n)| n<-[3..10000]]
------------
7.300000000000009