• Martes 20 de Abril de 2021, 06:35

Autor Tema:  Problema de Prolog que no puedo resolver  (Leído 1964 veces)

noeliasfranco

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Problema de Prolog que no puedo resolver
« en: Viernes 16 de Julio de 2010, 20:55 »
0
Tengo el siguiente problema: Ingresar una lista de números. Si el último nro es par, cambiar las posiciones pares de la lista por 0. Si es impar, cambiar las posiciones  impares de la lista por 0.

Entiendo la primer parte, yo hago lo siguiente:
inicio:-write('Ingrese la lista: '), leer(L), modificar(L).
leer([H|T]):-read(H), H/=[],leer(T). %el palito de distinto está al revés porque se me cambió el teclado :)
leer([]).
modificar(L):-reverse(L,R),verParidad(L,R).
verParidad(L,[X|_]):- S is X mod 2, S=0, cambiarPares(); cambiarImpares().

lo que no entiendo es cómo hacer que me modifique las posiciones pares o impares por 0.

Gracias!