此代码不被接受;
> fun fact 0.0 = 1.0 Error-Real constants not allowed in patterns > | fact n = n*fact(n-1); Static Errors
为什么是这样?
constants sml polyml
constants ×1
polyml ×1
sml ×1