1
2
duplique(A|_,Out) :- duplique(A|In,A|A|Out).
duplique(_|Resto,Out) :- duplique(Resto,Out).

1
2
duplique([A|_],[_|Out]) :- duplique([A|In],[A|A|Out]).
duplique([_|Resto],Out) :- duplique(Resto,Out).

1
duplique([A|_],[_|Out]) :- duplique([A|In],[A|A|Out]).

1
duplique(A|In,Out) :- duplique(A|A|In,Out).

1
2
fact(1,1).
fact(X,Z):-Y is X-1,fact(Y,W),Z is X*W.

1
2
fact(1,1).
fact(X,Z):-Y=X-1,fact(Y,W),Z=X*W.

1
2
fact(1,1).
fact(X,Z):-Y=X-1,fact(Y,W),Z=X*W.

1
2
3
4
5
6
7
8
                        program :- write('Entre nombre: '),
                                   read(Nombre), 
                                   write('Entre nota 1: '),
                                   read(Calif1),
                                   write('Entre nota 2: '),
                                   read(Calif2),
                                   NotaFinal is (Calif1 + Calif2)/2,
                                   detMensaje, escritura.
 ...

1
I DON'T EVEN KNOW

1
2
3
4
program :- get_char(X),get_char(Y),check(X,Y). 
check('4','2'):-!. 
check(X,Y):-write(X),get_char(Z),check(Y,Z).
:- program.

1
2
test('A').
test('A').

1
2
test('A').
test('A').

1
2
3
convert(SQm, SQcm):-
        nonvar(SQm) -> SQcm is 10000*SQm;
        SQm is SQcm/10000.

1
2
3
convert(SQm, SQcm):-
        nonvar(SQm) -> SQcm is 10000*SQm;
        SQm is SQcm/10000.

1
2
convert(SQm, SQcm):-
        nonvar(SQm) -> SQcm is 10000*SQm; SQm is SQcm/10000.

1
2
convert(SQm, SQcm):-
        nonvar(SQm) -> SQcm is 10000*SQm; SQm is SQcm/10000.

1
2
3
4
5
6
convert(SQm, SQcm):-
        nonvar(SQm),
        SQcm is 10000*SQm.
convert(SQm, SQcm):-
        var(SQm),
        SQm is SQcm/10000.

1
2
3
4
5
6
convert(SQm, SQcm):-
        nonvar(SQm),
        SQcm is 10000*SQm.
convert(SQm, SQcm):-
        var(SQm),
        SQm is SQcm/10000.

1
2
3
4
5
6
convert(SQm, SQcm):-
        var(SQm),
        SQcm is 10000*SQm.
%convert(SQm, SQcm):-
%       nonvar(SQm),
%       SQm is SQcm/10000.

1
2
3
4
5
6
convert(SQm, SQcm):-
        var(SQm),
        SQcm is 10000*SQm.
convert(SQm, SQcm):-
        nonvar(SQm),
        SQm is SQcm/10000.

1
2
convert(SQm, SQcm):-
        SQcm is 10000*SQm.

1
2
convert(SQm, SQcm):-
        SQm is SQcm/10000.

1
2
convert(SQm, SQcm):-
        SQm is SQcm/10000.

1
2
convert(SQm, SQcm):-
        SQm is SQcm/10000.

1
2
convert(SQm, SQcm):-
        SQm is SQcm/10000.

1
2
3
4
5
6
7
8
pop(china, 800).
pop(australia, 1200).
area(china, 4).
area(australia, 3).
density(X,Y):-
        pop(X,P),
        area(X,A),
        Y is P/A.
 ...

1
2
3
4
5
6
7
8
pop(china, 800).
pop(australia, 1200).
area(china, 4).
area(australia, 3).
density(X,Y):-
        pop(X,P),
        area(X,A),
        Y is P/A.
 ...

1
2
3
4
5
6
7
8
pop(china, 800).
pop(australia, 1200).
area(china, 4).
area(australia, 3).
density(X,Y):-
        pop(X,P),
        area(X,A),
        Y is P/A.
 ...

1
2
3
4
5
6
7
8
pop(china, 800).
pop(australia, 1200).
area(china, 4).
area(australia, 3).
density(X,Y):-
        pop(X,P),
        area(X,A),
        Y is P/A.
 ...

1
2
3
4
5
6
7
8
pop(china, 800).
area(china, 4).
pop(australia, 1200).
area(australia, 3).
density(X,Y):-
        pop(X,P),
        area(X,A),
        Y is P/A.
 ...