文字列を最初、最後、最後にどのように破棄するのですか？

Question

私は、数字が回文かどうかを判断する関数を書いています。

私が最初にしたいのは、文字列を最初の文字、中間のすべての文字、最後の文字に分解することです。私がするのは、最初の文字が最後の文字と等しいかどうかを確認し、そうであれば中間の文字をチェックすることです。

私が持っているものは以下ですが、コンパイル時にタイプエラーが発生します。あなたは型エラー理由を取得している[1,2]

に 1:2:[]結果：

numberIsPalindrome :: Int -> Bool 
numberIsPalindrome n = 
    case nString of 
    (x:xs:y) -> (x == y) && numberIsPalindrome xs 
    (x:y) -> x == y 
    x -> True 
    where nString = show n 

Answer 1

をString表現が浮気された使用を...

そうでもないが、これはもっと楽しいです：

import Data.List 

palindrome n = list == reverse list where 
    list = unfoldr f n 
    f 0 = Nothing 
    f k = Just (k `mod` 10, k `div` 10) 

数字の数字のリストを作成することです（unfoldrはそのようなタスクには本当に便利です）。逆転したときにリストが同じままであるかどうか。

あなたが試したことにはいくつかの問題があります。数字からString（これはHaskellのCharのリストに過ぎません）への変換がありません。リストはあなたが試したものとはまったく異なったものです。

つまり、一覧の「外側」要素から内側の要素に移動することができるように、リストにはinitとlastの機能があります。ナイーブ（非効率的な）実装は次のようになります。

Answer 2

あなたはおそらくしたい定義が、それはリストに項目を付加、(:)オペレータはconsとして知られている

numberIsPalindrome :: Int -> Bool 
numberIsPalindrome num = let str = show num 
         in (str == reverse str) 

Answer 3

です最初の引数であるCharと最後の引数である[a]を比較しようとしています。

実際に最初のものと最後のものを比較したい場合はheadとlastを使用します。

しかし、あなたはより良いtaktoaが提案されたソリューションを使用している：

numberIsPalindrome :: Int -> Bool 
numberIsPalindrome num = 
    numberString == reverse numberString 
    where numberString = show num