xPasos - TODO POR PASOS: julio 2011

miércoles, 20 de julio de 2011

PROLOG: Invierte una lista (versión 3)

14:44 |

Publicado por a8a |

Este programa invierte una lista:


my_reverse([X|Xs], Ys, Zs):-
          my_reverse(Xs, [X|Ys], Zs).

my_reverse([], Ys, Ys).

Para ejecutar el programa:


?- my_reverse([1,2,3,4,5], [], Ls).

Y el resultado es:


Ls = [5,4,3,2,1]

*** Programa probado en WinProlog versión 4.7 ***

Etiquetas: _todos_, programacion, prolog, winprolog |

martes, 19 de julio de 2011

13:32 |

Publicado por a8a |

Este programa invierte una lista:

my_reverse([], []).

my_reverse([X|Xs], Ys):-
          my_reverse(Xs, Zs),
          my_append(Zs, [X], Ys).

Para ejecutar el programa:

?- my_reverse([1,2,3,4,5], Ls).

Y el resultado es:

Ls = [5,4,3,2,1]

Nota: Este programa usa algunas reglas (programas) definidas anteriormente.

*** Programa probado en WinProlog versión 4.7 ***