如何通过变量haskell划分列表

Question

做一个小项目，但经过几个小时的工作，我仍然无法弄清楚如何将列表中的每个元素除以变量

diver xs = map divhs j
       where divhs = div hs
                hs = tupleTest1 xs
                 j = jot xs

不会工作，也不会

 map (/ j) hs

欢迎任何人提供帮助

真的是你的 哈斯克尔磨砂

Answer 1

 where divhs = div hs
          hs = tupleTest1 xs
           j = jot xs

这不是正确的缩进。每行的第一个非空格字符（where 之后）才是最重要的。由于每一行开始时都比前一行缩进更多，因此整个 where 块被解析为就好像它在一行上一样。

   where divhs = div hs hs = tupleTest1 xs j = jot xs

因此，会出现错误，尤其是因为 hs 和 j 被解析为附加参数，并且该行上有太多 = 符号。

Answer 2

您对map 的建议应该有效。
请参阅下面我在 ghci 中的示例：

Prelude> let mylist = 1:2:3:4:5:[]
Prelude> mylist
[1,2,3,4,5]
Prelude> let diver xs d = map (/ d) xs
Prelude> diver mylist 2
[0.5,1.0,1.5,2.0,2.5]
Prelude>

或使用您的简短版本

Prelude> map (/ 2) mylist
[0.5,1.0,1.5,2.0,2.5]

---

根据您的 cmets 和您的错误消息

 couldn't match expected type '[[int]]' with actual type int - * In the second argument of map' , namely j' - In the expression: map divhs j 

问题在于输入变量 j 不是您期望的 int，而是一个 int 列表列表。
因此问题可能在于您的函数jot，因为您将j 设置为where j = jot xs。

---

您说jot 会返回一个数字。我会推荐

• 尝试手动输入参数时diver 是否有效
• 确保jot 实际上不会返回类似[[1337]] 的内容。如果它实际上返回一个列表列表（如错误消息所示），但您认为它只是一个数字，那么它可能只是一个包含在列表列表中的单个 int。

如果是第二个要点，您可以将其解压缩作为快速修复（但最好修复您的 jot 代码）：

Prelude> :{
Prelude| let myunpack (x:xs) = unpackagain x
Prelude|                        where
Prelude|                          unpackagain (y:ys) = y
Prelude| :}
Prelude> myunpack [[123]]
123