分開列表haskell的偶數和奇數元素

Question

我正在嘗試將列表的元素分成更多列表，一個用於奇數，一個用於偶數。

例如，

input: [1,2,3,4,10]
output: ([2,4,10],[1,3])

sepList :: [Int]->([Int],[Int])
sepList [] = ([],[])
sepList (x:xs) | (x mod 2) ==0 = (([x],[]) ++ sepList xs) 
               | (x mod 2) /=0 = (([],[x]) ++ sepList xs)
               | otherwise = ([],[])

它在...++ sepList xs上給出錯誤，有人可以在這里指導我嗎？

Answer 1

運算符++用於連接2個列表，而++的參數都不是列表，

([x],[]) ++ sepList xs

([x],[])和sepList xs都是列表對。 因此，您想要在sepList xs上進行模式匹配，例如使用let綁定，

let (ys,zs) = sepList xs in

然后返回

(x:ys,zs)

Answer 2

您沒有串聯兩個列表； 您想要將一個元素添加到列表中，該列表是從遞歸調用的元組輸出中選擇的。 不要使用(++) ; 使用(:) 。

sepList (x:xs) = let (evens, odds) = sepList xs
                 in if even x 
                    then (x:evens, odds)
                    else (evens, x:odds)

不過，更簡單地說， sepList = partition even 。 （可以在Data.List找到partition 。）

Answer 3

到目前為止，有兩個答案建議基本上是手動執行此操作（通過對遞歸調用的結果進行模式匹配），但是實際上已經為您使用的類型定義了一個運算符，它可以完全滿足您的要求！ 列表以(<>) = (++)構成一個monoid，但是您沒有兩個列表：您有兩對列表。 幸運的是，如果對中的每個元素都是一個對映體，則對的類型也是一個對映體： (a,b) <> (c,d) = (a <> c, b <> d) 。 因此，您可以簡單地用<>替換++調用，這將導致連接成對的相應列表。

Answer 4

對於發燒友來說，遵循一行也可以將偶數和奇數分開。

sepList xs = (filter even xs , filter odd xs)

Answer 5

  import Data.List

  sepList :: [Int]->([Int],[Int])
  sepList = partition even

  sepList [1,2,3,4,10]

Answer 6

在這種情況下，我將使用一個accumulator來創建包含兩個列表的元組。在我們的示例中， accumulator是([],[]) 。

split::[Int]->([Int],[Int])
split ls= go  ([],[]) ls where 
   go accu [] = accu
   go (odd,even) (x:xs) | x `mod` 2==0 = go (x:odd,even) xs
                        | otherwise = go (odd, x:even) xs

如您所見，由於我們使用:運算符將元素推到列表的頂部，因此需要反轉元素。

我不知道這是否是最佳的，但我會用它寫這樣的reverse ：

module Split where
split::[Int]->([Int],[Int])
split ls=let rev tupl=(reverse . fst $ tupl ,reverse .snd $ tupl) in 
             rev $  go ([],[]) ls where 
                    go accu [] = accu
                    go (odd,even) (x:xs) | x `mod` 2==0 = go (x:odd,even) xs
                                         | otherwise = go (odd, x:even) xs