Löschen Sie alle N Elemente aus der Liste

Question

Ich möchte ein Programm schreiben, das jedes Nth Element aus einer Liste ohne die letzte löscht. Mein Programm funktioniert bereits und gibt mir das richtige Ergebnis, aber wenn ich nach einem anderen Ergebnis frage, kommt prolog mit dem Fehler ">/2: Argumente sind nicht ausreichend instanziiert". Hier ist der Code, den ich bisher habe:

delete_elements([],0,[]). 
delete_elements([],_,[_|_]). 
delete_elements(L,N,R) :- 
    length(L,LL), 
    LL > N, 
    nth1(N,L,_,RZ), 
    NZ is N + 1, 
    delete_elements(RZ,NZ,RR), 
    R = RR. 
delete_elements(L,N,R) :- 
    length(L,LL), 
    LL =< N, 
    delete_elements([],_,R), 
    L = R. 

Ich denke, dass es etwas falsch mit der Abbruchbedingung der Rekursion ist. Wie behebe ich das?

Vielen Dank im Voraus!

Answer 1

Das Problem ist in der Klausel:

delete_elements(L,N,R) :- 
    length(L,LL), 
    LL =< N, 
    delete_elements([],_,R), 
    L = R. 

Sie haben Ihre Arbeit beenden, aber Sie immer noch Ihr Prädikat mit einem anonymen Variable nennen statt N. könnten Sie schreiben einfach:

delete_elements(L,N,L) :- 
    length(L,LL), 
    LL =< N. 

Beispiel :

?- delete_elements([1,2,3,4,5,6,7,8,9,1,2,3],3,L). 
L = [1, 2, 4, 6, 8, 1, 3] ; 
false. 

Für das, was Sie in Ihrem Kommentar gefragt haben, wäre meine Implementierung:

delete_elements(L,N,R) :- delete_elements(L,1,N,R). 

delete_elements([],_,_,[]). 
delete_elements([X],N,N,[X]). 
delete_elements([X|Xs],N,N,Rs):- length([X|Xs],Y),Y>1,delete_elements(Xs,1,N,Rs). 
delete_elements([X|Xs],P,N,[X|Rs]):- P < N,P1 is P+1,delete_elements(Xs,P1,N,Rs).