Question

我无法解决此问题。任何可能的解决方案的提示将不胜感激。

给定Double值v和Double值列表xs，calcList会返回Double个列表根据以下规则：

对于x中的每个值xs，如果x不为正，则输出列表中将没有相应的值。
否则，相应的输出值将为x * ln x。
但是，当且仅当其值大于v时，此值才会出现在输出列表中。
相应输出值（如果存在）的顺序应与输入相同值。

以下是一些例子：

calcList 1.0 [] = []
calcList 1.0 [3.0] = [3.2958]
calcList 1.0 [-1.0, 1.0, 3.0, 5.0, 7.0, 9.0] = [3.2958, 8.0472, 13.6214, 19.7750]
calcList 100.0 [1.0 .. 40.0] = [102.0359, 106.4536, 110.9035, 115.3847, 119.8963, 124.4372, 129.0067, 133.6040, 138.2283, 142.8789, 147.5552]

这是我到目前为止所做的：

positive :: Double -> Bool
positive x = x > 0.0

calcValue :: Double -> Double
calcValue x = log x * x

calcList :: Double -> [Double] -> [Double]
calcList v xs = []
calcList v xs

Answer 1

所以看起来有3个步骤。

摆脱元素＆lt; = 0（filter）
将每个剩余元素乘以其自然日志（map）
摆脱元素＆lt; = v（filter）

我们可以使用(.)（从f.g == \x -> f (g x)开始）来组合函数，而不是将每个应用于输入。

calcList = \v -> filter (>v) . map (\x -> x*log x) . filter (>0)

您应该查看filter和map上的文档。来自了解你一个Haskell 的this chapter也是一个很好的阅读。

Answer 2

我们可以使用我们使用filter和map等函数的方法。使用 list comprehension

可以获得等效的解决方案

calcList :: (Ord d, Floating d) => d -> [d] -> [d]
calcList v xs = [xlogx | x <- xs, x > 0, let xlogx = x * log x, xlogx > v]

我们在这里使用x <- xs来迭代xs中的元素，通过使用x > 0我们过滤值，使得只考虑x > 0的值。接下来，我们将变量xlogx定义为let xlogx = x * log x，然后我们有一个额外的过滤器来检查xlogx > v。

列表推导的yield部分（管道char |之前的部分）指定我们将xlogx添加到列表中。

Answer 3

另一种方法可能是

Config resultante = new Config(Arrays.copyOf(dada.tabela, dada.tabela.length));

在每个calcList :: Double -> [Double] -> [Double] calcList v [] = [] calcList v (x:xs) = case (positive x) of { False -> calcList v xs; True -> case ((calcValue x) > v) of { False -> calcList v xs; True -> (calcValue x):(calcList v xs); }; }中检查其中一个条件，再加上在列表开头添加数字，这样订单就会相同。

Haskell数字列表处理

3 个答案: