分からない問題はここに書いてね457

分からない問題はここ ..

176:１３２人目の素数さん
20/01/01 01:34:02 HJFk4lop.net
同室バージョン

import Data.Ratio
import Data.List

rotations x = tail $ zipWith (++) (tails x) (inits x)
w s = fromIntegral $ length s
a s = [ filter (/=0) $ ((head t)-1):(tail t) | t <- rotations s]
p s = case s of
[1,1] -> 0%1
[_] -> 1%1
x -> (/(w s)) $ sum $ map p $ a s

printP s = print (s, p s,fromRational $ p s)
main = do
printP [3,3]
printP [2,2,2]
printP [4,4]
printP [2,2,2,2]
printP [3,3,3]
printP [5,5]
printP [2,2,2,2,2]

実行結果

([3,3],5 % 8,0.625)
([2,2,2],7 % 18,0.3888888888888889)
([4,4],11 % 16,0.6875)
([2,2,2,2],97 % 288,0.3368055555555556)
([3,3,3],335 % 648,0.5169753086419753)
([5,5],93 % 128,0.7265625)
([2,2,2,2,2],54997 % 180000,0.3055388888888889)

次ページ

続きを表示

1を表示