Home / Questions / 27538
Accepted
Ramosaurio
Asked: 2020-10-14 01:26:06 +0800 CST 2020-10-14 01:26:06 +0800 CST

将 Haskell 列表分成奇偶元组

  • 772

我有以下功能：

ParesImpares:: [Integer] -> ([Integer],[Integer])

我必须从列表中取出偶数和奇数：

ParesImpares [3,2,4,5,7]

->([2,4],[3,5,7])

到目前为止，我的代码如下：

    paresImpares :: [Integer] -> ([Integer],[Integer])
    paresImpares [] = ([],[])
    paresImpares [x] 
    | x `mod` 2 == 0 = ([x],[])
    | otherwise = ([],[x])

我已经定义了一个基本案例，但事实是我不知道如何进行。我想到了类似的东西：

ParesImpares(x:xs) = ParesImpares [x]

但当然，它只评估列表的第一个元素。

haskell

2 Answers

  1. Best Answer

    有一个更直接的解决方案：

    import Data.List (partition) 

paresImpares :: Integral a => [a] -> ([a],[a])
paresImpares = partition even
    • 1

  2. 好吧，我找到了答案：

    paresImpares :: Integral a => [a] -> ([a],[a])
paresImpares [] = ([],[])
paresImpares (x:xs)
| x `mod` 2 == 0 = (x:pares,impares)
| otherwise = (pares, x:impares)
where (pares,impares) = paresImpares xs

    这工作完美xmod2可以替换为even

    • 0