列表建設在Haskell

Question

我有項目歐拉question no. 74下面的遞歸函數：

chain n | n `elem` xs = length xs 
     | otherwise = (chain (sumFac n)) : xs 
fac n = foldl (*) 1 $ enumFromTo 1 n 
sumFac n = sum $ map fac $ decToList n 

除了我不知道正確的語法來構建上chain n列表，以便它建立起來的xs列表，並然後返回xs的長度，一旦數字再次出現在xs的列表中並開始循環。

我如何糾正我的鏈功能，使其工作？

Answer 1

使用一個輔助功能：

chain n = go [n] 
    where go xs | next `elem` xs = reverse $ next : xs 
       | otherwise  = go (next:xs) 
      where next = sumFac $ head xs 

fac = product . enumFromTo 1 

sumFac = sum . map fac . map digitToInt . show 

正如你所看到的，你接近你想要的東西，但你模糊了兩者結合起來。

爲了好玩，我扔了點無關當量fac和sumFac。

下面是一個使用view pattern自由點清晰度（但是，唉，似乎胳肢#2395）：

{-# LANGUAGE ViewPatterns #-} 

chain = head . filter hasDup . tail . inits . iterate sumFac 
    where hasDup (reverse -> (x:xs)) = x `elem` xs 

Answer 2

不知道如果這很簡單，但你沒有指定你想要一個頭部和尾部，而不是參數中的整個列表。

chain [n:xs] | n `elem` xs = length xs 
      | otherwise = chain (sumFac n) : xs 
fac n = foldl (*) 1 $ enumFromTo 1 n 
sumFac n = sum $ map fac $ decToList n 

我沒有decToList，所以我沒有測試，如果這工作與否。它雖然很酷，但我學到了很多東西。

Answer 3

我覺得你的「連鎖」功能很混亂。你需要重新考慮它。您在其中使用的值「xs」似乎不在範圍內。 「xs」從哪裏來？據推測它應該是一個論據。

更好的方法是建立由問題生成的無限數字列表，然後檢測其中的循環。您可以使用起始值「n」獲得無限列表

numberSequence n = iterate sumFac n 

然後查找週期。你必須檢查每個號碼對所有前面的數字。一種簡單但低效的方法是隨時建立一個列表，根據當前列表檢查每個數字，然後在遞歸調用中將該數字前置到列表中。更有效的解決方案是使用Data.Set。

順便說一下，fac n = product [1..n]。你的版本可以工作，但它非常冗長。 （實際上，如果你用「產品」的定義來代替「des」「[1..n]」，你會得到你的版本）。