Programación Específica > Programación Lógica

 Problema de Prolog que no puedo resolver

(1/1)

noeliasfranco:
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!

Navegación

[0] Índice de Mensajes