implement main
open core, stdio
class predicates
factorial:(integer Numero, integer Respuesta) procedure(i,o).
clauses
factorial(Numero, 1):- Numero=1,!.
factorial(Numero, Numero*Respuesta):- factorial(Numero-1, Respuesta).
clauses
run() :-
factorial(read(), Respuesta),
write(Respuesta),
succeed. % place your own code here
end implement main
goal
console::runUtf8(main::run).
Be the first to comment
You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.