面白い問題おしえて～な 28問目

面白い問題おしえて～ ..

60:１３２人目の素数さん
18/11/04 00:25:20.63 1wP06nNi.net
結局有理関数のテイラー展開の係数だからn項間関係の漸化式とけばいいんだね。
Prelude Data.List Data.Ratio> let ns n d = map head $ iterate(¥p -> (++[0] )$ tail $ zipWith (-) (p ++ (repeat 0)) $ map ((*) $ (head p)/(head d)) d) n
Prelude Data.List Data.Ratio> fromRational $ (!!49) $ ns [0,1%6] [6%1,-6%1,-1%1,0,0,0,0,1%1]
0.8984246585610248
Prelude Data.List Data.Ratio> 1 - it
0.10157534143897518

次ページ

続きを表示

1を表示