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.