该代码在 New Jersey v110.78 的在线标准 ML 上运行良好,但在 unix SNL/NJ .93 上显示错误。这是代码
fun check( num:int ) =
let
val x = List.tabulate(num, fn x => x*x)
val k =tl(x)
val y = List.filter( fn z => num mod z = 0)k
val ans = List.last(y)
val final = Real.ceil(Math.sqrt (Real.fromInt ans))
in
final
end;
val nu = check(8)
错误是表格、过滤器、最后一个、ceil 和数学的未绑定结构中的未绑定构造函数或变量。