Home / Questions / 307404
Accepted
Carlos
Asked: 2020-11-11 07:19:41 +0800 CST 2020-11-11 07:19:41 +0800 CST

添加 Haskell 列表的元素

  • 772

我在 Haskell 中做一个编程练习，其中我在一个列表中给出了一些值，例如 [1, 2, 2, 3, 4] 应该如下 [1, 4, 3, 4]。到目前为止，该程序使用以下代码对我来说没有问题：

sustituirSumando [x,y] 
              | x==y = [x+y]
              | otherwise = [x,y]
sustituirSumando [x,y,z] 
              | x==y = [x+y,z]   
              | y==z = [x,y+z]
              |otherwise = [x,y,z] 
sustituirSumando (x:y:xs) 
               | x==y = (x+y) : sustituirSumando (xs)                
               | otherwise = x: sustituirSumando (y:xs)

我不知道如何进行的地方是在下面的假设示例 [1, 2, 2, 4, 5] 中，列表应如下所示 [1, 8, 5] 但在我的代码中它仍然是 [1, 4 , 4, 5]。提前致谢。

haskell

2 Answers

  1. 您可以创建一个函数，该函数接收两个列表int作为输入并返回一个列表int。我们需要两个输入，以便我们可以在函数中使用递归。

    suma1 :: [Int] -> [Int] -> [Int]

    第一项是存储每次迭代结果的列表。在第一次迭代中，第一个列表必须为空 ( [])。
    第二个条目是未在函数中处理的列表的其余部分。

    我们一步一步地进行操作。
    在每次迭代中，我们测试第一个列表的最后一个元素是否等于第二个列表的第一个元素。当第二个列表中不存在任何元素时，迭代结束。

    在这里，我们使用initand函数last来获取列表的特定部分。

    代码：

    suma1 :: [Int] -> [Int] -> [Int]
suma1 [] [] = []
suma1 [] [a] = [a]
suma1 [] (y:ys) = suma1 [y] ys
suma1 x (y:ys) =
   if ys == []
   then
      if last x == y 
      then init x ++ [(last x) + y] 
      else x ++ [y]
   else
      if last x == y 
      then suma1 (init x ++ [(last x) + y]) ys 
      else suma1 (x ++[y]) ys

    例子：

    如果执行suma1 [] [1, 2, 2, 4, 5]，则操作为：

    第一名单 | 第二名单
-------------------------------------
     [] [1,2,2,4,5]
     [1] [2,2,4,5]
     [1,2] [2,4,5] -> 添加
     [1,4] [4,5] -> 添加
     [1.8] [5]
     [1,8,5] [] -> 函数结束

    如果您不想将空列表作为参数传递，则可以suma1从另一个函数调用：

    sustituirSumando :: [Int] -> [Int]
sustituirSumando x = suma1 [] x
    • 1
  2. Best Answer

    在递归中，您必须再次将加数添加到列表中。像这样的东西：

    sustituirSumando :: [Integer] -> [Integer]
sustituirSumando [] = []
sustituirSumando [x] = [x]
sustituirSumando (x:y:xs) | x==y      = sustituirSumando (x+y:xs)
                          | otherwise = x:sustituirSumando (y:xs)
    • 1