How to write non recursion factorial program using visual Prolog
Posted: 23 Mar 2017 16:39
How to write non recursion factorial program using visual Prolog
main.pro
error c150 : Syntax error
main.cl
main.pro
Code: Select all
run() :-
factorial(Number,Factorial):-
Number is 0,
Factorial is 1;
Number >0
M is Number-1,
Factorial(M,G),
Factorial is Number*G,
stdio::write("Factorial is ",Factorial).
main.cl
Code: Select all
class main
open core
predicates
run : core::runnable.
factorial : (integer Number,integer Factorial,integer M,integer G) procedure(i,o,o,o).
end class main