保存变量，并用它在递归

Question

假设我有以下功能

printVariance :: [Float] -> IO() 
printVariance [] = return() 
printVariance (x:xs) 
    | x >= avg (x:xs) = print (x - avg (x:xs)) >> printVariance xs 
    | otherwise  = printVariance xs 

它得到一个列表，检查哪些元素是比一般的大，并打印自己的value - avg。

我的问题是avg值每一步都会改变。我怎样才能定义它一次并使用它的递归值呢？

Answer 1

将递归移动到辅助函数中。该函数可以将平均值作为参数，也可以在本地定义为printVariance并定义另一个保持平均值的局部变量，然后该函数可以访问该平均值。

在代码：

printVariance :: [Float] -> IO() 
printVariance xs = loop xs 
    where 
    average = avg xs 
    loop [] = return() 
    loop (x:xs) 
     | x >= average = print (x - average) >> loop xs 
     | otherwise = loop xs 

PS：这将是良好的设计到IO从程序逻辑分离。所以我建议你让你的函数只是产生一个你想要的值列表，而不是打印它们并把IO移动到一个单独的函数中（或者只是main）。

PPS：你没有真正计算方差，所以我建议将函数命名为别的。