关于ML语言实现列表元素平方后求和函数的技术问询

嘿，我明白你的问题啦！你现在的代码确实能把列表里的每个元素平方，但只是返回了平方后的列表，没把它们加起来。其实只需要在你的map操作之后补上求和逻辑就行，或者更高效地把平方和求和合并成一步操作，我给你两种实用方案：

方案一：先平方再求和（直观易懂） #

你可以保留现有的map操作生成平方列表，然后用List.foldl对这个新列表求和：

fun sqsum(lst) = List.foldl (fn (x, acc) => x + acc) 0 (map (fn x => x*x) lst);

这里的List.foldl会从左到右遍历列表，把每个元素加到累加器acc里，初始累加值设为0（因为求和的起点是0）。比如调用sqsum([1,2,3])，先得到[1,4,9]，再通过foldl把它们累加得到14。

方案二：一步完成平方+求和（更高效） #

如果不想创建中间的平方列表（处理大列表时更省内存），可以直接在foldl里同时计算平方和累加：

fun sqsum(lst) = List.foldl (fn (x, acc) => x*x + acc) 0 lst;

这个版本会遍历原列表的每个元素x，直接计算x*x然后加到累加器里，不用先生成整个平方列表，效率更高。测试同样的sqsum([1,2,3])，结果也是14。

小提示 #

如果你用的是SML/NJ，标准库自带List.sum函数，那方案一也可以简化成：

fun sqsum(lst) = List.sum (map (fn x => x*x) lst);

不过List.foldl是更通用的方法，在大多数ML方言里都能正常使用。

内容的提问来源于stack exchange，提问作者M. Stephens