Prolog-Programm zum Ausschließen einer ganzen Zahl aus der Ergebnisliste

Question

Ich muss eine Liste in eine aufteilen, die größer als N und eine kleiner ist, während alle Nicht-Ganzzahlen ignoriert werden. Es funktioniert perfekt, außer dass es eine Ausnahme auslöst, wenn ich nicht ganze Zahlen einschließe. sehen kann jemand, was ich falsch mache bitte:

split([],N, [],[]). 
split([HeadOrig | TailOrig], N, L1, TailOrig):- 
    \+ integer(HeadOrig), 
    split(TailOrig, N, L1, TailOrig). 
split([HeadOrig|TailOrig],N, [HeadOrig|Tail1],L2):- 
    integer(HeadOrig), HeadOrig >= N, 
    !, 
    split(TailOrig, N, Tail1, L2). 
split([HeadOrig | TailOrig], N, L1, [HeadOrig | Tail2]) :- 
    integer(HeadOrig), HeadOrig < N, 
    !, 
    split(TailOrig, N, L1, Tail2). 

Answer 1

Das Problem ist, dass das letzte Glied in dieser Klausel sollte nicht TailOrig:

split([], _, [],[]). 

split([HeadOrig | TailOrig], N, L1, L2):- 
    \+ integer(HeadOrig), 
    split(TailOrig, N, L1, L2), 
    !. 

split([HeadOrig|TailOrig], N, [HeadOrig|Tail1], L2):- 
    integer(HeadOrig), HeadOrig >= N, 
    !, 
    split(TailOrig, N, Tail1, L2). 

split([HeadOrig | TailOrig], N, L1, [HeadOrig | Tail2]) :- 
    integer(HeadOrig), HeadOrig < N, 
    !, 
    split(TailOrig, N, L1, Tail2).