En este grupo En todos

Foro de Prolog

Luis Tezen Cabrejos Luis
Ingeniería de sistemas universidad señ...
Escrito por Luis Tezen Cabrejos Luis
el 13/10/2015

Edo_inicial(1-2-3-0-4-5-6).

Edo_final(RV1-RV2-RV3-P-RC1-RC2-RC3):-RV1=:=4,RV2=:=5,RV3=:=6,P=:=0,RC1=:=1,RC2=:=2,RC3=:=3.


Salta(RV1-RV2-RV3-P-RC1-RC2-RC3,RV1-RV2- 0-3-RC1-RC2-RC3):-P=:=0,RV3=:=3.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3,RV1-RV2-4-P-0-RC2-RC3):-P=:=3,RV3=:=0.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3,RV1-RV2-RV3-P-5- 0-RC3):-P=:=3,RC1=:=0.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3,RV1-RV2-RV3-0-RC1-3-RC3):-RC1=:=5,RC2=:=0.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3,RV1-0-RV3-2-RC1-RC2-RC3):-P=:=0,RC2=:=3.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3, 0- 1-RV3-P-RC1-RC2-RC3):-P=:=2,RV2=:=0.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3, 4-RV2- 0-P-RC1-RC2-RC3):-RV1=:=0,RV2=:=1.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3,RV1-RV2-5-P- 0-RC2-RC3):-RC1=:=5,RV3=:=0.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3,RV1-RV2-RV3-P- 6-RC2- 0):-RV3=:=5,RC1=0.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3,RV1-RV2-RV3-P-RC1- 0- 3):-RC1=:=6,RC3=:=0.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3,RV1-RV2-RV3-0-RC1- 2-RC3):-RC2=:=0,RC3=:=3.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3,RV1- 0-RV3-1-RC1-RC2-RC3):-P=:=0,RC2=:=2.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3,RV1- 5- 0-P-RC1-RC2-RC3):-P=:=1,RV2=:=0.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3,RV1-RV2- 6-P- 0-RC2-RC3):-RV2=:=5,RV3=:=0.

Salta(RV1-RV2-RV3-P-RC1-RC2-RC3,RV1-RV2-RV3-0-1-RC2-RC3):-RV3=:=6,RC1=:=0.


Salt(S) :- nl,nl,edo_inicial(E),salt([E],S).

Salt([E|C],S):-edo_final(E),write(E).

Salt([E|C],S):-salta(E,E1),not(miembro(E1,C)),write(E),nl,salt([E1,E|C],S).


Miembro(H,[H|_]).

Miembro(H,[_|T]):-miembro(H,T).




Ahi esta bro ya tienes la solucion
Emagister Responde
Barcelona, España
Escrito por Emagister Responde
el 19/07/2017

Muy buenas, estaría fantástico retomar la actividad de este foro. Sois todos bienvenidos a participar.