fork(2) download
copy 
  1. eliminar([], E, []).
  2. eliminar([X|Xs], N, [X|Laux]) :- N =\= X, eliminar(Xs, N, Laux).
  3. eliminar([X|Xs], N, Laux) :- N =:= X, eliminar(Xs, N, Laux).
  4.  
  5. ?- eliminar([2,4,6,8,4,5], 4, L), write(L).
Success #stdin #stdout #stderr 0.02s 7784KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
[2,6,8,5]
stderr
copy 
Warning: /home/OVfJcc/prog:1:
	Singleton variables: [E]

ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/8QXGKg
language:
Prolog (swi 7.6.4)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!