リストを含むハスケル再合成

Question

Int nのリストを検索し、nの前のリストの値を返す検索アルゴリズムを実装します。値がない場合、またはリストが空の場合は-1を返します。たとえば、findPrev 5 [1,2,3,4,5,6]は4を返し、findPrev 5 [0、10、20、30]は-1を返します。

今、私は番号を見つけるためにこれを手に入れましたが、以前の番号を取得する方法はわかりません。誰かが私にこれを助け説明することができますか？ここでは、私はこれでで午前場所を理解するのに役立ちます場合、私は最初のものは、知りませんでしたかです：

findNext :: Int -> [Int] -> Int 
findNext _ [] = -1 
findNext n (x:xs) 
    | n == x = head xs 
    | otherwise = findNext n xs 

Answer 1

findPrev :: Int -> [Int] -> Int 
findPrev _ [] = -1 
findPrev n (x:xs) 
    | xs == [] = -1 
    | n == head xs = x 
    | otherwise = findPrev n xs 

Answer 2

あなたが前の値を取得するためにパターンマッチングを使用することができます。一致するケースのパターンをx:y:xsと定義し、リストを少なくとも2つの要素と照合してください。空とシングルトンリストの例は、他のケースでは、明示的に綴ることができます。

findPrev :: Int -> [Int] -> Int 
findPrev _ [] = -1 
findPrev _ [_] = -1 
findPrev n (x:y:xs) = if n == y then x else findPrev n (y:xs) 

Answer 3

外-ボックス（しかし、非効率的な）答えは：リストの逆転にfindNextを使用しています。

リストが順序付けられていると仮定すると、

findPrev x xs = findNext x (reverse xs) 

Answer 4

：

module FindPrevious where 

findPrevious n xs 
    | n `elem` xs = last $ takeWhile (<n) xs 
    | otherwise = (-1)