问题是找到最后一个元素。它工作得很好整数类型。Int 类型溢出,但是当我尝试 Int64 时,垃圾收集器似乎停止工作。
module Main (main) where
import Data.Int
import System.Environment
getNum :: Int -> Int64
merge [] s2 = s2
merge s1 [] = s1
merge (s1:s1s) (s2:s2s)
| s1 < s2 = s1 : (merge s1s (s2:s2s))
| s1 > s2 = s2 : (merge (s1:s1s) s2s)
| otherwise = s1 : (merge s1s s2s)
scaleStreams scale = map $ (*) scale
getNum n = s_3_56!!n
where s_3_56 = 1:(merge (scaleStreams 2 s_3_56)
(merge (scaleStreams 3 s_3_56)
(scaleStreams 5 s_3_56 )))
main = do
snum:_ <- getArgs
putStrLn $ show $ getNum (read snum)
UPD。错过导入 Data.Int。并且需要 100,000,000 个元素。使用 Int64 时,它只是停止响应或停止使用处理器。
也许我需要一些 ghc 的密钥,以便它可以清理我不需要的元素。
这些都是关于基准测试的,所以我需要一些比 Integer 更清晰的东西。