我正在学习 Haskell 的基础知识,并试图解决 Euler 项目的简单任务:找到 3 位数字的最大回文数 (100.999)。我写了这段代码:

palindrome = maximum $ filter (\a -> reverse a == a) $
                                    map show [ x*y :: Int | x <- [100 .. 999],
                                                            y <- [x, x+1 .. 999]]

它给出了错误的答案 = 99999,当我将其更改为 x <- [307 .. 999] 时,答案仍然是错误的:94249(所有回文,但不是最大的),最后当我将其更改为 x <- [308 .. 999], 时,它​​给了我正确的答案:906609。

我真的不明白这种行为:似乎在生成的列表中发生了某种溢出和截断。有人可以向我解释这种错误的行为吗?我 不希望 你来回答这个任务:我知道我的解决方案效率不高。我只是想让你解释一下这个代码行为(列表截断或内存问题)。谢谢。

最佳答案

filter 的结果是 String 值的列表,因此 maximum 正在按字典顺序比较它们。您需要先将值转换回 Int 。类型签名确保 read 返回正确类型的值。

palindrome :: Int
palindrome = maximum . map read . filter ...

另一种方法是在过滤器本身中仅将值转换为 String:
palindrome :: Int
palindrome = maximum $ filter (\a -> let sa = show a in reverse sa == sa) [ x*y | x <- [100..999], y <- [x..999]]

关于haskell - 列表推导式的奇怪行为,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/41534058/

10-14 18:02
查看更多