如何在 Clean 中检查数字是否为回文

Question

我正在解决这个干净的编程语言的作业； 问题是我们有一个五位数的数字，我们想检查它是否是奇数回文。 我停留在将数字分成五个独立数字并与原始数字进行比较以进行回文检查的阶段。 使用 Clean 我无法遍历数字并检查它是否从两侧保持不变，所以我正在寻找替代解决方案（一些数学运算）。

代码块：

isOddPalindrome :: Int -> Bool
isOddPalindrome a
| isFive a <> 5 = abort("The number should be exactly five digits...")
| (/*==> Here should be the palindrome check <==*/) && (a rem 2 <> 0) = True
| otherwise = False

isFive :: Int -> Int
isFive n
| n / 10 == 0 = 1
= 1 + isFive(n / 10)

我的想法是将数字 append 的数字一位一位地取到一个空列表中，然后在列表上执行reverse方法并检查它是否相同（回文）

Answer 1

您上面的答案没有停止条件，因此会导致堆栈溢出。

你可以试试这个

numToList :: Int -> [Int]
numToList n
| n < 10 = [n]
= numToList (n/10) ++ [n rem 10]

Start = numToList 12345

然后就像你在答案中提到的那样，你可以用'reverse' function 反转它并检查它们是否相等。

Answer 2

经过数小时的尝试找出如何递归地将我们的数字添加到空列表后，我做了以下事情：

sepDigits :: Int [Int] -> [Int]
sepDigits n x = sepDigits (n/10) [n rem 10 : x]

现在我可以很容易地检查反向是否等于初始列表:)那么这个数字就是回文。