SML中Int列表转Real列表及偏差计算代码报错求助

你遇到的核心问题是整数与实数的类型不兼容：x是int类型，而mean函数返回real类型，直接做减法会触发类型错误。另外代码还有几处逻辑问题需要修正：

1. 修复类型不匹配问题 #

将整数x转换为实数类型，使用Real.fromInt x即可解决减法的类型冲突。同时diff函数需要补充空列表的处理分支，避免递归报错。

2. 修正deviation函数的逻辑错误 #

• 你调用diff (first , first::rest)时传入了元组，但diff定义的参数是列表，应传入完整列表first::rest
• 当前deviation的递归逻辑不符合偏差计算的常规逻辑，调整为提前计算整个列表的均值，再批量计算每个元素与均值的差值

修正后的完整代码：

fun mean [] = 0.0
  | mean lst = 
      let 
        fun sum [] = 0
          | sum (x::xs) = x + sum xs
          
        fun counter [] = 0
          | counter (y::ys) = 1 + counter ys       
      in 
        Real.fromInt (sum lst) / Real.fromInt (counter lst)
      end;

fun deviation [] = []
  | deviation lst = 
      let 
        val avg = mean lst  // 提前计算整个列表的均值，避免重复递归计算
        fun diff [] = []
          | diff (x::xs) = (Real.fromInt x - avg) :: diff xs
      in
        diff lst
      end;

扩展说明（计算标准差） #

如果需要计算常用的标准差（平方差的均值的平方根），可以基于上述代码扩展：

fun standardDeviation [] = 0.0
  | standardDeviation lst = 
      let
        val avg = mean lst
        fun squaredDiffSum [] = 0.0
          | squaredDiffSum (x::xs) = 
              let val diff = Real.fromInt x - avg
              in diff * diff + squaredDiffSum xs
              end
        val count = Real.fromInt (length lst)
      in
        Math.sqrt (squaredDiffSum lst / count)
      end;

内容的提问来源于stack exchange，提问作者foxy