Skip to content

Instantly share code, notes, and snippets.

@rcotrina94
Created October 2, 2015 03:03
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save rcotrina94/813cc3e6c2b0bcf3b0eb to your computer and use it in GitHub Desktop.
Visual Prolog: Insertar un elemento al final de una lista

#Visual Prolog

Insertar un elemento al final de una lista

% Copyright Richard Cotrina ©2015
class main
open core
domains
lista = integer*.
predicates
classInfo : core::classInfo.
insFinal : (lista, integer, lista) procedure (i, i,o).
predicates
run : core::runnable.
end class main
% Copyright Richard Cotrina ©2015
implement main
open core
constants
className ="main".
classVersion = "".
clauses
classInfo(className, classVersion).
insFinal([], E, [E]).
insFinal([Cabeza|Resto], Elemento, [Cabeza|Lista]):-
insFinal(Resto, Elemento, Lista).
clauses
run() :-
console::init(),
insFinal([1,2,3,4],5, NuevaLista),
stdio::write("Salida---> Nueva Lista = ", NuevaLista),
stdio::nl,
programControl::sleep(4000),
succeed.
end implement main
goal
mainExe::run(main::run).
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment