Zitat von NonSense

Kann mir jemand helfen einen 3-stelligen Prädikat loesche/3 zu schreiben, der ein Element aus einer Liste löscht?
Es sollte so funktionieren:
loesche(b,[a,b,c,d],X).
X=[a,c,d]
thx

Imperativ 2. Pers. von "loeschen" ist "loesch", nicht "loesche". Verwende das built-in Praedikat delete/3:

loesch(Elem, List0, List) :-
        delete(List0, Elem, List).

Zitat von NonSense

Na ja, danke. Aber mir interessiert wie man es selbst ausprogramieren kann. Ohne das eingebaute Prädikat zu nutzen. Hab es mit diesem delete versucht aber eine Sache gefällt mir nicht. Wenn ich z.B. eine Liste [a,b,b,c] habe und möchte das Element b löschen. Kann man das irgendwie machen, dass nur das erste b gelöscht wird und nicht jede b?

Klar, hier eine Version:

loesch(Elem, List0, List) :-
        loesch_(List0, Elem, List).


loesch_([], _, []).
loesch_([L|Ls], Elem, Result) :-
        ( L == Elem ->
                Result = Ls
        ;
                Result = [L|Rest],
                loesch_(Ls, Elem, Rest)
        ).

Ich habe dabei das Hilfspraedikat loesch_/3 eingefuehrt, bei dem die ersten beiden Argumente vertauscht werden um first-argument indexing zu ermoeglichen.