haskell - この回文検証子をポイントフリー スタイルで書き直すにはどうすればよいでしょうか?

Question

私はこのコードスニペットを持っています:

palindrome :: String -> Bool
palindrome x = x == reverse x

これをポイントフリースタイルで書き直す方法はありますか?

Answer 1

はい。

palindrome :: String -> Bool
palindrome = ap (==) reverse

Answer 2

 palindrome :: String -> Bool
 palindrome = uncurry (==) . (id &&& reverse)

(&&&)はControl.Arrowで定義されているため、(f &&& g) x = (f x, g x).