如何在 Haskell 中编写以下伪代码？
x=0
for (i from 0 to 100):
j=0
while ( f(i,j) >0 ):
x+= f(i,j)
j+=1
(f一些不重要的功能。）
我想出了这样的事情：
a= [x| i<-[0..100], let s = takeWhile (\k-> (f i k > 0)) [0..],
j<- s, let x = f i j ]
Then Sum a可以工作，但我需要计算f i j两次，这有点多余。
这可以用以下方法完成吗f只计算一次或一些运行速度更快的更好的代码？
这是一种仅计算的方法f每对一次：
inner i = sum $ takeWhile (> 0) $ map (f i) [0..]
x= sum $ map inner [0..100]
我不喜欢列表理解，尤其是对于更复杂的表达式，所以我发现你的解决方案很难阅读。主要区别在于，不是存储列表j是这样的f i j > 0，我存储了实际的函数值。由于懒惰，这不再起作用。
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
