Write a predicate 'everyother' which will remove every other element .

[rukman]

Write a predicate 'everyother' which will remove every other element in a list,
starting with the second element. List length can be odd or even.

e.g. ?- everyother([g,r,o,u,l,l,o,e,r,s,p],L).
L = [g,o,l,o,r,p];



i am trying like this
remove([_,_],[]).
remove([H,H|T],R):- not(member(H,T)),remove(T,R1),delete(H,R1,A).


Pls help needed urgent

 

[joel76]

If I understand, you must remove every even letter.
You have 2 base cases

everyother([],...).

everyother([A], ...).

And a rule

everyother([A, B | R], [A | ...]):-
      ......

 

[rukman]

Thank joel76
i got it.