我要声明一个!用于计算 Integer 的面函数的运算符。
我在文件中有这段代码。
:- arithmetic_function(!/1).
!(X,Y):-sil(X,1,Y).
sil(0,X,X):-!.
sil(N,A,X):-A1 is A*N,N1 is N-1,sil(N1,A1,X).
我使用 op(500,yf,!) 来声明一个操作员。为什么这个解决方案不起作用我的意思是它看起来像算术函数没有注册我的!功能。
当我尝试5!我明白了
错误:未定义的过程:(!)/1 错误:但是,有以下定义:错误:(!)/0 错误:(!)/2 错误。