Visual Prolog: Insertar un elemento al inicio de una lista

InsertarInicioVProlog.md

Visual Prolog

Insertar un elemento al inicio de una lista

main.cl

% Copyright Richard Cotrina ©2015

class main
    open core

domains
    lista = integer*.

predicates
    insInicio : (lista, integer, lista) procedure (i,i,o).
    
predicates
    run : core::runnable.

end class main

main.pro

% Copyright Richard Cotrina ©2015

implement main
    open core

clauses
    insInicio(L, E, [E|L]).
clauses
    run() :-
        Lista = [2,3,4],
        insInicio(Lista, 1, NuevaLista),
        stdio::write(NuevaLista),
        programControl::sleep(4000),
        succeed.

end implement main

goal
    console::runUtf8(main::run).