|
|
|
|
Configuration: Windows XP Internet Explorer 6.0
remove_at(Elem,[Elem|Reste],1,Reste).
remove_at(Elem,[Y|Reste],Position,[Y|Ys]) :- Position > 1, K1 is Position - 1, remove_at(Elem,Reste,K1,Ys). Exemple d'utilisation: %?- remove_at(X,[a,b,c,d],2,R). %X = b %R = [a,c,d] |