Haskell,如何检查palindrom

Question

我有一个小问题.True即使角色是大写字母,我怎么能扩展我的功能才能返回.

我的函数适用于列表中的字符串:

f1 w = w == reverse w

Test:
*Main> let test = ["Boob"]
*Main> f1 test
True

*Main> let test2 = "Boob"
*Main> f1 test2
False

问候,

马丁

Answer 1

关于什么

import Data.Char (toLower)

f1 :: String -> Bool
f1 w = w == reverse w

f2 :: String -> Bool
f2 str = f1 $ map toLower str

但我建议的是为你的功能使用好名字

testPalindrome = f1
ignoreCase = map toLower

然后

testPalindrome' = testPalindrome . ignoreCase

更新:

这.是功能的连接:

(.) :: (b -> c) -> (a -> b) -> (a -> c)
(g . f) x = g (f x)


     f
 A -----> B
  \       |
   \      |
g.f \     |g
     \    |
      V   V
        C

UPDATE2

@dfeuer在评论中提到了一个非常优雅的解决方案

import Data.Function (on)
import Data.Char (toLower)

(=~=) :: String -> String -> Bool
-- | Equivalence of Strings, by ignoring the case
(=~=) = (==) `on` toLower

testPalindrome :: String -> Bool
testPalindrome w = w =~= reverse w

该函数on(使用带有反引号语法的中缀)接受一个函数(==)和一个"修饰符函数" toLower并将其应用于该函数的参数.

(f `on` g) x y = f (g x) (g y)

这对二进制运算符特别有用,例如(==),(<)等等.