[projectEuler.net]24;26

P24 

找出0 1 2 3 4 5 6 7 8 9 字典順序的第100萬個排序

不需要編程，

因為是字典順序，以最新的0 開頭的排列是有9！種，1開頭的排列有9！種。2開頭的也是9！。01開頭的共有七十幾萬種，加上2的超過了100萬。所以開頭是2。使用這個規則可以全部定位順序。

 

P26 

module P26 where

--findCycleSize 找出小數的迴圈位的位元

--t為中間求模過程，如果有後續的計算有相同的，那麼就是可以結束了。

--http://zh.wikipedia.org/wiki/%E5%BE%AA%E7%8E%AF%E5%B0%8F%E6%95%B0

findCycleSize :: Int -> Int ->[Int]->Int
findCycleSize a b t =
    let x = a `mod` b in
    if x `elem` t then length t
    else findCycleSize (x*10) b (x:t)

getSize b = findCycleSize 1 b []