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

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

61:１３２人目の素数さん
18/11/04 01:08:35.11 1wP06nNi.net
訂正
Prelude Data.List Data.Ratio> let ns n d = map ((/(head d)).head) $ iterate(¥p -> tail $ zipWith (-) (p ++ (repeat 0)) $ map ((*) $ (head p)/(head d)) d) n
Prelude Data.List Data.Ratio> fromRational $ (!!49) $ ns [0,1%1] [6%1,-6%1,-1%1,0,0,0,0,1%1]
0.8984246585610248
Prelude Data.List Data.Ratio> 1 - it
0.10157534143897518

次ページ

続きを表示

1を表示