檢查字符串是否在“i”字母處是回文？

Question

我有一個程序可以檢查字符串是否為回文。 我想添加功能，讓用戶檢查給定的字符串是否在 i 個字母處是回文。 例如，如果字符串是“abbaabba”並且用戶給出數字 4，則它返回 true，因為“abba”是回文。 如果用戶給出 5，則返回 false，因為“abbaa”不是回文。

這是我到目前為止所做的

palindromes:: String -> Int -> Bool

palindromes p i
   | p == reverse p = True
   | otherwise = False

如何添加該功能？

Answer 1

您可以在此處使用take :: Int -> [a] -> [a]來預處理字符串：

palindromes :: Eq a => [a] -> Int -> Bool
palindromes p i = p' == reverse p'
    where p' = take i p