test(exer10, 2, [declaration(sp, gehalt, [d('A1', +, list, 'Liste'), d('A2', -, list, 'Gehaltsliste')])], [recursivecase, recursivecase], [map(dec, predicatedec(tp, tptrans, 2, tptrans/2, main, 'Arg2', 2, -, list, ['Gehaltsliste']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A2', 2, -, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tptrans, 2, tptrans/2, main, 'Arg1', 1, +, list, ['Liste']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A1', 1, +, list, 'Liste'))], 'gehalt([N,G|R], [N,G2|R2]):-G>5000, G2 is G*1,02, gehalt(R,R2).\n gehalt([N,G|R], [N,G2|R2]):-G=<5000, G2 is G*1,03, gehalt(R,R2).\n', [error(id(g7), penalty(0.5), poslist([pos(1, 3)]), hint('2/0: Dieses Subziel ist unbekannt.'), highlighted(['gehalt([N, G|R], [N, G2|R2]):-G>5000, G2 is G*1,  <b><font color=red>2</b></font> , gehalt(R, R2).<br>', 'gehalt([N, G|R], [N, G2|R2]):-G=<5000, G2 is G*1, 3, gehalt(R, R2).<br>'])), error(id(g7), penalty(0.5), poslist([pos(2, 3)]), hint('3/0: Dieses Subziel ist unbekannt.'), highlighted(['gehalt([N, G|R], [N, G2|R2]):-G>5000, G2 is G*1, 2, gehalt(R, R2).<br>', 'gehalt([N, G|R], [N, G2|R2]):-G=<5000, G2 is G*1,  <b><font color=red>3</b></font> , gehalt(R, R2).<br>']))], [ok, ok], ['', ''], korrekt).
test(exer10, 3, [declaration(sp, gehaelter, [d('A1', +, list, 'Liste'), d('A2', -, list, 'Gehaltsliste')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tptrans, 2, tptrans/2, main, 'Arg2', 2, -, list, ['Gehaltsliste']), predicatedec(sp, gehaelter, 2, gehaelter/2, main, 'A2', 2, -, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tptrans, 2, tptrans/2, main, 'Arg1', 1, +, list, ['Liste']), predicatedec(sp, gehaelter, 2, gehaelter/2, main, 'A1', 1, +, list, 'Liste'))], 'gehaelter([],[]).\n gehaelter([K|Xs], [K|Ys]):-odd(K), gehaelter(Xs, Ys).\n gehaelter([K|Xs], [Kb|Ys]):-even(K), K is K*1.03, gehaelter(Xs, Ys).\n', [error(id(g7), penalty(0.5), poslist([pos(2, 1)]), hint('odd/1: Dieses Subziel ist unbekannt.'), highlighted(['gehaelter([], []).<br>', 'gehaelter([K|Xs], [K|Ys]):- <b><font color=red>odd(K)</b></font> , gehaelter(Xs, Ys).<br>', 'gehaelter([K|Xs], [Kb|Ys]):-even(K), K is K*1.03, gehaelter(Xs, Ys).<br>'])), error(id(g7), penalty(0.5), poslist([pos(3, 1)]), hint('even/1: Dieses Subziel ist unbekannt.'), highlighted(['gehaelter([], []).<br>', 'gehaelter([K|Xs], [K|Ys]):-odd(K), gehaelter(Xs, Ys).<br>', 'gehaelter([K|Xs], [Kb|Ys]):- <b><font color=red>even(K)</b></font> , K is K*1.03, gehaelter(Xs, Ys).<br>']))], [ok, ok], ['', ''], korrekt).
test(exer10, 5, [declaration(sp, gehalt_neu, [d('A1', +, list, 'Liste'), d('A2', -, list, 'Gehaltsliste')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tptrans, 2, tptrans/2, main, 'Arg2', 2, -, list, ['Gehaltsliste']), predicatedec(sp, gehalt_neu, 2, gehalt_neu/2, main, 'A2', 2, -, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tptrans, 2, tptrans/2, main, 'Arg1', 1, +, list, ['Liste']), predicatedec(sp, gehalt_neu, 2, gehalt_neu/2, main, 'A1', 1, +, list, 'Liste'))], 'gehalt_neu([], []).\n gehalt_neu([N,B|R], E):-B>5000,B is B+B*0.02,gehalt_neu(R,E),E is [N,B|E].\n gehalt_neu([N,B|R], E):-B is B+B*0.03,gehalt_neu(R,E),E is [N,B|E].\n', [error(id(s7e), penalty(0.8), poslist([pos(2, 0, 2)]), hint('An der Stelle von <b>E</b> sollte eine Nicht-Leer-Liste sein.'), highlighted(['gehalt_neu([], []).<br>', 'gehalt_neu([N, B|R],  <b><font color=red>E</b></font> ):-B>5000, B is B+B*0.02, gehalt_neu(R, E), E is [N, B|E].<br>', 'gehalt_neu([N, B|R], E):-B is B+B*0.03, gehalt_neu(R, E), E is [N, B|E].<br>'])), error(id(s7e), penalty(0.8), poslist([pos(3, 0, 2)]), hint('An der Stelle von <b>E</b> sollte eine Nicht-Leer-Liste sein.'), highlighted(['gehalt_neu([], []).<br>', 'gehalt_neu([N, B|R], E):-B>5000, B is B+B*0.02, gehalt_neu(R, E), E is [N, B|E].<br>', 'gehalt_neu([N, B|R],  <b><font color=red>E</b></font> ):-B is B+B*0.03, gehalt_neu(R, E), E is [N, B|E].<br>'])), error(id(s1a), penalty(0.1), poslist([pos(2, 0, 2, 'E')]), hint('An der Stelle von <b>E</b> sollte eine (De-)Komposition stattfinden.'), highlighted(['gehalt_neu([], []).<br>', 'gehalt_neu([N, B|R],  <b><font color=red>E</b></font> ):-B>5000, B is B+B*0.02, gehalt_neu(R, E), E is [N, B|E].<br>', 'gehalt_neu([N, B|R], E):-B is B+B*0.03, gehalt_neu(R, E), E is [N, B|E].<br>'])), error(id(s5b), penalty(0.1), poslist([pos(2, 4)]), hint('<b>E is [N, B|E]</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['gehalt_neu([], []).<br>', 'gehalt_neu([N, B|R], E):-B>5000, B is B+B*0.02, gehalt_neu(R, E),  <b><font color=red>E is [N, B|E]</b></font> .<br>', 'gehalt_neu([N, B|R], E):-B is B+B*0.03, gehalt_neu(R, E), E is [N, B|E].<br>'])), error(id(s1a), penalty(0.1), poslist([pos(3, 0, 2, 'E')]), hint('An der Stelle von <b>E</b> sollte eine (De-)Komposition stattfinden.'), highlighted(['gehalt_neu([], []).<br>', 'gehalt_neu([N, B|R], E):-B>5000, B is B+B*0.02, gehalt_neu(R, E), E is [N, B|E].<br>', 'gehalt_neu([N, B|R],  <b><font color=red>E</b></font> ):-B is B+B*0.03, gehalt_neu(R, E), E is [N, B|E].<br>'])), error(id(s5b), penalty(0.1), poslist([pos(3, 3)]), hint('<b>E is [N, B|E]</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['gehalt_neu([], []).<br>', 'gehalt_neu([N, B|R], E):-B>5000, B is B+B*0.02, gehalt_neu(R, E), E is [N, B|E].<br>', 'gehalt_neu([N, B|R], E):-B is B+B*0.03, gehalt_neu(R, E),  <b><font color=red>E is [N, B|E]</b></font> .<br>'])), error(id(s8a), penalty(0.1), poslist([pos(3, 1, 2, 'B'+'B'*0.03)]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen der Variable <b>B+B*0.03</b> und einer Zahl.'), highlighted(['gehalt_neu([], []).<br>', 'gehalt_neu([N, B|R], E):-B>5000, B is B+B*0.02, gehalt_neu(R, E), E is [N, B|E].<br>', 'gehalt_neu([N, B|R], E):-B is  <b><font color=red>B+B*0.03</b></font> , gehalt_neu(R, E), E is [N, B|E].<br>']))], [ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer10, 6, [declaration(sp, gehalt, [d('A1', +, list, 'Liste'), d('A2', -, list, 'Gehaltsliste')])], [recursivecase], [map(dec, predicatedec(tp, tptrans, 2, tptrans/2, main, 'Arg2', 2, -, list, ['Gehaltsliste']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A2', 2, -, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tptrans, 2, tptrans/2, main, 'Arg1', 1, +, list, ['Liste']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A1', 1, +, list, 'Liste'))], 'gehalt([Name, Gehalt|Rest], [N2,G2|R2]):-Gehalt=<5000.\n', [error(id(pre3b), penalty(0.3), poslist([pos(1)]), hint('Sie haben diese Klausel als Rekursionsklausel gewählt, jedoch existiert kein rekursives Subziel in dieser Klausel.'), highlighted([' <b><font color=red>gehalt([Name, Gehalt|Rest], [N2, G2|R2])</b></font> :- <b><font color=red>Gehalt=<5000</b></font> .<br>']))], [ok], [korrekt], '').
test(exer11, 1, [declaration(sp, meist, [d('A1', +, number, meistgesehenen), d('A2', -, list, 'Endliste'), d('A3', +, list, 'Liste')])], [recursivecase, basecase, recursivecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, meist, 3, meist/3, main, 'A3', 3, +, list, 'Liste')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, meist, 3, meist/3, main, 'A1', 1, +, number, meistgesehenen)), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, +, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, meist, 3, meist/3, main, 'A2', 2, -, list, 'Endliste'))], 'meist(N,R, zuschauer([])):-meist(_, [keine_daten_mehr]).\n meist(0,_, zuschauer([_])).\n meist(N, [E|R], zuschauer([E|R1])):-N1 is N-1, meist(N1, R, zuschauer(R1)).\n', [error(id(pre2c), penalty(0.3), poslist([pos(1, 0, 3, zuschauer([]))]), hint('Der Typ von <b>zuschauer([])</b> stimmt nicht mit der Deklaration überein. Es sollte eine Liste sein.'), highlighted(['meist(N, R,  <b><font color=red>zuschauer([])</b></font> ):-meist(_, [keine_daten_mehr]).<br>', 'meist(0, _, zuschauer([_])).<br>', 'meist(N, [E|R], zuschauer([E|R1])):-N1 is N-1, meist(N1, R, zuschauer(R1)).<br>'])), error(id(pre2c), penalty(0.3), poslist([pos(2, 0, 3, zuschauer(['_']))]), hint('Der Typ von <b>zuschauer([_])</b> stimmt nicht mit der Deklaration überein. Es sollte eine Liste sein.'), highlighted(['meist(N, R, zuschauer([])):-meist(_, [keine_daten_mehr]).<br>', 'meist(0, _,  <b><font color=red>zuschauer([_])</b></font> ).<br>', 'meist(N, [E|R], zuschauer([E|R1])):-N1 is N-1, meist(N1, R, zuschauer(R1)).<br>'])), error(id(pre2c), penalty(0.3), poslist([pos(3, 0, 3, zuschauer(['E'|'R1']))]), hint('Der Typ von <b>zuschauer([E|R1])</b> stimmt nicht mit der Deklaration überein. Es sollte eine Liste sein.'), highlighted(['meist(N, R, zuschauer([])):-meist(_, [keine_daten_mehr]).<br>', 'meist(0, _, zuschauer([_])).<br>', 'meist(N, [E|R],  <b><font color=red>zuschauer([E|R1])</b></font> ):-N1 is N-1, meist(N1, R, zuschauer(R1)).<br>'])), error(id(pre3b), penalty(0.3), poslist([pos(1)]), hint('Sie haben diese Klausel als Rekursionsklausel gewählt, jedoch existiert kein rekursives Subziel in dieser Klausel.'), highlighted([' <b><font color=red>meist(N, R, zuschauer([]))</b></font> :- <b><font color=red>meist(_, [keine_daten_mehr])</b></font> .<br>', 'meist(0, _, zuschauer([_])).<br>', 'meist(N, [E|R], zuschauer([E|R1])):-N1 is N-1, meist(N1, R, zuschauer(R1)).<br>']))], [ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt], '').
test(exer11, 2, [declaration(sp, most, [d('A1', +, number, meistgesehenen), d('A2', +, list, 'Liste'), d('A3', -, list, 'Liste')])], [basecase, basecase, recursivecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, most, 3, most/3, main, 'A2', 2, +, list, 'Liste')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, most, 3, most/3, main, 'A1', 1, +, number, meistgesehenen)), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, +, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, most, 3, most/3, main, 'A3', 3, -, list, 'Endliste'))], 'most(_, [], [keineweiteresendung]).\n most(1, [Sendung|Rest], [Sendung]).\n most(N, [Sendung|GRest], [Sendung|Rest]):-N1 is N-1, most(N1, GRest, Rest).\n', [error(id(s7c), penalty(0.8), poslist([pos(2, 0, 1)]), hint('An der Stelle von <b>1</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['most(_, [], [keineweiteresendung]).<br>', 'most( <b><font color=red>1</b></font> , [Sendung|Rest], [Sendung]).<br>', 'most(N, [Sendung|GRest], [Sendung|Rest]):-N1 is N-1, most(N1, GRest, Rest).<br>'])), error(id(s7g1), penalty(0.8), poslist([pos(1, 0, 3)]), hint('An der Stelle von <b>[keineweiteresendung]</b> sollte eine leere Liste sein.'), highlighted(['most(_, [],  <b><font color=red>[keineweiteresendung]</b></font> ).<br>', 'most(1, [Sendung|Rest], [Sendung]).<br>', 'most(N, [Sendung|GRest], [Sendung|Rest]):-N1 is N-1, most(N1, GRest, Rest).<br>'])), error(id(s7g1), penalty(0.8), poslist([pos(2, 0, 3)]), hint('An der Stelle von <b>[Sendung]</b> sollte eine leere Liste sein.'), highlighted(['most(_, [], [keineweiteresendung]).<br>', 'most(1, [Sendung|Rest],  <b><font color=red>[Sendung]</b></font> ).<br>', 'most(N, [Sendung|GRest], [Sendung|Rest]):-N1 is N-1, most(N1, GRest, Rest).<br>'])), error(id(s7k), penalty(0.8), poslist([pos(1, 0, 1, '_')]), hint('An der Stelle von <b>_</b> erwarten wir eine Variable.'), highlighted(['most( <b><font color=red>_</b></font> , [], [keineweiteresendung]).<br>', 'most(1, [Sendung|Rest], [Sendung]).<br>', 'most(N, [Sendung|GRest], [Sendung|Rest]):-N1 is N-1, most(N1, GRest, Rest).<br>'])), error(id(s8a), penalty(0.1), poslist([pos(1, 0, 1, '_')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen der Variable <b>_</b> und einer Zahl.'), highlighted(['most( <b><font color=red>_</b></font> , [], [keineweiteresendung]).<br>', 'most(1, [Sendung|Rest], [Sendung]).<br>', 'most(N, [Sendung|GRest], [Sendung|Rest]):-N1 is N-1, most(N1, GRest, Rest).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 2, 'Rest')]), hint('<b>Rest</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['most(_, [], [keineweiteresendung]).<br>', 'most(1,  <b><font color=red>[Sendung|Rest]</b></font> , [Sendung]).<br>', 'most(N, [Sendung|GRest], [Sendung|Rest]):-N1 is N-1, most(N1, GRest, Rest).<br>']))], [ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer11, 3, [declaration(sp, bestsendung, [d('A1', +, list, 'Liste'), d('A2', +, number, meistgesehenen), d('A3', -, list, 'EndListe')])], [basecase, basecase, recursivecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, bestsendung, 3, bestsendung/3, main, 'A1', 1, +, list, 'Liste')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, bestsendung, 3, bestsendung/3, main, 'A2', 2, +, number, meistgesehenen)), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, +, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, bestsendung, 3, bestsendung/3, main, 'A3', 3, -, list, 'Endliste'))], 'bestsendung(zuschauer, N, Neulist).\n bestsendung(zuschauer, 0, NeuerList).\n bestsendung(zuschauer, N, Neuelist):- zuschauer = [T, N,Z].\n', [error(id(pre2c), penalty(0.3), poslist([pos(1, 0, 1, zuschauer)]), hint('Der Typ von <b>zuschauer</b> stimmt nicht mit der Deklaration überein. Es sollte eine Liste sein.'), highlighted(['bestsendung( <b><font color=red>zuschauer</b></font> , N, Neulist).<br>', 'bestsendung(zuschauer, 0, NeuerList).<br>', 'bestsendung(zuschauer, N, Neuelist):-zuschauer=[T, N, Z].<br>'])), error(id(pre2c), penalty(0.3), poslist([pos(2, 0, 1, zuschauer)]), hint('Der Typ von <b>zuschauer</b> stimmt nicht mit der Deklaration überein. Es sollte eine Liste sein.'), highlighted(['bestsendung(zuschauer, N, Neulist).<br>', 'bestsendung( <b><font color=red>zuschauer</b></font> , 0, NeuerList).<br>', 'bestsendung(zuschauer, N, Neuelist):-zuschauer=[T, N, Z].<br>'])), error(id(pre2c), penalty(0.3), poslist([pos(3, 0, 1, zuschauer)]), hint('Der Typ von <b>zuschauer</b> stimmt nicht mit der Deklaration überein. Es sollte eine Liste sein.'), highlighted(['bestsendung(zuschauer, N, Neulist).<br>', 'bestsendung(zuschauer, 0, NeuerList).<br>', 'bestsendung( <b><font color=red>zuschauer</b></font> , N, Neuelist):-zuschauer=[T, N, Z].<br>'])), error(id(pre3a), penalty(0.3), poslist([pos(1)]), hint('Sie haben diese Klausel als Rekursionsabschluss gewählt. Jedoch fehlt eine dazugehörige Rekursionsklausel, oder diese Klausel ist kein Rekursionsabschluss.'), highlighted([' <b><font color=red>bestsendung(zuschauer, N, Neulist)</b></font> .<br>', 'bestsendung(zuschauer, 0, NeuerList).<br>', 'bestsendung(zuschauer, N, Neuelist):-zuschauer=[T, N, Z].<br>'])), error(id(pre3a), penalty(0.3), poslist([pos(2)]), hint('Sie haben diese Klausel als Rekursionsabschluss gewählt. Jedoch fehlt eine dazugehörige Rekursionsklausel, oder diese Klausel ist kein Rekursionsabschluss.'), highlighted(['bestsendung(zuschauer, N, Neulist).<br>', ' <b><font color=red>bestsendung(zuschauer, 0, NeuerList)</b></font> .<br>', 'bestsendung(zuschauer, N, Neuelist):-zuschauer=[T, N, Z].<br>'])), error(id(pre3b), penalty(0.3), poslist([pos(3)]), hint('Sie haben diese Klausel als Rekursionsklausel gewählt, jedoch existiert kein rekursives Subziel in dieser Klausel.'), highlighted(['bestsendung(zuschauer, N, Neulist).<br>', 'bestsendung(zuschauer, 0, NeuerList).<br>', ' <b><font color=red>bestsendung(zuschauer, N, Neuelist)</b></font> :- <b><font color=red>zuschauer=[T, N, Z]</b></font> .<br>']))], [ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer11, 4, [declaration(sp, zuschauer, [d('A1', +, list, 'Liste'), d('A2', +, number, meistgesehenen), d('A3', -, list, 'EndListe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, zuschauer, 3, zuschauer/3, main, 'A1', 1, +, list, 'Liste')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, zuschauer, 3, zuschauer/3, main, 'A2', 2, +, number, meistgesehenen)), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, +, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, zuschauer, 3, zuschauer/3, main, 'A3', 3, -, list, 'Endliste'))], 'zuschauer([],0,[]).\n zuschauer([[Sender, Sendung, Zuschauer]|R], N, [[Sender,Sendung,Zuschauer|R1]]):- N1 is N-1, zuschauer(R,N1,R1).\n', [error(id(s7g), penalty(0.01), poslist([]), hint('Ein Rekursionsabschluss fehlt.'), highlighted([' <b><font color=red>zuschauer([], 0, [])</b></font> .<br>', ' <b><font color=red>zuschauer([[Sender, Sendung, Zuschauer]|R], N, [[Sender, Sendung, Zuschauer|R1]])</b></font> :- <b><font color=red>N1 is N-1</b></font> ,  <b><font color=red>zuschauer(R, N1, R1)</b></font> .<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 3, [['Sender', 'Sendung', 'Zuschauer'|'R1']])]), hint('<b>[[Sender, Sendung, Zuschauer|R1]]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Head|Rest]'), highlighted(['zuschauer([], 0, []).<br>', 'zuschauer([[Sender, Sendung, Zuschauer]|R], N,  <b><font color=red>[[Sender, Sendung, Zuschauer|R1]]</b></font> ):-N1 is N-1, zuschauer(R, N1, R1).<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer11, 5, [declaration(sp, auswahl, [d('A1', +, list, 'Liste'), d('A2', +, number, 'Laenge')])], _G25379634, [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge', 'N', 'meistgesehenen Sendungen']), predicatedec(sp, auswahl, 2, auswahl/2, main, 'A2', 2, +, number, 'Laenge')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste', 'Altliste', 'Zuschauerliste']), predicatedec(sp, auswahl, 2, auswahl/2, main, 'A1', 1, +, list, 'Liste'))], 'auswahl(L,0).\n auswahl([[X,Y,Z]|T], N):-N=<M, zuschauer([[X,Y,Z]|H]), auswahl(T, N1), N1 is N-1.\n auswahl([[X,Y,Z]|T], N):- N>M, zuschauer(P).\n', [error(id(d2a), penalty(0.1), poslist([pred, auswahl]), hint('Die Deklaration für das Prädikat <b>auswahl</b> hat weniger Argumentstellen als erforderlich.'))], [ok], [korrekt], '').
test(exer11, 6, [declaration(sp, meist, [d('A1', +, list, 'Liste'), d('A2', +, number, meistgesehenen), d('A3', -, list, 'EndListe')])], [basecase, basecase, recursivecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, meist, 3, meist/3, main, 'A1', 1, +, list, 'Liste')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, meist, 3, meist/3, main, 'A2', 2, +, number, meistgesehenen)), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, +, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, meist, 3, meist/3, main, 'A3', 3, -, list, 'Endliste'))], 'meist(A,0,[]).\n meist([],_,[keine_weiteren_sendungen]).\n meist([HZuschauer|RZuschauer],N,[HZuschauer|RErgebnis]):-N1 is N-1, meist(RZuschauer, N1, RErgebnis).\n', [error(id(s7g1), penalty(0.8), poslist([pos(2, 0, 3)]), hint('An der Stelle von <b>[keine_weiteren_sendungen]</b> sollte eine leere Liste sein.'), highlighted(['meist(A, 0, []).<br>', 'meist([], _,  <b><font color=red>[keine_weiteren_sendungen]</b></font> ).<br>', 'meist([HZuschauer|RZuschauer], N, [HZuschauer|RErgebnis]):-N1 is N-1, meist(RZuschauer, N1, RErgebnis).<br>'])), error(id(s7k), penalty(0.8), poslist([pos(2, 0, 2, '_')]), hint('An der Stelle von <b>_</b> erwarten wir eine Variable.'), highlighted(['meist(A, 0, []).<br>', 'meist([],  <b><font color=red>_</b></font> , [keine_weiteren_sendungen]).<br>', 'meist([HZuschauer|RZuschauer], N, [HZuschauer|RErgebnis]):-N1 is N-1, meist(RZuschauer, N1, RErgebnis).<br>'])), error(id(s8a), penalty(0.1), poslist([pos(2, 0, 2, '_')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen der Variable <b>_</b> und einer Zahl.'), highlighted(['meist(A, 0, []).<br>', 'meist([],  <b><font color=red>_</b></font> , [keine_weiteren_sendungen]).<br>', 'meist([HZuschauer|RZuschauer], N, [HZuschauer|RErgebnis]):-N1 is N-1, meist(RZuschauer, N1, RErgebnis).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 1, 'A')]), hint('<b>A</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['meist( <b><font color=red>A</b></font> , 0, []).<br>', 'meist([], _, [keine_weiteren_sendungen]).<br>', 'meist([HZuschauer|RZuschauer], N, [HZuschauer|RErgebnis]):-N1 is N-1, meist(RZuschauer, N1, RErgebnis).<br>']))], [nok], ['stimmt, allerdings stimmt die Praedikatsdeklaration in der Studentenloesung auch nicht mit der manuellen Praedikatsdeklaration ueberein'], '').
test(exer11, 7, [declaration(sp, gesehen, [d('A1', +, list, 'Liste'), d('A2', +, number, meistgesehenen), d('A3', -, list, 'EndListe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, gesehen, 3, gesehen/3, main, 'A1', 1, +, list, 'Zuschauerzahlen')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, gesehen, 3, gesehen/3, main, 'A2', 2, +, number, 'Laenge')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, +, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, gesehen, 3, gesehen/3, main, 'A3', 3, -, list, 'Endliste'))], 'gesehen(_,0,[]).\n gesehen([Eintrag|Rest],N,[Eintrag|Rest2]):- gesehen(Rest,Z,Rest2), Z is N-1.\n', [error(id(s7g), penalty(0.01), poslist([]), hint('Ein Rekursionsabschluss fehlt.'), highlighted([' <b><font color=red>gesehen(_, 0, [])</b></font> .<br>', ' <b><font color=red>gesehen([Eintrag|Rest], N, [Eintrag|Rest2])</b></font> :- <b><font color=red>gesehen(Rest, Z, Rest2)</b></font> ,  <b><font color=red>Z is N-1</b></font> .<br>'])), error(id(s4b5), penalty(0.3), poslist([pos(2, 2, 1, 'Z'), pos(2, 1, 2, 'Z')]), hint('Das Ergebnis einer arithmetischen Evaluation <b>Z</b> muss in ein nachfolgendes Subziel übergeben werden. Tauschen Sie die Reihenfolge des <b>2</b> .ten Subziels und des <b>1</b> .ten Subziels.'), highlighted(['gesehen(_, 0, []).<br>', 'gesehen([Eintrag|Rest], N, [Eintrag|Rest2]):-gesehen(Rest,  <b><font color=red>Z</b></font> , Rest2),  <b><font color=red>Z</b></font> is N-1.<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer11, 8, [declaration(sp, beliebt, [d('A1', +, list, 'Liste'), d('A2', +, number, meistgesehene), d('A3', -, list, 'neue Liste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, beliebt, 3, beliebt/3, main, 'A1', 1, +, list, 'Zuschauerzahlen')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, beliebt, 3, beliebt/3, main, 'A2', 2, +, number, 'Laenge')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, +, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, beliebt, 3, beliebt/3, main, 'A3', 3, -, list, 'Endliste'))], 'beliebt(_,0,_).\n beliebt([Kgeg|Rgeg],Anzahl,[Kgeg|R]):- Anzahl1 is Anzahl - 1, beliebt(Rgeg,Anzahl1,R).\n', [error(id(s7g1), penalty(0.8), poslist([pos(1, 0, 3)]), hint('An der Stelle von <b>_</b> sollte eine leere Liste sein.'), highlighted(['beliebt(_, 0,  <b><font color=red>_</b></font> ).<br>', 'beliebt([Kgeg|Rgeg], Anzahl, [Kgeg|R]):-Anzahl1 is Anzahl-1, beliebt(Rgeg, Anzahl1, R).<br>'])), error(id(s7g), penalty(0.01), poslist([]), hint('Ein Rekursionsabschluss fehlt.'), highlighted([' <b><font color=red>beliebt(_, 0, _)</b></font> .<br>', ' <b><font color=red>beliebt([Kgeg|Rgeg], Anzahl, [Kgeg|R])</b></font> :- <b><font color=red>Anzahl1 is Anzahl-1</b></font> ,  <b><font color=red>beliebt(Rgeg, Anzahl1, R)</b></font> .<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer11, 10, [declaration(sp, zuschauer, [d('A1', +, list, 'Liste'), d('A2', +, number, meistgesehene), d('A3', -, list, 'neue Liste')])], [basecase, basecase, recursivecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, zuschauer, 3, zuschauer/3, main, 'A1', 1, +, list, 'Zuschauerzahlen')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, zuschauer, 3, zuschauer/3, main, 'A2', 2, +, number, 'Laenge')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, +, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, zuschauer, 3, zuschauer/3, main, 'A3', 3, -, list, 'Endliste'))], 'zuschauer([],_,[]).\n zuschauer([],0,[]).\n zuschauer([H|T],N1,[H2|T2]):-zuschauer(T,N,T2), N=N1-1.\n', [error(id(s7k), penalty(0.8), poslist([pos(1, 0, 2, '_')]), hint('An der Stelle von <b>_</b> erwarten wir eine Variable.'), highlighted(['zuschauer([],  <b><font color=red>_</b></font> , []).<br>', 'zuschauer([], 0, []).<br>', 'zuschauer([H|T], N1, [H2|T2]):-zuschauer(T, N, T2), N=N1-1.<br>'])), error(id(s5a), penalty(0.1), poslist([pos(3, 1, 2, 'N')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>N</b> fehlt.'), highlighted(['zuschauer([], _, []).<br>', 'zuschauer([], 0, []).<br>', 'zuschauer([H|T], N1, [H2|T2]):-zuschauer(T,  <b><font color=red>N</b></font> , T2), N=N1-1.<br>'])), error(id(s4f), penalty(0.1), poslist([pos(3, 2, 1, 'N'), pos(3, 2, 2, 'N1'-1)]), hint('<b>[N, N1-1]</b>: Das Unifikationssubziel dieser Variablen/Terme ist überflüssig.'), highlighted(['zuschauer([], _, []).<br>', 'zuschauer([], 0, []).<br>', 'zuschauer([H|T], N1, [H2|T2]):-zuschauer(T, N, T2),  <b><font color=red>N</b></font> = <b><font color=red>N1-1</b></font> .<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['zuschauer([], _, []).<br>', 'zuschauer([], 0, []).<br>', 'zuschauer( <b><font color=red>[H|T]</b></font> , N1, [H2|T2]):-zuschauer(T, N, T2), N=N1-1.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 3, 'H2')]), hint('<b>H2</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['zuschauer([], _, []).<br>', 'zuschauer([], 0, []).<br>', 'zuschauer([H|T], N1,  <b><font color=red>[H2|T2]</b></font> ):-zuschauer(T, N, T2), N=N1-1.<br>'])), error(id(s8a), penalty(0.1), poslist([pos(1, 0, 2, '_')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen der Variable <b>_</b> und einer Zahl.'), highlighted(['zuschauer([],  <b><font color=red>_</b></font> , []).<br>', 'zuschauer([], 0, []).<br>', 'zuschauer([H|T], N1, [H2|T2]):-zuschauer(T, N, T2), N=N1-1.<br>']))], [ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer11, 11, [declaration(sp, auswahl, [d('A1', +, number, 'Laenge'), d('A2', -, list, 'Liste')])], _G25381075, [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, -, list, ['neue Liste', 'Neue', 'neue Zuschauerliste', 'erzeugten Liste']), predicatedec(sp, auswahl, 2, auswahl/2, main, 'A2', 2, -, list, 'Liste')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge', 'N', 'meistgesehenen Sendungen']), predicatedec(sp, auswahl, 2, auswahl/2, main, 'A1', 1, +, number, 'Laenge'))], 'Meist(0, []).\n Meist(N, [H|T]):- N1 is N-1, meist(N1, [T]).\n', [error(id(d2a), penalty(0.1), poslist([pred, auswahl]), hint('Die Deklaration für das Prädikat <b>auswahl</b> hat weniger Argumentstellen als erforderlich.'))], [ok], [korrekt], '').
test(exer11, 12, [declaration(sp, meistgesehen, [d('A1', +, list, 'Liste'), d('A2', +, number, meistgesehene), d('A3', -, list, 'neue Liste')])], [recursivecase, basecase, basecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, meistgesehen, 3, meistgesehen/3, main, 'A1', 1, +, list, 'Zuschauerzahlen')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, meistgesehen, 3, meistgesehen/3, main, 'A2', 2, +, number, 'Laenge')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, +, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, meistgesehen, 3, meistgesehen/3, main, 'A3', 3, -, list, 'Endliste'))], 'meistgesehen(X,N,Resultat):- N>0, X=[H|T], H=[_,Sendung|_], N1 is N-1, meistgesehen(T,N1,R1), Resultat=[Sendung|R1].\n meistgesehen(_,0,[]).\n meistgesehen([],_,[]).\n', [error(id(s7k), penalty(0.8), poslist([pos(3, 0, 2, '_')]), hint('An der Stelle von <b>_</b> erwarten wir eine Variable.'), highlighted(['meistgesehen(X, N, Resultat):-N>0, X=[H|T], H=[_, Sendung|_], N1 is N-1, meistgesehen(T, N1, R1), Resultat=[Sendung|R1].<br>', 'meistgesehen(_, 0, []).<br>', 'meistgesehen([],  <b><font color=red>_</b></font> , []).<br>'])), error(id(s8a1), penalty(0.1), poslist([pos(1, 1)]), hint('Dieser arithmetische Vergleich scheint, überflüssig zu sein.'), highlighted(['meistgesehen(X, N, Resultat):- <b><font color=red>N>0</b></font> , X=[H|T], H=[_, Sendung|_], N1 is N-1, meistgesehen(T, N1, R1), Resultat=[Sendung|R1].<br>', 'meistgesehen(_, 0, []).<br>', 'meistgesehen([], _, []).<br>'])), error(id(s1d1), penalty(0.5), poslist([pos(1, 2, 2, 'H'), pos(1, 6, 2, ['Sendung'|'R1'])]), hint(' Eine Unifikation zwischen der Variable <b>H</b> und einer Variable des Terms <b>[Sendung|R1]</b> is erforderlich.'), highlighted(['meistgesehen(X, N, Resultat):-N>0, X= <b><font color=red>[H|T]</b></font> , H=[_, Sendung|_], N1 is N-1, meistgesehen(T, N1, R1), Resultat= <b><font color=red>[Sendung|R1]</b></font> .<br>', 'meistgesehen(_, 0, []).<br>', 'meistgesehen([], _, []).<br>'])), error(id(s8a), penalty(0.1), poslist([pos(3, 0, 2, '_')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen der Variable <b>_</b> und einer Zahl.'), highlighted(['meistgesehen(X, N, Resultat):-N>0, X=[H|T], H=[_, Sendung|_], N1 is N-1, meistgesehen(T, N1, R1), Resultat=[Sendung|R1].<br>', 'meistgesehen(_, 0, []).<br>', 'meistgesehen([],  <b><font color=red>_</b></font> , []).<br>']))], [nok, nok, ok, ok], ['is eigentlich eine Variable', 'wieso?', korrekt, korrekt], '').
test(exer11, 13, [declaration(sp, neu, [d('A1', +, list, 'Liste'), d('A2', -, list, 'neue Liste'), d('A3', +, number, meistgesehene)])], [basecase, basecase, recursivecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, neu, 3, neu/3, main, 'A1', 1, +, list, 'Zuschauerzahlen')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, neu, 3, neu/3, main, 'A3', 3, +, number, 'Laenge')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, -, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, neu, 3, neu/3, main, 'A2', 2, -, list, 'Endliste'))], 'neu([],[],_).\n neu(_,[],0).\n neu([X|Y],[X|Z],N):- N1 is N-1, neu(Y,Z, N1).\n', [error(id(s7k), penalty(0.8), poslist([pos(1, 0, 3, '_')]), hint('An der Stelle von <b>_</b> erwarten wir eine Variable.'), highlighted(['neu([], [],  <b><font color=red>_</b></font> ).<br>', 'neu(_, [], 0).<br>', 'neu([X|Y], [X|Z], N):-N1 is N-1, neu(Y, Z, N1).<br>'])), error(id(s8a), penalty(0.1), poslist([pos(1, 0, 3, '_')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen der Variable <b>_</b> und einer Zahl.'), highlighted(['neu([], [],  <b><font color=red>_</b></font> ).<br>', 'neu(_, [], 0).<br>', 'neu([X|Y], [X|Z], N):-N1 is N-1, neu(Y, Z, N1).<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer11, 14, [declaration(sp, m_s, [d('A1', +, list, 'Liste'), d('A2', +, number, meistgesehene), d('A3', -, list, 'neue Liste')])], [basecase, basecase, recursivecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, m_s, 3, m_s/3, main, 'A1', 1, +, list, 'Zuschauerzahlen')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, m_s, 3, m_s/3, main, 'A2', 2, +, number, 'Laenge')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, -, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, m_s, 3, m_s/3, main, 'A3', 3, -, list, 'Endliste'))], 'm_s([_],0,[]).\n m_s(E, Z, E):-Z>length(E).\n m_s([H|TE], Z, [H|TA]):-Z1 is Z-1, m_s(TE, Z1, TA).\n', [error(id(s7g1), penalty(0.8), poslist([pos(2, 0, 3)]), hint('An der Stelle von <b>E</b> sollte eine leere Liste sein.'), highlighted(['m_s([_], 0, []).<br>', 'm_s(E, Z,  <b><font color=red>E</b></font> ):-Z>length(E).<br>', 'm_s([H|TE], Z, [H|TA]):-Z1 is Z-1, m_s(TE, Z1, TA).<br>'])), error(id(s7g1), penalty(0.8), poslist([pos(2, 0, 1)]), hint('An der Stelle von <b>E</b> sollte eine leere Liste sein.'), highlighted(['m_s([_], 0, []).<br>', 'm_s( <b><font color=red>E</b></font> , Z, E):-Z>length(E).<br>', 'm_s([H|TE], Z, [H|TA]):-Z1 is Z-1, m_s(TE, Z1, TA).<br>'])), error(id(s8c), penalty(0.5), poslist([pos(2, 1)]), hint('Ein Operand ist nicht korrekt. Der Operator: <b>></b> ist erforderlich.'), highlighted(['m_s([_], 0, []).<br>', 'm_s(E, Z, E):- <b><font color=red>Z>length(E)</b></font> .<br>', 'm_s([H|TE], Z, [H|TA]):-Z1 is Z-1, m_s(TE, Z1, TA).<br>'])), error(id(s8g), penalty(0.5), poslist([pos(2, 1, 2, length('E'))]), hint('Der Typ dieses Arguments scheint nicht richtig zu sein.'), highlighted(['m_s([_], 0, []).<br>', 'm_s(E, Z, E):-Z> <b><font color=red>length(E)</b></font> .<br>', 'm_s([H|TE], Z, [H|TA]):-Z1 is Z-1, m_s(TE, Z1, TA).<br>']))], [ok, ok, ok, nok], [korrekt, korrekt, 'Der Operator > is vorhanden', 'Sprachlich vielleicht besser: length(E) liefert keinen Integer-Wert'], '').
test(exer11, 15, [declaration(sp, neulist, [d('A1', +, list, 'Liste'), d('A2', +, number, meistgesehene), d('A3', -, list, 'neue Liste')])], [basecase, recursivecase, basecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, neulist, 3, neulist/3, main, 'A1', 1, +, list, 'Zuschauerzahlen')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, neulist, 3, neulist/3, main, 'A2', 2, +, number, 'Laenge')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, -, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, neulist, 3, neulist/3, main, 'A3', 3, -, list, 'Endliste'))], 'neulist(_,0,[_]).\n neulist([First|AltList],N,[First|Neulist]):- N2 is N-1, neulist(AltList,N2,Neulist).\n neulist([], N, []).\n', [error(id(s7g1), penalty(0.8), poslist([pos(1, 0, 3)]), hint('An der Stelle von <b>[_]</b> sollte eine leere Liste sein.'), highlighted(['neulist(_, 0,  <b><font color=red>[_]</b></font> ).<br>', 'neulist([First|AltList], N, [First|Neulist]):-N2 is N-1, neulist(AltList, N2, Neulist).<br>', 'neulist([], N, []).<br>'])), error(id(s8a), penalty(0.1), poslist([pos(3, 0, 2, 'N')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen der Variable <b>N</b> und einer Zahl.'), highlighted(['neulist(_, 0, [_]).<br>', 'neulist([First|AltList], N, [First|Neulist]):-N2 is N-1, neulist(AltList, N2, Neulist).<br>', 'neulist([],  <b><font color=red>N</b></font> , []).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(3, 0, 2, 'N')]), hint('<b>N</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['neulist(_, 0, [_]).<br>', 'neulist([First|AltList], N, [First|Neulist]):-N2 is N-1, neulist(AltList, N2, Neulist).<br>', 'neulist([],  <b><font color=red>N</b></font> , []).<br>']))], [ok, ok, ok], [korrekt, korrekt, korrekt], '').
test(exer11, 16, [declaration(sp, meist, [d('A1', +, number, meistgesehene), d('A2', +, list, 'Liste'), d('A3', -, list, 'neue Liste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, meist, 3, meist/3, main, 'A2', 2, +, list, 'Zuschauerzahlen')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, meist, 3, meist/3, main, 'A1', 1, +, number, 'Laenge')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, -, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, meist, 3, meist/3, main, 'A3', 3, -, list, 'Endliste'))], 'meist(0, [], []).\n meist(N, [H|T], [H|R]):- N1 is N-1, meist(N1, T, R).\n', [error(id(s7g), penalty(0.01), poslist([]), hint('Ein Rekursionsabschluss fehlt.'), highlighted([' <b><font color=red>meist(0, [], [])</b></font> .<br>', ' <b><font color=red>meist(N, [H|T], [H|R])</b></font> :- <b><font color=red>N1 is N-1</b></font> ,  <b><font color=red>meist(N1, T, R)</b></font> .<br>']))], [ok], [korrekt], '').
test(exer11, 17, [declaration(sp, meist, [d('A1', +, list, 'Liste'), d('A2', +, number, meistgesehene), d('A3', -, list, 'neue Liste')])], [basecase, basecase, recursivecase], [map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg1', 1, +, list, ['Liste, Gesamtliste']), predicatedec(sp, meist, 3, meist/3, main, 'A1', 1, +, list, 'Zuschauerzahlen')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg2', 2, +, number, ['Laenge, meistgegehene Sendungen']), predicatedec(sp, meist, 3, meist/3, main, 'A2', 2, +, number, 'Laenge')), map(dec, predicatedec(tp, anfang, 3, anfang/3, main, 'Arg3', 3, -, list, ['Anfang, erzeugte Liste, Endliste']), predicatedec(sp, meist, 3, meist/3, main, 'A3', 3, -, list, 'Endliste'))], 'meist([],_,[]).\n meist(_,0,[]).\n meist([H|T], N, [H|Y]):- N1 is N-1, meist(T, N1, Y).\n', [error(id(s7k), penalty(0.8), poslist([pos(1, 0, 2, '_')]), hint('An der Stelle von <b>_</b> erwarten wir eine Variable.'), highlighted(['meist([],  <b><font color=red>_</b></font> , []).<br>', 'meist(_, 0, []).<br>', 'meist([H|T], N, [H|Y]):-N1 is N-1, meist(T, N1, Y).<br>'])), error(id(s8a), penalty(0.1), poslist([pos(1, 0, 2, '_')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen der Variable <b>_</b> und einer Zahl.'), highlighted(['meist([],  <b><font color=red>_</b></font> , []).<br>', 'meist(_, 0, []).<br>', 'meist([H|T], N, [H|Y]):-N1 is N-1, meist(T, N1, Y).<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer12, 1, [declaration(sp, kohle, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, kohle, 2, kohle/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, kohle, 2, kohle/2, main, 'A2', 2, -, number, 'Summe'))], 'kohle([],0).\n kohle([Name,Geld|Tail], Ges):-kohle([Tail], GZ), Ges is Geld + GZ.\n', [error(id(s3a), penalty(0.1), poslist([pos(2, 0, 1, ['Name', 'Geld'|'Tail']), pos(2, 1, 1, ['Tail'])]), hint('<b>[Name, Geld|Tail]</b>: sollte rekursiv ab/aufgebaut werden.'), highlighted(['kohle([], 0).<br>', 'kohle( <b><font color=red>[Name, Geld|Tail]</b></font> , Ges):-kohle( <b><font color=red>[Tail]</b></font> , GZ), Ges is Geld+GZ.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'Name')]), hint('<b>Name</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['kohle([], 0).<br>', 'kohle( <b><font color=red>[Name, Geld|Tail]</b></font> , Ges):-kohle([Tail], GZ), Ges is Geld+GZ.<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer12, 2, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([], 0).\n summe([_,Gehalt|Rest], Betrag):-summe(Rest, Betrag1), Betrag is Betrag1+Gehalt.\n', [], [], [], korrekt).
test(exer12, 3, [declaration(sp, gehalt, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A2', 2, -, number, 'Summe'))], 'gehalt([],0).\n gehalt([N1,G1|Rest], Gehalt):-gehalt(Rest, GehaltZ), Gehalt is GehaltZ+G1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'N1')]), hint('<b>N1</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['gehalt([], 0).<br>', 'gehalt( <b><font color=red>[N1, G1|Rest]</b></font> , Gehalt):-gehalt(Rest, GehaltZ), Gehalt is GehaltZ+G1.<br>']))], [ok], [korrekt], '').
test(exer12, 4, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([], S):-S is 0.\n summe([X|[Y|Rest]], S):- summe(Rest, SNeu), S is Y+SNeu.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>S</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['summe([],  <b><font color=red>S</b></font> ):-S is 0.<br>', 'summe([X, Y|Rest], S):-summe(Rest, SNeu), S is Y+SNeu.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'X')]), hint('<b>X</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['summe([], S):-S is 0.<br>', 'summe( <b><font color=red>[X, Y|Rest]</b></font> , S):-summe(Rest, SNeu), S is Y+SNeu.<br>'])), error(id(s5b), penalty(0.1), poslist([pos(1, 1)]), hint('<b>S is 0</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['summe([], S):- <b><font color=red>S is 0</b></font> .<br>', 'summe([X, Y|Rest], S):-summe(Rest, SNeu), S is Y+SNeu.<br>']))], [ok, ok, ok], [korrekt, korrekt, korrekt], '').
test(exer12, 5, [declaration(sp, gehalt, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')]), declaration(sp, addlist, gehalt/2, accu, [d('A1', +, list, 'Gehaltsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, addlist, 3, gehalt/2, accu, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg2', 2, -, number, ['Gehaltsumme,Summe aller Gehälter']), predicatedec(sp, addlist, 3, gehalt/2, accu, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, addlist, 3, gehalt/2, accu, 'A2', 2, +, number, accu))], 'gehalt(LS, G):-addlist(LS,0,G).\n addlist([], R, R).\n addlist([_, K|R], A, Res):- A1 is A+K, addlist(R, A1, Res).\n', [], [], [], korrekt).
test(exer12, 6, [declaration(sp, sum, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, sum, 2, sum/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, sum, 2, sum/2, main, 'A2', 2, -, number, 'Summe'))], 'sum([],0).\n sum([A,B|C], S1):-sum(C, S2), S1 is S2+B.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'A')]), hint('<b>A</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['sum([], 0).<br>', 'sum( <b><font color=red>[A, B|C]</b></font> , S1):-sum(C, S2), S1 is S2+B.<br>']))], [ok], [korrekt], '').
test(exer12, 7, [declaration(sp, gehaelter, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehaelter, 2, gehaelter/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehaelter, 2, gehaelter/2, main, 'A2', 2, -, number, 'Summe'))], 'gehaelter([], 0).\n gehaelter([[Name|Geh]|Rest], Summe):- gehaelter(Rest, ZS), Summe is Geh+ZS.\n', [error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, [['Name'|'Geh']|'Rest'])]), hint('<b>[[Name|Geh]|Rest]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Name, Gehalt|Rest]'), highlighted(['gehaelter([], 0).<br>', 'gehaelter( <b><font color=red>[[Name|Geh]|Rest]</b></font> , Summe):-gehaelter(Rest, ZS), Summe is Geh+ZS.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'Name')]), hint('<b>Name</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['gehaelter([], 0).<br>', 'gehaelter( <b><font color=red>[[Name|Geh]|Rest]</b></font> , Summe):-gehaelter(Rest, ZS), Summe is Geh+ZS.<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer12, 8, [declaration(sp, sum, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, sum, 2, sum/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, sum, 2, sum/2, main, 'A2', 2, -, number, 'Summe'))], 'sum([], 0).\n sum([_,Gehalt|R], Summe):-sum(R, ZwiSumme), Summe is ZwiSumme+Gehalt.\n', [], [], [], korrekt).
test(exer12, 9, [declaration(sp, gehalt, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')]), declaration(sp, gh, gehalt/2, accu, [d('A1', +, list, 'Gehaltsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gh, 3, gehalt/2, accu, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg2', 2, -, number, ['Gehaltsumme,Summe aller Gehälter']), predicatedec(sp, gh, 3, gehalt/2, accu, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, gh, 3, gehalt/2, accu, 'A2', 2, +, number, accu))], 'gehalt(LS, G):-gh(LS,0,G).\n gh([], X,X).\n gh([_,G|R], A, R):-GS is A+G, gh(R,GS,R).\n', [error(id(s4a1), penalty(0.5), poslist([pos(3, 0, 3, 'R'), pos(3, 2, 1, 'R')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['gehalt(LS, G):-gh(LS, 0, G).<br>', 'gh([], X, X).<br>', 'gh([_, G|R], A,  <b><font color=red>R</b></font> ):-GS is A+G, gh( <b><font color=red>R</b></font> , GS, R).<br>'])), error(id(s4d), penalty(0.5), poslist([pos(3, 2, 1, 'R'), pos(3, 2, 3, 'R')]), hint('Die Unifikation zwischen <b>R</b> und <b>R</b> ist nicht erforderlich.'), highlighted(['gehalt(LS, G):-gh(LS, 0, G).<br>', 'gh([], X, X).<br>', 'gh([_, G|R], A, R):-GS is A+G, gh( <b><font color=red>R</b></font> , GS,  <b><font color=red>R</b></font> ).<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer12, 10, [declaration(sp, f, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Gehaltsliste')])], [basecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, f, 2, f/2, main, 'A2', 2, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, f, 2, f/2, main, 'A1', 1, -, number, 'Summe'))], 'f(0,[]).\n', [error(id(pre3a), penalty(0.3), poslist([pos(1)]), hint('Sie haben diese Klausel als Rekursionsabschluss gewählt. Jedoch fehlt eine dazugehörige Rekursionsklausel, oder diese Klausel ist kein Rekursionsabschluss.'), highlighted([' <b><font color=red>f(0, [])</b></font> .<br>']))], [ok], [korrekt], '').
test(exer12, 12, [declaration(sp, gesamt, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gesamt, 2, gesamt/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gesamt, 2, gesamt/2, main, 'A2', 2, -, number, 'Summe'))], 'gesamt([], 0).\n gesamt([_,H|T], N):- N is H+N1, gesamt(T,N1).\n', [error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['gesamt([], 0).<br>', 'gesamt([_, H|T], N):- <b><font color=red>N is H+N1</b></font> ,  <b><font color=red>gesamt(T, N1)</b></font> .<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 1, 2, 'N1')]), hint('<b>N1</b> muss gebunden sein, bevor das Kalkulationssubziel <b>N is H+N1</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['gesamt([], 0).<br>', 'gesamt([_, H|T], N):-N is  <b><font color=red>H+N1</b></font> , gesamt(T, N1).<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer12, 14, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([],0).\n summe([_,Zahl|Rest], Ergebnis):-summe(Rest, Ergebnis1), Ergebnis is Ergebnis1+Zahl.\n', [], [], [], korrekt).
test(exer12, 15, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe(Liste, Ergebnis):-L1=[K1,K2|R1], X is Ergebnis+K2, summe(R1,X).\n', [error(id(s7e), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>Liste</b> sollte eine Nicht-Leer-Liste sein.'), highlighted(['summe( <b><font color=red>Liste</b></font> , Ergebnis):-L1=[K1, K2|R1], X is Ergebnis+K2, summe(R1, X).<br>'])), error(id(s7g), penalty(0.01), poslist([]), hint('Ein Rekursionsabschluss fehlt.'), highlighted([' <b><font color=red>summe(Liste, Ergebnis)</b></font> :- <b><font color=red>L1=[K1, K2|R1]</b></font> ,  <b><font color=red>X is Ergebnis+K2</b></font> ,  <b><font color=red>summe(R1, X)</b></font> .<br>'])), error(id(s1a), penalty(0.1), poslist([pos(1, 0, 1, 'Liste')]), hint('An der Stelle von <b>Liste</b> sollte eine (De-)Komposition stattfinden.'), highlighted(['summe( <b><font color=red>Liste</b></font> , Ergebnis):-L1=[K1, K2|R1], X is Ergebnis+K2, summe(R1, X).<br>'])), error(id(s1h), penalty(0.1), poslist([pos(1, 1)]), hint('<b>[K1, K2|R1]</b>: Diese (De-)Komposition ist überflüssig.'), highlighted(['summe(Liste, Ergebnis):- <b><font color=red>L1=[K1, K2|R1]</b></font> , X is Ergebnis+K2, summe(R1, X).<br>'])), error(id(s3a), penalty(0.1), poslist([pos(1, 0, 1, 'Liste'), pos(1, 3, 1, 'R1')]), hint('<b>Liste</b>: sollte rekursiv ab/aufgebaut werden.'), highlighted(['summe( <b><font color=red>Liste</b></font> , Ergebnis):-L1=[K1, K2|R1], X is Ergebnis+K2, summe( <b><font color=red>R1</b></font> , X).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(1, 3), pos(1, 2)]), hint('Das rekursive Subziel <b>3</b> muss vor dem  <b>2</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['summe(Liste, Ergebnis):-L1=[K1, K2|R1],  <b><font color=red>X is Ergebnis+K2</b></font> ,  <b><font color=red>summe(R1, X)</b></font> .<br>'])), error(id(s5a), penalty(0.1), poslist([pos(1, 0, 2, 'Ergebnis')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Ergebnis</b> fehlt.'), highlighted(['summe(Liste,  <b><font color=red>Ergebnis</b></font> ):-L1=[K1, K2|R1], X is Ergebnis+K2, summe(R1, X).<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(1, 2, 2, 'K2'), pos(1, 3, 2, 'X')]), hint('<b>K2</b> sollte mit der Argumentstelle von <b>X</b>, oder <b>K2</b> sollte mit der richtigen Variable im Term <b>X</b> koreferieren.'), highlighted(['summe(Liste, Ergebnis):-L1=[K1, K2|R1], X is  <b><font color=red>Ergebnis+K2</b></font> , summe(R1,  <b><font color=red>X</b></font> ).<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(1, 2, 1, 'X'), pos(1, 0, 2, 'Ergebnis')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>X</b> und <b>Ergebnis</b>'), highlighted(['summe(Liste,  <b><font color=red>Ergebnis</b></font> ):-L1=[K1, K2|R1],  <b><font color=red>X</b></font> is Ergebnis+K2, summe(R1, X).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 1, 'Liste')]), hint('<b>Liste</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['summe( <b><font color=red>Liste</b></font> , Ergebnis):-L1=[K1, K2|R1], X is Ergebnis+K2, summe(R1, X).<br>'])), error(id(post5c), penalty(0.8), poslist([pos(1, 1, 1, 'L1')]), hint('<b>L1</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['summe(Liste, Ergebnis):- <b><font color=red>L1</b></font> =[K1, K2|R1], X is Ergebnis+K2, summe(R1, X).<br>'])), error(id(post5c), penalty(0.8), poslist([pos(1, 1, 2, 'K1')]), hint('<b>K1</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['summe(Liste, Ergebnis):-L1= <b><font color=red>[K1, K2|R1]</b></font> , X is Ergebnis+K2, summe(R1, X).<br>'])), error(id(post7b), penalty(0.8), poslist([pos(1, 2, 2, 'Ergebnis')]), hint('<b>Ergebnis</b> muss gebunden sein, bevor das Kalkulationssubziel <b>X is Ergebnis+K2</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['summe(Liste, Ergebnis):-L1=[K1, K2|R1], X is  <b><font color=red>Ergebnis+K2</b></font> , summe(R1, X).<br>'])), error(id(post7b), penalty(0.8), poslist([pos(1, 2, 2, 'K2')]), hint('<b>K2</b> muss gebunden sein, bevor das Kalkulationssubziel <b>X is Ergebnis+K2</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['summe(Liste, Ergebnis):-L1=[K1, K2|R1], X is  <b><font color=red>Ergebnis+K2</b></font> , summe(R1, X).<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, '', korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer12, 16, [declaration(sp, calc, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, calc, 2, calc/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, calc, 2, calc/2, main, 'A2', 2, -, number, 'Summe'))], 'calc([],0).\n calc([_,G|R], X):-calc(R,Y), Y is X-G.\n', [error(id(s5a), penalty(0.1), poslist([pos(2, 0, 2, 'X')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>X</b> fehlt.'), highlighted(['calc([], 0).<br>', 'calc([_, G|R],  <b><font color=red>X</b></font> ):-calc(R, Y), Y is X-G.<br>'])), error(id(s9a), penalty(0.7), poslist([pos(2, 2)]), hint('Das Vorzeichen <b>-</b> des arithmetischen Terms <b>[G]</b> erfüllt nicht die Aufgabenstellung.'), highlighted(['calc([], 0).<br>', 'calc([_, G|R], X):-calc(R, Y),  <b><font color=red>Y is X-G</b></font> .<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 2, 2, 'X'), pos(2, 1, 2, 'Y')]), hint('<b>X</b> sollte mit der Argumentstelle von <b>Y</b>, oder <b>X</b> sollte mit der richtigen Variable im Term <b>Y</b> koreferieren.'), highlighted(['calc([], 0).<br>', 'calc([_, G|R], X):-calc(R,  <b><font color=red>Y</b></font> ), Y is  <b><font color=red>X-G</b></font> .<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(2, 2, 1, 'Y'), pos(2, 0, 2, 'X')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>Y</b> und <b>X</b>'), highlighted(['calc([], 0).<br>', 'calc([_, G|R],  <b><font color=red>X</b></font> ):-calc(R, Y),  <b><font color=red>Y</b></font> is X-G.<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 2, 2, 'X')]), hint('<b>X</b> muss gebunden sein, bevor das Kalkulationssubziel <b>Y is X-G</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['calc([], 0).<br>', 'calc([_, G|R], X):-calc(R, Y), Y is  <b><font color=red>X-G</b></font> .<br>']))], [ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer12, 18, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([],0).\n summe([_,A|R], S):-summe(R,S1), S is S1+A.\n', [], [], [], korrekt).
test(exer12, 19, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([], 0).\n summe([_,Gehalt|Rest],X):-summe(Rest, Y), X is Y+Gehalt.\n', [], [], [], korrekt).
test(exer12, 20, [declaration(sp, sum, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, sum, 2, sum/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, sum, 2, sum/2, main, 'A2', 2, -, number, 'Summe'))], 'sum([],0).\n sum([_,Wert|Tail], S):-sum(Tail, Zw), S is Zw+Wert.\n', [], [], [], korrekt).
test(exer12, 21, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([], X):- X is 0.\n summe([_|[Gehalt|Rest]], X):- summe(Rest, X1), X is X1+Gehalt.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>X</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['summe([],  <b><font color=red>X</b></font> ):-X is 0.<br>', 'summe([_, Gehalt|Rest], X):-summe(Rest, X1), X is X1+Gehalt.<br>'])), error(id(s5b), penalty(0.1), poslist([pos(1, 1)]), hint('<b>X is 0</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['summe([], X):- <b><font color=red>X is 0</b></font> .<br>', 'summe([_, Gehalt|Rest], X):-summe(Rest, X1), X is X1+Gehalt.<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer12, 22, [declaration(sp, gehalt, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')]), declaration(sp, g, gehalt/2, accu, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe'), d('A3', +, number, accu)])], [nonrecursive, basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, g, 3, gehalt/2, accu, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg2', 2, -, number, ['Gehaltsumme,Summe aller Gehälter']), predicatedec(sp, g, 3, gehalt/2, accu, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, g, 3, gehalt/2, accu, 'A3', 3, +, number, accu))], 'gehalt(Liste, Summe):-g(Liste, Summe, 0).\n g([], Summe, Summe).\n g([_,X|Tail], Summe, Akku):-Akku1 is Akku+X, g(Tail, Summe, Akku1).\n', [], [], [], korrekt).
test(exer12, 23, [declaration(sp, myadd, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [recursivecase, basecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, myadd, 2, myadd/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, myadd, 2, myadd/2, main, 'A2', 2, -, number, 'Summe'))], 'myadd([_|[X|T]], R):-myadd(T, R1), R is R1+X.\n myadd([],0).\n', [], [], [], korrekt).
test(exer12, 24, [declaration(sp, gehalt_sum, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehalt_sum, 2, gehalt_sum/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehalt_sum, 2, gehalt_sum/2, main, 'A2', 2, -, number, 'Summe'))], 'gehalt_sum([], 0).\n gehalt_sum([_,Kopf2|Rest], R):-gehalt_sum(Rest, R1), R is R1+Kopf2.\n', [], [], [], korrekt).
test(exer12, 25, [declaration(sp, summe, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Gehaltsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, -, number, 'Summe'))], 'summe(0, []).\n summe(Wert, [A,B|R]):-Wert1 is Wert +B, summe(Wert1,R).\n', [error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['summe(0, []).<br>', 'summe(Wert, [A, B|R]):- <b><font color=red>Wert1 is Wert+B</b></font> ,  <b><font color=red>summe(Wert1, R)</b></font> .<br>'])), error(id(s5a), penalty(0.1), poslist([pos(2, 0, 1, 'Wert')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Wert</b> fehlt.'), highlighted(['summe(0, []).<br>', 'summe( <b><font color=red>Wert</b></font> , [A, B|R]):-Wert1 is Wert+B, summe(Wert1, R).<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 1, 2, 'Wert'), pos(2, 2, 1, 'Wert1')]), hint('<b>Wert</b> sollte mit der Argumentstelle von <b>Wert1</b>, oder <b>Wert</b> sollte mit der richtigen Variable im Term <b>Wert1</b> koreferieren.'), highlighted(['summe(0, []).<br>', 'summe(Wert, [A, B|R]):-Wert1 is  <b><font color=red>Wert+B</b></font> , summe( <b><font color=red>Wert1</b></font> , R).<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(2, 1, 1, 'Wert1'), pos(2, 0, 1, 'Wert')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>Wert1</b> und <b>Wert</b>'), highlighted(['summe(0, []).<br>', 'summe( <b><font color=red>Wert</b></font> , [A, B|R]):- <b><font color=red>Wert1</b></font> is Wert+B, summe(Wert1, R).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 2, 'A')]), hint('<b>A</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['summe(0, []).<br>', 'summe(Wert,  <b><font color=red>[A, B|R]</b></font> ):-Wert1 is Wert+B, summe(Wert1, R).<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 1, 2, 'Wert')]), hint('<b>Wert</b> muss gebunden sein, bevor das Kalkulationssubziel <b>Wert1 is Wert+B</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['summe(0, []).<br>', 'summe(Wert, [A, B|R]):-Wert1 is  <b><font color=red>Wert+B</b></font> , summe(Wert1, R).<br>']))], [ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer12, 26, [declaration(sp, summegehalt, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summegehalt, 2, summegehalt/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summegehalt, 2, summegehalt/2, main, 'A2', 2, -, number, 'Summe'))], 'summegehalt([],0).\n summegehalt([_,Gehalt|RestListe],Summe):-summegehalt(RestListe,Restsumme),Summe is Restsumme+Gehalt.\n', [], [ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer12, 27, [declaration(sp, rechne, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, rechne, 2, rechne/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, rechne, 2, rechne/2, main, 'A2', 2, -, number, 'Summe'))], 'rechne([], 0).\n rechne([[Head|Zahl]|Tail], N):-rechne(Tail, N1), N is Zahl +N1.\n', [error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, [['Head'|'Zahl']|'Tail'])]), hint('<b>[[Head|Zahl]|Tail]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Name, Gehalt|Rest]'), highlighted(['rechne([], 0).<br>', 'rechne( <b><font color=red>[[Head|Zahl]|Tail]</b></font> , N):-rechne(Tail, N1), N is Zahl+N1.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'Head')]), hint('<b>Head</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['rechne([], 0).<br>', 'rechne( <b><font color=red>[[Head|Zahl]|Tail]</b></font> , N):-rechne(Tail, N1), N is Zahl+N1.<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer12, 28, [declaration(sp, gehalt, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A2', 2, -, number, 'Summe'))], 'gehalt(Liste, Summe):- Liste=[G,_|[]], Summe=G.\n gehalt(Liste, Summe):- Liste=[G1,_,G2,_|T], gehalt([G3,_|T], Summe), G3 is G1+G2.\n', [error(id(s7d), penalty(0.8), poslist([pos(1, 2, 2, 'G')]), hint('An der Stelle von <b>G</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['gehalt(Liste, Summe):-Liste=[G, _], Summe= <b><font color=red>G</b></font> .<br>', 'gehalt(Liste, Summe):-Liste=[G1, _, G2, _|T], gehalt([G3, _|T], Summe), G3 is G1+G2.<br>'])), error(id(s7g2), penalty(0.8), poslist([pos(1, 1, 2)]), hint('An der Stelle von <b>[G, _]</b> sollte eine leere Liste sein.'), highlighted(['gehalt(Liste, Summe):-Liste= <b><font color=red>[G, _]</b></font> , Summe=G.<br>', 'gehalt(Liste, Summe):-Liste=[G1, _, G2, _|T], gehalt([G3, _|T], Summe), G3 is G1+G2.<br>'])), error(id(s1e), penalty(0.5), poslist([pos(2, 1, 2, ['G1', '_', 'G2', '_'|'T'])]), hint('<b>[G1, _, G2, _|T]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Name, Gehalt|Rest]'), highlighted(['gehalt(Liste, Summe):-Liste=[G, _], Summe=G.<br>', 'gehalt(Liste, Summe):-Liste= <b><font color=red>[G1, _, G2, _|T]</b></font> , gehalt([G3, _|T], Summe), G3 is G1+G2.<br>'])), error(id(s3a), penalty(0.1), poslist([pos(2, 0, 1, 'Liste'), pos(2, 2, 1, ['G3', '_'|'T'])]), hint('<b>Liste</b>: sollte rekursiv ab/aufgebaut werden.'), highlighted(['gehalt(Liste, Summe):-Liste=[G, _], Summe=G.<br>', 'gehalt( <b><font color=red>Liste</b></font> , Summe):-Liste=[G1, _, G2, _|T], gehalt( <b><font color=red>[G3, _|T]</b></font> , Summe), G3 is G1+G2.<br>'])), error(id(s5a), penalty(0.1), poslist([pos(2, 0, 2, 'Summe')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Summe</b> fehlt.'), highlighted(['gehalt(Liste, Summe):-Liste=[G, _], Summe=G.<br>', 'gehalt(Liste,  <b><font color=red>Summe</b></font> ):-Liste=[G1, _, G2, _|T], gehalt([G3, _|T], Summe), G3 is G1+G2.<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 3, 2, 'G1'), pos(2, 1, 2, ['G1', '_', 'G2', '_'|'T'])]), hint('<b>G1</b> sollte mit der Argumentstelle von <b>[G1, _, G2, _|T]</b>, oder <b>G1</b> sollte mit der richtigen Variable im Term <b>[G1, _, G2, _|T]</b> koreferieren.'), highlighted(['gehalt(Liste, Summe):-Liste=[G, _], Summe=G.<br>', 'gehalt(Liste, Summe):-Liste= <b><font color=red>[G1, _, G2, _|T]</b></font> , gehalt([G3, _|T], Summe), G3 is  <b><font color=red>G1+G2</b></font> .<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 3, 2, 'G2'), pos(2, 2, 2, 'Summe')]), hint('<b>G2</b> sollte mit der Argumentstelle von <b>Summe</b>, oder <b>G2</b> sollte mit der richtigen Variable im Term <b>Summe</b> koreferieren.'), highlighted(['gehalt(Liste, Summe):-Liste=[G, _], Summe=G.<br>', 'gehalt(Liste, Summe):-Liste=[G1, _, G2, _|T], gehalt([G3, _|T],  <b><font color=red>Summe</b></font> ), G3 is  <b><font color=red>G1+G2</b></font> .<br>'])), error(id(s4a1), penalty(0.5), poslist([pos(2, 0, 2, 'Summe'), pos(2, 2, 2, 'Summe')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['gehalt(Liste, Summe):-Liste=[G, _], Summe=G.<br>', 'gehalt(Liste,  <b><font color=red>Summe</b></font> ):-Liste=[G1, _, G2, _|T], gehalt([G3, _|T],  <b><font color=red>Summe</b></font> ), G3 is G1+G2.<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(2, 3, 1, 'G3'), pos(2, 0, 2, 'Summe')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>G3</b> und <b>Summe</b>'), highlighted(['gehalt(Liste, Summe):-Liste=[G, _], Summe=G.<br>', 'gehalt(Liste,  <b><font color=red>Summe</b></font> ):-Liste=[G1, _, G2, _|T], gehalt([G3, _|T], Summe),  <b><font color=red>G3</b></font> is G1+G2.<br>'])), error(id(s1h), penalty(0.1), poslist([pos(1, 1)]), hint('<b>[G, _]</b>: Diese (De-)Komposition ist überflüssig.'), highlighted(['gehalt(Liste, Summe):- <b><font color=red>Liste=[G, _]</b></font> , Summe=G.<br>', 'gehalt(Liste, Summe):-Liste=[G1, _, G2, _|T], gehalt([G3, _|T], Summe), G3 is G1+G2.<br>'])), error(id(s4f), penalty(0.1), poslist([pos(1, 2, 1, 'Summe'), pos(1, 2, 2, 'G')]), hint('<b>[Summe, G]</b>: Das Unifikationssubziel dieser Variablen/Terme ist überflüssig.'), highlighted(['gehalt(Liste, Summe):-Liste=[G, _],  <b><font color=red>Summe</b></font> = <b><font color=red>G</b></font> .<br>', 'gehalt(Liste, Summe):-Liste=[G1, _, G2, _|T], gehalt([G3, _|T], Summe), G3 is G1+G2.<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer12, 29, [declaration(sp, berechne, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, berechne, 2, berechne/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, berechne, 2, berechne/2, main, 'A2', 2, -, number, 'Summe'))], 'berechne([], 0).\n berechne([A,B|T], Res):-berechne(T, Res1), Res1 is Res1+B.\n', [error(id(s5a), penalty(0.1), poslist([pos(2, 0, 2, 'Res')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Res</b> fehlt.'), highlighted(['berechne([], 0).<br>', 'berechne([A, B|T],  <b><font color=red>Res</b></font> ):-berechne(T, Res1), Res1 is Res1+B.<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(2, 2, 1, 'Res1'), pos(2, 0, 2, 'Res')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>Res1</b> und <b>Res</b>'), highlighted(['berechne([], 0).<br>', 'berechne([A, B|T],  <b><font color=red>Res</b></font> ):-berechne(T, Res1),  <b><font color=red>Res1</b></font> is Res1+B.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'A')]), hint('<b>A</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['berechne([], 0).<br>', 'berechne( <b><font color=red>[A, B|T]</b></font> , Res):-berechne(T, Res1), Res1 is Res1+B.<br>'])), error(id(post5b), penalty(0.8), poslist([pos(2, 0, 2, 'Res')]), hint('<b>Res</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['berechne([], 0).<br>', 'berechne([A, B|T],  <b><font color=red>Res</b></font> ):-berechne(T, Res1), Res1 is Res1+B.<br>']))], [ok, ok, ok, ok], [korrekt, korrekt, '', korrekt], '').
test(exer12, 30, [declaration(sp, summiere, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summiere, 2, summiere/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summiere, 2, summiere/2, main, 'A2', 2, -, number, 'Summe'))], 'summiere([], 0).\n summiere([_|RestL], Betrag):-RestL=[BetragZ|Rest], summiere(Rest, Betrag1), Betrag is BetragZ+Betrag1.\n', [], [], [], korrekt).
test(exer12, 31, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([], Ergebnis).\n summe(Liste, Ergebnis):- Liste=[Name, Gehalt|Rest], Ergebnis1 is Ergebnis+Gehalt, summe(Rest, Ergebnis).\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>Ergebnis</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['summe([],  <b><font color=red>Ergebnis</b></font> ).<br>', 'summe(Liste, Ergebnis):-Liste=[Name, Gehalt|Rest], Ergebnis1 is Ergebnis+Gehalt, summe(Rest, Ergebnis).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 3), pos(2, 2)]), hint('Das rekursive Subziel <b>3</b> muss vor dem  <b>2</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['summe([], Ergebnis).<br>', 'summe(Liste, Ergebnis):-Liste=[Name, Gehalt|Rest],  <b><font color=red>Ergebnis1 is Ergebnis+Gehalt</b></font> ,  <b><font color=red>summe(Rest, Ergebnis)</b></font> .<br>'])), error(id(s5a), penalty(0.1), poslist([pos(2, 0, 2, 'Ergebnis')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Ergebnis</b> fehlt.'), highlighted(['summe([], Ergebnis).<br>', 'summe(Liste,  <b><font color=red>Ergebnis</b></font> ):-Liste=[Name, Gehalt|Rest], Ergebnis1 is Ergebnis+Gehalt, summe(Rest, Ergebnis).<br>'])), error(id(s4a1), penalty(0.5), poslist([pos(2, 0, 2, 'Ergebnis'), pos(2, 3, 2, 'Ergebnis')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['summe([], Ergebnis).<br>', 'summe(Liste,  <b><font color=red>Ergebnis</b></font> ):-Liste=[Name, Gehalt|Rest], Ergebnis1 is Ergebnis+Gehalt, summe(Rest,  <b><font color=red>Ergebnis</b></font> ).<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(2, 2, 1, 'Ergebnis1'), pos(2, 0, 2, 'Ergebnis')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>Ergebnis1</b> und <b>Ergebnis</b>'), highlighted(['summe([], Ergebnis).<br>', 'summe(Liste,  <b><font color=red>Ergebnis</b></font> ):-Liste=[Name, Gehalt|Rest],  <b><font color=red>Ergebnis1</b></font> is Ergebnis+Gehalt, summe(Rest, Ergebnis).<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 1, 2, 'Name')]), hint('<b>Name</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['summe([], Ergebnis).<br>', 'summe(Liste, Ergebnis):-Liste= <b><font color=red>[Name, Gehalt|Rest]</b></font> , Ergebnis1 is Ergebnis+Gehalt, summe(Rest, Ergebnis).<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 2, 1, 'Ergebnis1')]), hint('<b>Ergebnis1</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['summe([], Ergebnis).<br>', 'summe(Liste, Ergebnis):-Liste=[Name, Gehalt|Rest],  <b><font color=red>Ergebnis1</b></font> is Ergebnis+Gehalt, summe(Rest, Ergebnis).<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 2, 2, 'Ergebnis')]), hint('<b>Ergebnis</b> muss gebunden sein, bevor das Kalkulationssubziel <b>Ergebnis1 is Ergebnis+Gehalt</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['summe([], Ergebnis).<br>', 'summe(Liste, Ergebnis):-Liste=[Name, Gehalt|Rest], Ergebnis1 is  <b><font color=red>Ergebnis+Gehalt</b></font> , summe(Rest, Ergebnis).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 2, 'Ergebnis')]), hint('<b>Ergebnis</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['summe([],  <b><font color=red>Ergebnis</b></font> ).<br>', 'summe(Liste, Ergebnis):-Liste=[Name, Gehalt|Rest], Ergebnis1 is Ergebnis+Gehalt, summe(Rest, Ergebnis).<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer12, 32, [declaration(sp, gehaltsum, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehaltsum, 2, gehaltsum/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehaltsum, 2, gehaltsum/2, main, 'A2', 2, -, number, 'Summe'))], 'gehaltsum([], 0).\n gehaltsum(Liste, Summe):- Liste=[_,Gehalt|Rest], gehaltsum(Rest, Summ1), Summe is Gehalt +Summ1.\n', [], [], [], korrekt).
test(exer12, 33, [declaration(sp, sum, [d('A1', +, list, 'Gehaltsliste'), d('A2', +, number, 'Accu'), d('A3', -, number, 'Summe')])], _G25389975, [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltssumme', 'Summe aller Gehälter']), predicatedec(sp, sum, 3, sum/3, main, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank', 'Gehaltsliste']), predicatedec(sp, sum, 3, sum/3, main, 'A1', 1, +, list, 'Gehaltsliste'))], 'sum([], N, 0).\n sum(L, N, R):-L=[K1,K2|Rest], N1 is N+2, sum(Rest, N1, R1), R is K2+R1.\n', [error(id(d2b), penalty(0.1), poslist([pred, sum]), hint('Die Deklaration für das Prädikat <b>sum/3</b> hat mehr Argumentstellen als erforderlich.'))], [nok], ['nicht notwendigerweise, es koennte der Versuch der Akkumulator-Variante sein'], '').
test(exer12, 34, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')]), declaration(sp, summe, summe/2, accu, [d('A1', +, list, 'Gehaltsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [basecase, recursivecase, nonrecursive], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 3, summe/2, accu, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg2', 2, -, number, ['Gehaltsumme,Summe aller Gehälter']), predicatedec(sp, summe, 3, summe/2, accu, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, summe, 3, summe/2, accu, 'A2', 2, +, number, accu))], 'summe([], X,X).\n summe([_,Gehalt|Rest], X,Y):-Z=X+Gehalt, summe(Rest,Z,Y).\n summe(Liste, Gesamtgehalt):-summe(Liste, 0, Gesamtgehalt).\n', [error(id(s5a), penalty(0.1), poslist([pos(2, 2, 2, 'Z')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Z</b> fehlt.'), highlighted(['summe([], X, X).<br>', 'summe([_, Gehalt|Rest], X, Y):-Z=X+Gehalt, summe(Rest,  <b><font color=red>Z</b></font> , Y).<br>', 'summe(Liste, Gesamtgehalt):-summe(Liste, 0, Gesamtgehalt).<br>'])), error(id(s4f), penalty(0.1), poslist([pos(2, 1, 1, 'Z'), pos(2, 1, 2, 'X'+'Gehalt')]), hint('<b>[Z, X+Gehalt]</b>: Das Unifikationssubziel dieser Variablen/Terme ist überflüssig.'), highlighted(['summe([], X, X).<br>', 'summe([_, Gehalt|Rest], X, Y):- <b><font color=red>Z</b></font> = <b><font color=red>X+Gehalt</b></font> , summe(Rest, Z, Y).<br>', 'summe(Liste, Gesamtgehalt):-summe(Liste, 0, Gesamtgehalt).<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer12, 35, [declaration(sp, gehaelter_in_summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')]), declaration(sp, gehalt, gehaelter_in_summe/2, accu, [d('A1', +, list, 'Gehaltsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [basecase, recursivecase, nonrecursive], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehaelter_in_summe, 2, gehaelter_in_summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehaelter_in_summe, 2, gehaelter_in_summe/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehalt, 3, gehaelter_in_summe/2, accu, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg2', 2, -, number, ['Gehaltsumme,Summe aller Gehälter']), predicatedec(sp, gehalt, 3, gehaelter_in_summe/2, accu, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, gehalt, 3, gehaelter_in_summe/2, accu, 'A2', 2, +, number, accu))], 'gehalt([],A,A).\n gehalt(L,A,R):-L=[K1,K2|Rest], A1 is A+K2, gehalt(Rest,A1,R).\n gehaelter_in_summe(L,R):- gehalt(L,0,R).\n', [error(id(post5c), penalty(0.8), poslist([pos(2, 1, 2, 'K1')]), hint('<b>K1</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['gehalt([], A, A).<br>', 'gehalt(L, A, R):-L= <b><font color=red>[K1, K2|Rest]</b></font> , A1 is A+K2, gehalt(Rest, A1, R).<br>', 'gehaelter_in_summe(L, R):-gehalt(L, 0, R).<br>']))], [ok], [korrekt], '').
test(exer12, 37, [declaration(sp, gehaeltersumme1, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehaeltersumme1, 2, gehaeltersumme1/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehaeltersumme1, 2, gehaeltersumme1/2, main, 'A2', 2, -, number, 'Summe'))], 'gehaeltersumme1([], Summe).\n gehaeltersumme1(Liste, Summe):-Liste=[Name, Gehalt|Rest], NSumme is Summe +Gehalt, gehaeltersumme1(Rest, NSumme).\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>Summe</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['gehaeltersumme1([],  <b><font color=red>Summe</b></font> ).<br>', 'gehaeltersumme1(Liste, Summe):-Liste=[Name, Gehalt|Rest], NSumme is Summe+Gehalt, gehaeltersumme1(Rest, NSumme).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 3), pos(2, 2)]), hint('Das rekursive Subziel <b>3</b> muss vor dem  <b>2</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['gehaeltersumme1([], Summe).<br>', 'gehaeltersumme1(Liste, Summe):-Liste=[Name, Gehalt|Rest],  <b><font color=red>NSumme is Summe+Gehalt</b></font> ,  <b><font color=red>gehaeltersumme1(Rest, NSumme)</b></font> .<br>'])), error(id(s5a), penalty(0.1), poslist([pos(2, 0, 2, 'Summe')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Summe</b> fehlt.'), highlighted(['gehaeltersumme1([], Summe).<br>', 'gehaeltersumme1(Liste,  <b><font color=red>Summe</b></font> ):-Liste=[Name, Gehalt|Rest], NSumme is Summe+Gehalt, gehaeltersumme1(Rest, NSumme).<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 2, 2, 'Summe'), pos(2, 3, 2, 'NSumme')]), hint('<b>Summe</b> sollte mit der Argumentstelle von <b>NSumme</b>, oder <b>Summe</b> sollte mit der richtigen Variable im Term <b>NSumme</b> koreferieren.'), highlighted(['gehaeltersumme1([], Summe).<br>', 'gehaeltersumme1(Liste, Summe):-Liste=[Name, Gehalt|Rest], NSumme is  <b><font color=red>Summe+Gehalt</b></font> , gehaeltersumme1(Rest,  <b><font color=red>NSumme</b></font> ).<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(2, 2, 1, 'NSumme'), pos(2, 0, 2, 'Summe')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>NSumme</b> und <b>Summe</b>'), highlighted(['gehaeltersumme1([], Summe).<br>', 'gehaeltersumme1(Liste,  <b><font color=red>Summe</b></font> ):-Liste=[Name, Gehalt|Rest],  <b><font color=red>NSumme</b></font> is Summe+Gehalt, gehaeltersumme1(Rest, NSumme).<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 1, 2, 'Name')]), hint('<b>Name</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['gehaeltersumme1([], Summe).<br>', 'gehaeltersumme1(Liste, Summe):-Liste= <b><font color=red>[Name, Gehalt|Rest]</b></font> , NSumme is Summe+Gehalt, gehaeltersumme1(Rest, NSumme).<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 2, 2, 'Summe')]), hint('<b>Summe</b> muss gebunden sein, bevor das Kalkulationssubziel <b>NSumme is Summe+Gehalt</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['gehaeltersumme1([], Summe).<br>', 'gehaeltersumme1(Liste, Summe):-Liste=[Name, Gehalt|Rest], NSumme is  <b><font color=red>Summe+Gehalt</b></font> , gehaeltersumme1(Rest, NSumme).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 2, 'Summe')]), hint('<b>Summe</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['gehaeltersumme1([],  <b><font color=red>Summe</b></font> ).<br>', 'gehaeltersumme1(Liste, Summe):-Liste=[Name, Gehalt|Rest], NSumme is Summe+Gehalt, gehaeltersumme1(Rest, NSumme).<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer12, 38, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([Name, Zahl|[]], Zahl).\n summe([Name,Zahl|Tail], R):- summe(Tail, R1), R is R1+Zahl.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>Zahl</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['summe([Name, Zahl],  <b><font color=red>Zahl</b></font> ).<br>', 'summe([Name, Zahl|Tail], R):-summe(Tail, R1), R is R1+Zahl.<br>'])), error(id(s7g1), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>[Name, Zahl]</b> sollte eine leere Liste sein.'), highlighted(['summe( <b><font color=red>[Name, Zahl]</b></font> , Zahl).<br>', 'summe([Name, Zahl|Tail], R):-summe(Tail, R1), R is R1+Zahl.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'Name')]), hint('<b>Name</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['summe([Name, Zahl], Zahl).<br>', 'summe( <b><font color=red>[Name, Zahl|Tail]</b></font> , R):-summe(Tail, R1), R is R1+Zahl.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(1, 0, 1, 'Name')]), hint('<b>Name</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['summe( <b><font color=red>[Name, Zahl]</b></font> , Zahl).<br>', 'summe([Name, Zahl|Tail], R):-summe(Tail, R1), R is R1+Zahl.<br>']))], [ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt], '').
test(exer12, 39, [declaration(sp, g_summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')]), declaration(sp, addiere, g_summe/2, accu, [d('A1', +, list, 'Gehaltsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, g_summe, 2, g_summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, g_summe, 2, g_summe/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, addiere, 3, g_summe/2, accu, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg2', 2, -, number, ['Gehaltsumme,Summe aller Gehälter']), predicatedec(sp, addiere, 3, g_summe/2, accu, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, addiere, 3, g_summe/2, accu, 'A2', 2, +, number, accu))], 'g_summe(GListe,Summe):-addiere(GListe,0,Summe).\n addiere([],R,R).\n addiere([_,G|L],T,R):-G1 is G+T, addiere(L,G1, R).\n', [], [], [], korrekt).
test(exer12, 40, [declaration(sp, g_summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')]), declaration(sp, g_summe, g_summe/2, accu, [d('A1', +, list, 'Gehaltsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, g_summe, 2, g_summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, g_summe, 2, g_summe/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, g_summe, 3, g_summe/2, accu, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg2', 2, -, number, ['Gehaltsumme,Summe aller Gehälter']), predicatedec(sp, g_summe, 3, g_summe/2, accu, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, g_summe, 3, g_summe/2, accu, 'A2', 2, +, number, accu))], 'g_summe(GListe, Summe):-g_summe(GListe, 0, Summe).\n g_summe([], Akku, Akku).\n g_summe([[_,Gehalt]|Rest], Akku, Summe):-Akku2 is Akku+Gehalt, g_summe(Rest, Akku2, Summe).\n', [error(id(s1f), penalty(0.5), poslist([pos(3, 0, 1, [['_', 'Gehalt']|'Rest'])]), hint('<b>[[_, Gehalt]|Rest]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Name, Gehalt|Rest]'), highlighted(['g_summe(GListe, Summe):-g_summe(GListe, 0, Summe).<br>', 'g_summe([], Akku, Akku).<br>', 'g_summe( <b><font color=red>[[_, Gehalt]|Rest]</b></font> , Akku, Summe):-Akku2 is Akku+Gehalt, g_summe(Rest, Akku2, Summe).<br>']))], [ok], [korrekt], '').
test(exer12, 41, [declaration(sp, gehaltssumme, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehaltssumme, 2, gehaltssumme/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehaltssumme, 2, gehaltssumme/2, main, 'A2', 2, -, number, 'Summe'))], 'gehaltssumme([], 0).\n gehaltssumme([_],0).\n gehaltssumme([H|[HT|T]],Summe):-gehaltssumme(T,S),Summe is HT+S.\n', [error(id(s7i), penalty(0.01), poslist([pos(2)]), hint('<b>gehaltssumme/2</b>: Die Prädikatsdefinition hat mehr Rekursionsabschlüsse als erforderlich.'), highlighted(['gehaltssumme([], 0).<br>', ' <b><font color=red>gehaltssumme([_], 0)</b></font> .<br>', 'gehaltssumme([H, HT|T], Summe):-gehaltssumme(T, S), Summe is HT+S.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['gehaltssumme([], 0).<br>', 'gehaltssumme([_], 0).<br>', 'gehaltssumme( <b><font color=red>[H, HT|T]</b></font> , Summe):-gehaltssumme(T, S), Summe is HT+S.<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer12, 42, [declaration(sp, gehalt_sum, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehalt_sum, 2, gehalt_sum/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehalt_sum, 2, gehalt_sum/2, main, 'A2', 2, -, number, 'Summe'))], 'gehalt_sum([],0).\n gehalt_sum([Head, Head2|Tail], X):-gehalt_sum(Tail, X1), X is Head2 +X1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'Head')]), hint('<b>Head</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['gehalt_sum([], 0).<br>', 'gehalt_sum( <b><font color=red>[Head, Head2|Tail]</b></font> , X):-gehalt_sum(Tail, X1), X is Head2+X1.<br>']))], [ok], [korrekt], '').
test(exer12, 43, [declaration(sp, addlist, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, addlist, 2, addlist/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, addlist, 2, addlist/2, main, 'A2', 2, -, number, 'Summe'))], 'addlist([], 0).\n addlist([_,K|Rest], E):-addlist(Rest, Ezw), E is Ezw+K.\n', [], [], [], korrekt).
test(exer12, 44, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([_,X], X).\n summe([_,X|Rest], Y):-summe(Rest, X1), Y is X+X1.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>X</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['summe([_, X],  <b><font color=red>X</b></font> ).<br>', 'summe([_, X|Rest], Y):-summe(Rest, X1), Y is X+X1.<br>'])), error(id(s7g1), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>[_, X]</b> sollte eine leere Liste sein.'), highlighted(['summe( <b><font color=red>[_, X]</b></font> , X).<br>', 'summe([_, X|Rest], Y):-summe(Rest, X1), Y is X+X1.<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer12, 45, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')]), declaration(sp, summeaccu, summe/2, accu, [d('A1', +, list, 'Gehaltsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/2, accu, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summeaccu, 3, summe/2, accu, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/3, accu, 'Arg2', 2, -, number, ['Gehaltsumme,Summe aller Gehälter']), predicatedec(sp, summeaccu, 3, summe/2, accu, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysumaccu, 3, tpsalarysum/3, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, summeaccu, 3, summe/2, accu, 'A2', 2, +, number, accu))], 'summe(L,G):-summeaccu(L,0,G).\n summeaccu([],S,S).\n summeaccu([N,G|Rest],S,E):-S1 is S+G, summeaccu(Rest,S1,E).\n', [error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'N')]), hint('<b>N</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['summe(L, G):-summeaccu(L, 0, G).<br>', 'summeaccu([], S, S).<br>', 'summeaccu( <b><font color=red>[N, G|Rest]</b></font> , S, E):-S1 is S+G, summeaccu(Rest, S1, E).<br>']))], [ok], [korrekt], '').
test(exer12, 46, [declaration(sp, gehaltssumme, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehaltssumme, 2, gehaltssumme/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehaltssumme, 2, gehaltssumme/2, main, 'A2', 2, -, number, 'Summe'))], 'gehaltssumme([], 0).\n gehaltssumme([_,G|R], S):-gehaltssumme(R, S1), S is S1+G.\n', [], [], [], korrekt).
test(exer12, 47, [declaration(sp, gehaelter, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Gehaltsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehaelter, 2, gehaelter/2, main, 'A2', 2, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehaelter, 2, gehaelter/2, main, 'A1', 1, -, number, 'Summe'))], 'gehaelter(0,[]).\n gehaelter(Summe,Liste):-Liste=[K1|R1], R1=[K2|R2], gehaelter(Summe,R2),Summe is Summe1+K2.\n', [error(id(s1e), penalty(0.5), poslist([pos(2, 1, 2, ['K1'|'R1'])]), hint('<b>[K1|R1]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Name, Gehalt|Rest]'), highlighted(['gehaelter(0, []).<br>', 'gehaelter(Summe, Liste):-Liste= <b><font color=red>[K1|R1]</b></font> , R1=[K2|R2], gehaelter(Summe, R2), Summe is Summe1+K2.<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 4, 2, 'Summe1'), pos(2, 3, 1, 'Summe')]), hint('<b>Summe1</b> sollte mit der Argumentstelle von <b>Summe</b>, oder <b>Summe1</b> sollte mit der richtigen Variable im Term <b>Summe</b> koreferieren.'), highlighted(['gehaelter(0, []).<br>', 'gehaelter(Summe, Liste):-Liste=[K1|R1], R1=[K2|R2], gehaelter( <b><font color=red>Summe</b></font> , R2), Summe is  <b><font color=red>Summe1+K2</b></font> .<br>'])), error(id(s4a1), penalty(0.5), poslist([pos(2, 0, 1, 'Summe'), pos(2, 3, 1, 'Summe')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['gehaelter(0, []).<br>', 'gehaelter( <b><font color=red>Summe</b></font> , Liste):-Liste=[K1|R1], R1=[K2|R2], gehaelter( <b><font color=red>Summe</b></font> , R2), Summe is Summe1+K2.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 1, 2, 'K1')]), hint('<b>K1</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['gehaelter(0, []).<br>', 'gehaelter(Summe, Liste):-Liste= <b><font color=red>[K1|R1]</b></font> , R1=[K2|R2], gehaelter(Summe, R2), Summe is Summe1+K2.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 4, 2, 'Summe1')]), hint('<b>Summe1</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['gehaelter(0, []).<br>', 'gehaelter(Summe, Liste):-Liste=[K1|R1], R1=[K2|R2], gehaelter(Summe, R2), Summe is  <b><font color=red>Summe1+K2</b></font> .<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 4, 2, 'Summe1')]), hint('<b>Summe1</b> muss gebunden sein, bevor das Kalkulationssubziel <b>Summe is Summe1+K2</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['gehaelter(0, []).<br>', 'gehaelter(Summe, Liste):-Liste=[K1|R1], R1=[K2|R2], gehaelter(Summe, R2), Summe is  <b><font color=red>Summe1+K2</b></font> .<br>']))], [ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer12, 48, [declaration(sp, gehalt, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehalt, 2, gehalt/2, main, 'A2', 2, -, number, 'Summe'))], 'gehalt([], 0).\n gehalt([K1,K2|R1], E):-gehalt(R1, E1), E is K2+E1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'K1')]), hint('<b>K1</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['gehalt([], 0).<br>', 'gehalt( <b><font color=red>[K1, K2|R1]</b></font> , E):-gehalt(R1, E1), E is K2+E1.<br>']))], [ok], [korrekt], '').
test(exer12, 49, [declaration(sp, rechne, [d('A2', -, number, 'Summe'), d('A1', +, list, 'Gehaltsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, rechne, 2, rechne/2, main, 'A2', 2, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, rechne, 2, rechne/2, main, 'A1', 1, -, number, 'Summe'))], 'rechne(E,L):-L=[Kopf|Rest],Kopf=E.\n rechne(E,L):-L=[Kopf/2|Rest].\n', [error(id(pre3a), penalty(0.3), poslist([pos(1)]), hint('Sie haben diese Klausel als Rekursionsabschluss gewählt. Jedoch fehlt eine dazugehörige Rekursionsklausel, oder diese Klausel ist kein Rekursionsabschluss.'), highlighted([' <b><font color=red>rechne(E, L)</b></font> :- <b><font color=red>L=[Kopf|Rest]</b></font> ,  <b><font color=red>Kopf=E</b></font> .<br>', 'rechne(E, L):-L=[Kopf/2|Rest].<br>'])), error(id(pre3b), penalty(0.3), poslist([pos(2)]), hint('Sie haben diese Klausel als Rekursionsklausel gewählt, jedoch existiert kein rekursives Subziel in dieser Klausel.'), highlighted(['rechne(E, L):-L=[Kopf|Rest], Kopf=E.<br>', ' <b><font color=red>rechne(E, L)</b></font> :- <b><font color=red>L=[Kopf/2|Rest]</b></font> .<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer12, 50, [declaration(sp, sumgehalt, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, sumgehalt, 2, sumgehalt/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, sumgehalt, 2, sumgehalt/2, main, 'A2', 2, -, number, 'Summe'))], 'sumgehalt([],0).\n sumgehalt([Name,Gehalt|Rest], Summe):-sumgehalt(Rest,Sum1), Summe is Sum1+Gehalt.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'Name')]), hint('<b>Name</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['sumgehalt([], 0).<br>', 'sumgehalt( <b><font color=red>[Name, Gehalt|Rest]</b></font> , Summe):-sumgehalt(Rest, Sum1), Summe is Sum1+Gehalt.<br>']))], [ok], [korrekt], '').
test(exer12, 51, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([], 0).\n summe([_,Gehalt|Tail], R):-summe(Tail, R1), R is R1+ Gehalt.\n', [], [], [], korrekt).
test(exer12, 52, [declaration(sp, length, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Liste')])], _G25394359, [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltssumme', 'Summe aller Gehälter']), predicatedec(sp, length, 2, length/2, main, 'A1', 1, -, number, 'Summe')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank', 'Gehaltsliste']), predicatedec(sp, length, 2, length/2, main, 'A2', 2, +, list, 'Liste'))], 'length(Gehalt, []).\n length(Gehalt, [_,Rest]):-length(Gehalt1, Rest), Gehalt is Name.\n', [error(id(d1a), penalty(0.1), poslist([pred, length]), hint('<b>length</b> ist der Name eines Systemprädikats und darf nicht verwendet werden.'))], [ok], [korrekt], '').
test(exer12, 53, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([_,X], X).\n summe(X,Y):- X=[Kopf1, Kopf2|Rest], summe(Rest, Y1), Y is Kopf2 +Y1.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>X</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['summe([_, X],  <b><font color=red>X</b></font> ).<br>', 'summe(X, Y):-X=[Kopf1, Kopf2|Rest], summe(Rest, Y1), Y is Kopf2+Y1.<br>'])), error(id(s7g1), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>[_, X]</b> sollte eine leere Liste sein.'), highlighted(['summe( <b><font color=red>[_, X]</b></font> , X).<br>', 'summe(X, Y):-X=[Kopf1, Kopf2|Rest], summe(Rest, Y1), Y is Kopf2+Y1.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 1, 2, 'Kopf1')]), hint('<b>Kopf1</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['summe([_, X], X).<br>', 'summe(X, Y):-X= <b><font color=red>[Kopf1, Kopf2|Rest]</b></font> , summe(Rest, Y1), Y is Kopf2+Y1.<br>']))], [ok, ok, ok], [korrekt, korrekt, korrekt], '').
test(exer12, 54, [declaration(sp, gehaltssumme, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [recursivecase, basecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, gehaltssumme, 2, gehaltssumme/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, gehaltssumme, 2, gehaltssumme/2, main, 'A2', 2, -, number, 'Summe'))], 'gehaltssumme(Gehaltsliste, Bisher):-[_,X|Rest], Y is X+Bisher, gehaltssumme(Rest, Y).\n gehaltssumme([], X).\n', [error(id(g7), penalty(0.5), poslist([pos(1, 1)]), hint('. / 2: Dieses Subziel ist unbekannt.'), highlighted(['gehaltssumme(Gehaltsliste, Bisher):- <b><font color=red>[_, X|Rest]</b></font> , Y is X+Bisher, gehaltssumme(Rest, Y).<br>', 'gehaltssumme([], X).<br>']))], [ok], [korrekt], '').
test(exer12, 55, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([], Erg).\n summe([_,Gehalt|Rest], Erg):-Erg is Erg1+Gehalt, summe(Rest, Erg1).\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>Erg</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['summe([],  <b><font color=red>Erg</b></font> ).<br>', 'summe([_, Gehalt|Rest], Erg):-Erg is Erg1+Gehalt, summe(Rest, Erg1).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['summe([], Erg).<br>', 'summe([_, Gehalt|Rest], Erg):- <b><font color=red>Erg is Erg1+Gehalt</b></font> ,  <b><font color=red>summe(Rest, Erg1)</b></font> .<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 1, 2, 'Erg1')]), hint('<b>Erg1</b> muss gebunden sein, bevor das Kalkulationssubziel <b>Erg is Erg1+Gehalt</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['summe([], Erg).<br>', 'summe([_, Gehalt|Rest], Erg):-Erg is  <b><font color=red>Erg1+Gehalt</b></font> , summe(Rest, Erg1).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 2, 'Erg')]), hint('<b>Erg</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['summe([],  <b><font color=red>Erg</b></font> ).<br>', 'summe([_, Gehalt|Rest], Erg):-Erg is Erg1+Gehalt, summe(Rest, Erg1).<br>']))], [ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt], '').
test(exer12, 56, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([], R).\n summe([H|T], R1):-summe(T,R1), mod(length(H))=0, R1 is R+H.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>R</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['summe([],  <b><font color=red>R</b></font> ).<br>', 'summe([H|T], R1):-summe(T, R1), mod(length(H))=0, R1 is R+H.<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, ['H'|'T'])]), hint('<b>[H|T]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Name, Gehalt|Rest]'), highlighted(['summe([], R).<br>', 'summe( <b><font color=red>[H|T]</b></font> , R1):-summe(T, R1), mod(length(H))=0, R1 is R+H.<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 3, 2, 'R'), pos(2, 0, 1, ['H'|'T'])]), hint('<b>R</b> sollte mit der Argumentstelle von <b>[H|T]</b>, oder <b>R</b> sollte mit der richtigen Variable im Term <b>[H|T]</b> koreferieren.'), highlighted(['summe([], R).<br>', 'summe( <b><font color=red>[H|T]</b></font> , R1):-summe(T, R1), mod(length(H))=0, R1 is  <b><font color=red>R+H</b></font> .<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 3, 2, 'H'), pos(2, 1, 2, 'R1')]), hint('<b>H</b> sollte mit der Argumentstelle von <b>R1</b>, oder <b>H</b> sollte mit der richtigen Variable im Term <b>R1</b> koreferieren.'), highlighted(['summe([], R).<br>', 'summe([H|T], R1):-summe(T,  <b><font color=red>R1</b></font> ), mod(length(H))=0, R1 is  <b><font color=red>R+H</b></font> .<br>'])), error(id(s4a1), penalty(0.5), poslist([pos(2, 0, 2, 'R1'), pos(2, 1, 2, 'R1')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['summe([], R).<br>', 'summe([H|T],  <b><font color=red>R1</b></font> ):-summe(T,  <b><font color=red>R1</b></font> ), mod(length(H))=0, R1 is R+H.<br>'])), error(id(s4g), penalty(0.1), poslist([pos(2, 2, 1, mod(length('H'))), pos(2, 2, 2, 0)]), hint('<b>[mod(length(H)), 0]</b>: Das Unifikationssubziel dieser Variablen/Terme ist überflüssig.'), highlighted(['summe([], R).<br>', 'summe([H|T], R1):-summe(T, R1),  <b><font color=red>mod(length(H))</b></font> = <b><font color=red>0</b></font> , R1 is R+H.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 3, 2, 'R')]), hint('<b>R</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['summe([], R).<br>', 'summe([H|T], R1):-summe(T, R1), mod(length(H))=0, R1 is  <b><font color=red>R+H</b></font> .<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 3, 2, 'R')]), hint('<b>R</b> muss gebunden sein, bevor das Kalkulationssubziel <b>R1 is R+H</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['summe([], R).<br>', 'summe([H|T], R1):-summe(T, R1), mod(length(H))=0, R1 is  <b><font color=red>R+H</b></font> .<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 2, 'R')]), hint('<b>R</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['summe([],  <b><font color=red>R</b></font> ).<br>', 'summe([H|T], R1):-summe(T, R1), mod(length(H))=0, R1 is R+H.<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer12, 57, [declaration(sp, geh, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Gehaltsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, geh, 2, geh/2, main, 'A2', 2, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, geh, 2, geh/2, main, 'A1', 1, -, number, 'Summe'))], 'geh([], []).\n geh(Sum,[Kopf|Ende]):-Sum is Sum1+[Ende|Ende1], geh(Sum1, End1).\n', [error(id(pre2e), penalty(0.3), poslist([pos(1, 0, 1, [])]), hint('Der Typ von <b>[]</b> stimmt nicht mit der Deklaration überein. Es sollte eine Zahl sein.'), highlighted(['geh( <b><font color=red>[]</b></font> , []).<br>', 'geh(Sum, [Kopf|Ende]):-Sum is Sum1+[Ende|Ende1], geh(Sum1, End1).<br>']))], [ok], [korrekt], '').
test(exer12, 58, [declaration(sp, summe, [d('A1', +, list, 'Gehaltsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg1', 1, +, list, ['Gehaltsdatenbank, Gehaltsliste']), predicatedec(sp, summe, 2, summe/2, main, 'A1', 1, +, list, 'Gehaltsliste')), map(dec, predicatedec(tp, tpsalarysum, 2, tpsalarysum/2, main, 'Arg2', 2, -, number, ['Gehaltsumme, Summe aller Gehälter']), predicatedec(sp, summe, 2, summe/2, main, 'A2', 2, -, number, 'Summe'))], 'summe([_,B],B).\n summe([_,B|C], X):-X is B+Z, summe(C,Z).\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>B</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['summe([_, B],  <b><font color=red>B</b></font> ).<br>', 'summe([_, B|C], X):-X is B+Z, summe(C, Z).<br>'])), error(id(s7g1), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>[_, B]</b> sollte eine leere Liste sein.'), highlighted(['summe( <b><font color=red>[_, B]</b></font> , B).<br>', 'summe([_, B|C], X):-X is B+Z, summe(C, Z).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['summe([_, B], B).<br>', 'summe([_, B|C], X):- <b><font color=red>X is B+Z</b></font> ,  <b><font color=red>summe(C, Z)</b></font> .<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 1, 2, 'Z')]), hint('<b>Z</b> muss gebunden sein, bevor das Kalkulationssubziel <b>X is B+Z</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['summe([_, B], B).<br>', 'summe([_, B|C], X):-X is  <b><font color=red>B+Z</b></font> , summe(C, Z).<br>']))], [ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt], '').
test(exer13, 1, [declaration(sp, zaehlen, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, zaehlen, 2, zaehlen/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, zaehlen, 2, zaehlen/2, main, 'A2', 2, -, number, 'Summe'))], 'zaehlen([],[]).\n zaehlen([H|T], X):-X is X+1, zaehlen([T],X).\n', [error(id(pre2e), penalty(0.3), poslist([pos(1, 0, 2, [])]), hint('Der Typ von <b>[]</b> stimmt nicht mit der Deklaration überein. Es sollte eine Zahl sein.'), highlighted(['zaehlen([],  <b><font color=red>[]</b></font> ).<br>', 'zaehlen([H|T], X):-X is X+1, zaehlen([T], X).<br>']))], [ok], [korrekt], '').
test(exer13, 2, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')]), declaration(sp, anz, anzahl/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anz, 3, anzahl/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anz, 3, anzahl/2, accu, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, anz, 3, anzahl/2, accu, 'A2', 2, +, number, accu))], 'anzahl(Liste, Zahl):-anz(Liste, 0, Zahl).\n anz([], Acc, Acc).\n anz([_|Tail], Acc, Zahl):- Acc2 is Acc +1, anz(Tail, Acc2, Zahl).\n', [], [], [], korrekt).
test(exer13, 3, [declaration(sp, fahrzeug, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, fahrzeug, 2, fahrzeug/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, fahrzeug, 2, fahrzeug/2, main, 'A2', 2, -, number, 'Summe'))], 'fahrzeug([],0).\n fahrzeug([K|R], N):-fahrzeug(R,N1), N is N1+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'K')]), hint('<b>K</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['fahrzeug([], 0).<br>', 'fahrzeug( <b><font color=red>[K|R]</b></font> , N):-fahrzeug(R, N1), N is N1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 4, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe'))], 'anzahl([],0).\n anzahl([_|Rest], Anzahl):-Anzahl is Anzahl1+1, anzahl(Rest, Anzahl1).\n', [error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['anzahl([], 0).<br>', 'anzahl([_|Rest], Anzahl):- <b><font color=red>Anzahl is Anzahl1+1</b></font> ,  <b><font color=red>anzahl(Rest, Anzahl1)</b></font> .<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 1, 2, 'Anzahl1')]), hint('<b>Anzahl1</b> muss gebunden sein, bevor das Kalkulationssubziel <b>Anzahl is Anzahl1+1</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['anzahl([], 0).<br>', 'anzahl([_|Rest], Anzahl):-Anzahl is  <b><font color=red>Anzahl1+1</b></font> , anzahl(Rest, Anzahl1).<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer13, 5, [declaration(sp, anzahl, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, -, number, 'Summe'))], 'anzahl(Z, Liste):-Liste=[], Z is 0.\n anzahl(Z, Liste):-Liste=[Kopf|Rest], anzahl(Z1, Rest), Z is Z1+1.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>Z</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['anzahl( <b><font color=red>Z</b></font> , Liste):-Liste=[], Z is 0.<br>', 'anzahl(Z, Liste):-Liste=[Kopf|Rest], anzahl(Z1, Rest), Z is Z1+1.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 1, 2, 'Kopf')]), hint('<b>Kopf</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['anzahl(Z, Liste):-Liste=[], Z is 0.<br>', 'anzahl(Z, Liste):-Liste= <b><font color=red>[Kopf|Rest]</b></font> , anzahl(Z1, Rest), Z is Z1+1.<br>'])), error(id(s5b), penalty(0.1), poslist([pos(1, 2)]), hint('<b>Z is 0</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['anzahl(Z, Liste):-Liste=[],  <b><font color=red>Z is 0</b></font> .<br>', 'anzahl(Z, Liste):-Liste=[Kopf|Rest], anzahl(Z1, Rest), Z is Z1+1.<br>']))], [nok, ok, ok], ['Z ist 0', korrekt, korrekt], '').
test(exer13, 6, [declaration(sp, splength, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, splength, 2, splength/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, splength, 2, splength/2, main, 'A1', 1, -, number, 'Summe'))], 'splength(N,L):-L=[], N is 0.\n splength(N,L):-L=[Kopf,Rest], N is N1+1.\n', [error(id(pre3a), penalty(0.3), poslist([pos(1)]), hint('Sie haben diese Klausel als Rekursionsabschluss gewählt. Jedoch fehlt eine dazugehörige Rekursionsklausel, oder diese Klausel ist kein Rekursionsabschluss.'), highlighted([' <b><font color=red>splength(N, L)</b></font> :- <b><font color=red>L=[]</b></font> ,  <b><font color=red>N is 0</b></font> .<br>', 'splength(N, L):-L=[Kopf, Rest], N is N1+1.<br>'])), error(id(pre3b), penalty(0.3), poslist([pos(2)]), hint('Sie haben diese Klausel als Rekursionsklausel gewählt, jedoch existiert kein rekursives Subziel in dieser Klausel.'), highlighted(['splength(N, L):-L=[], N is 0.<br>', ' <b><font color=red>splength(N, L)</b></font> :- <b><font color=red>L=[Kopf, Rest]</b></font> ,  <b><font color=red>N is N1+1</b></font> .<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer13, 7, [declaration(sp, splength, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, splength, 2, splength/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, splength, 2, splength/2, main, 'A1', 1, -, number, 'Summe'))], 'splength(0,[]).\n splength(Bestand, [_|Rest]):-splength(Bestand1, Rest), Bestand is Bestand1 +1.\n', [], [], [], korrekt).
test(exer13, 8, [declaration(sp, zaehlen, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, zaehlen, 2, zaehlen/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, zaehlen, 2, zaehlen/2, main, 'A2', 2, -, number, 'Summe'))], 'zaehlen(Bestandsliste, Anzahl):- Bestandsliste=[], Anzahl is 0.\n zaehlen(Bestandsliste, Anzahl):- Bestandsliste=[_|Rest], zaehlen(Rest, Anz), Anzahl is Anz+1.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>Anzahl</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['zaehlen(Bestandsliste,  <b><font color=red>Anzahl</b></font> ):-Bestandsliste=[], Anzahl is 0.<br>', 'zaehlen(Bestandsliste, Anzahl):-Bestandsliste=[_|Rest], zaehlen(Rest, Anz), Anzahl is Anz+1.<br>'])), error(id(s5b), penalty(0.1), poslist([pos(1, 2)]), hint('<b>Anzahl is 0</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['zaehlen(Bestandsliste, Anzahl):-Bestandsliste=[],  <b><font color=red>Anzahl is 0</b></font> .<br>', 'zaehlen(Bestandsliste, Anzahl):-Bestandsliste=[_|Rest], zaehlen(Rest, Anz), Anzahl is Anz+1.<br>']))], [nok, ok], ['Anzahl ist 0', korrekt], '').
test(exer13, 10, [declaration(sp, wieviel, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, wieviel, 2, wieviel/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, wieviel, 2, wieviel/2, main, 'A1', 1, -, number, 'Summe'))], 'wieviel(0,[]).\n wieviel(Anzahl, [H|Rest]):-wieviel(Anzahl1, Rest), Anzahl is Anzahl1+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 2, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['wieviel(0, []).<br>', 'wieviel(Anzahl,  <b><font color=red>[H|Rest]</b></font> ):-wieviel(Anzahl1, Rest), Anzahl is Anzahl1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 11, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')]), declaration(sp, length, anzahl/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, length, 3, anzahl/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, length, 3, anzahl/2, accu, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, length, 3, anzahl/2, accu, 'A2', 2, +, number, accu))], 'anzahl(Liste, Zahl):-length(Liste, 0, Zahl).\n length([],A,A).\n length([_,T],Acc, E):-Acc1 is Acc+1, length(T,Acc1, E).\n', [error(id(s1f), penalty(0.5), poslist([pos(3, 0, 1, ['_', 'T'])]), hint('<b>[_, T]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Auto|Rest]'), highlighted(['anzahl(Liste, Zahl):-length(Liste, 0, Zahl).<br>', 'length([], A, A).<br>', 'length( <b><font color=red>[_, T]</b></font> , Acc, E):-Acc1 is Acc+1, length(T, Acc1, E).<br>']))], [ok], [korrekt], '').
test(exer13, 12, [declaration(sp, bestand, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bestand, 2, bestand/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, bestand, 2, bestand/2, main, 'A2', 2, -, number, 'Summe'))], 'bestand([],0).\n bestand([H|T], N):-N is NT+1, bestand(T,NT).\n', [error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['bestand([], 0).<br>', 'bestand([H|T], N):- <b><font color=red>N is NT+1</b></font> ,  <b><font color=red>bestand(T, NT)</b></font> .<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['bestand([], 0).<br>', 'bestand( <b><font color=red>[H|T]</b></font> , N):-N is NT+1, bestand(T, NT).<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 1, 2, 'NT')]), hint('<b>NT</b> muss gebunden sein, bevor das Kalkulationssubziel <b>N is NT+1</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['bestand([], 0).<br>', 'bestand([H|T], N):-N is  <b><font color=red>NT+1</b></font> , bestand(T, NT).<br>']))], [ok, ok, ok], [korrekt, korrekt, korrekt], '').
test(exer13, 13, [declaration(sp, bestand, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bestand, 2, bestand/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, bestand, 2, bestand/2, main, 'A2', 2, -, number, 'Summe'))], 'bestand([], Anzahl).\n bestand([Kopf|Rest], Anzahl):-Restanzahl is Anzahl+1, bestand(Rest, Restanzahl).\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>Anzahl</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['bestand([],  <b><font color=red>Anzahl</b></font> ).<br>', 'bestand([Kopf|Rest], Anzahl):-Restanzahl is Anzahl+1, bestand(Rest, Restanzahl).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['bestand([], Anzahl).<br>', 'bestand([Kopf|Rest], Anzahl):- <b><font color=red>Restanzahl is Anzahl+1</b></font> ,  <b><font color=red>bestand(Rest, Restanzahl)</b></font> .<br>'])), error(id(s5a), penalty(0.1), poslist([pos(2, 0, 2, 'Anzahl')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Anzahl</b> fehlt.'), highlighted(['bestand([], Anzahl).<br>', 'bestand([Kopf|Rest],  <b><font color=red>Anzahl</b></font> ):-Restanzahl is Anzahl+1, bestand(Rest, Restanzahl).<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 1, 2, 'Anzahl'), pos(2, 2, 2, 'Restanzahl')]), hint('<b>Anzahl</b> sollte mit der Argumentstelle von <b>Restanzahl</b>, oder <b>Anzahl</b> sollte mit der richtigen Variable im Term <b>Restanzahl</b> koreferieren.'), highlighted(['bestand([], Anzahl).<br>', 'bestand([Kopf|Rest], Anzahl):-Restanzahl is  <b><font color=red>Anzahl+1</b></font> , bestand(Rest,  <b><font color=red>Restanzahl</b></font> ).<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(2, 1, 1, 'Restanzahl'), pos(2, 0, 2, 'Anzahl')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>Restanzahl</b> und <b>Anzahl</b>'), highlighted(['bestand([], Anzahl).<br>', 'bestand([Kopf|Rest],  <b><font color=red>Anzahl</b></font> ):- <b><font color=red>Restanzahl</b></font> is Anzahl+1, bestand(Rest, Restanzahl).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'Kopf')]), hint('<b>Kopf</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['bestand([], Anzahl).<br>', 'bestand( <b><font color=red>[Kopf|Rest]</b></font> , Anzahl):-Restanzahl is Anzahl+1, bestand(Rest, Restanzahl).<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 1, 2, 'Anzahl')]), hint('<b>Anzahl</b> muss gebunden sein, bevor das Kalkulationssubziel <b>Restanzahl is Anzahl+1</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['bestand([], Anzahl).<br>', 'bestand([Kopf|Rest], Anzahl):-Restanzahl is  <b><font color=red>Anzahl+1</b></font> , bestand(Rest, Restanzahl).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 2, 'Anzahl')]), hint('<b>Anzahl</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['bestand([],  <b><font color=red>Anzahl</b></font> ).<br>', 'bestand([Kopf|Rest], Anzahl):-Restanzahl is Anzahl+1, bestand(Rest, Restanzahl).<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, 'korrekt - wieso ist Anzahl in der Praedikatsdeklaration nicht rot gefaerbt?', korrekt, korrekt, korrekt, korrekt], '').
test(exer13, 14, [declaration(sp, splength, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, splength, 2, bestand/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, splength, 2, bestand/2, main, 'A2', 2, -, number, 'Summe'))], 'splength([],0).\n splength([_|R], Laenge):-splength(R, Laenge1), Laenge is Laenge1 +1.\n', [], [], [], korrekt).
test(exer13, 15, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe'))], 'anzahl([],0).\n anzahl([_|T], X):- anzahl(T,X1), X is X1+1.\n', [], [], [], korrekt).
test(exer13, 16, [declaration(sp, anzahl, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, -, number, 'Summe'))], 'anzahl(X,Y):- N is 0, Y=[].\n anzahl(X, [_|R]):- anzahl(X1,R), X is X1+1.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>X</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['anzahl( <b><font color=red>X</b></font> , Y):-N is 0, Y=[].<br>', 'anzahl(X, [_|R]):-anzahl(X1, R), X is X1+1.<br>'])), error(id(s5b), penalty(0.1), poslist([pos(1, 1)]), hint('<b>N is 0</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['anzahl(X, Y):- <b><font color=red>N is 0</b></font> , Y=[].<br>', 'anzahl(X, [_|R]):-anzahl(X1, R), X is X1+1.<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 1, 'X')]), hint('<b>X</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['anzahl( <b><font color=red>X</b></font> , Y):-N is 0, Y=[].<br>', 'anzahl(X, [_|R]):-anzahl(X1, R), X is X1+1.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(1, 1, 1, 'N')]), hint('<b>N</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['anzahl(X, Y):- <b><font color=red>N</b></font> is 0, Y=[].<br>', 'anzahl(X, [_|R]):-anzahl(X1, R), X is X1+1.<br>']))], [ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt], '').
test(exer13, 17, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe'))], 'anzahl([],0).\n anzahl([_|Rest], A):-anzahl(Rest, A1), A is A1+1.\n', [], [], [], korrekt).
test(exer13, 18, [declaration(sp, anz, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')]), declaration(sp, hp_anz, anz/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [basecase, recursivecase, nonrecursive], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anz, 2, anz/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anz, 2, anz/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, hp_anz, 3, anz/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, hp_anz, 3, anz/2, accu, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, hp_anz, 3, anz/2, accu, 'A2', 2, +, number, accu))], 'hp_anz([], Anzahl, Anzahl).\n hp_anz([H|T], Acc, Anzahl):-Acc1 is Acc+1, hp_anz(T,Acc1, Anzahl).\n anz(Bestand, Anzahl):-hp_anz(Bestand, 0, Anzahl).\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['hp_anz([], Anzahl, Anzahl).<br>', 'hp_anz( <b><font color=red>[H|T]</b></font> , Acc, Anzahl):-Acc1 is Acc+1, hp_anz(T, Acc1, Anzahl).<br>', 'anz(Bestand, Anzahl):-hp_anz(Bestand, 0, Anzahl).<br>']))], [ok], [korrekt], '').
test(exer13, 19, [declaration(sp, lang, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, lang, 2, lang/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, lang, 2, lang/2, main, 'A1', 1, -, number, 'Summe'))], 'lang(0,[]).\n lang(N, [_|R]):-lang(N1,R), N is N1+1.\n', [], [], [], korrekt).
test(exer13, 20, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe'))], 'anzahl([],0).\n anzahl([H|T], E):- anzahl(T,E1), E is E1+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['anzahl([], 0).<br>', 'anzahl( <b><font color=red>[H|T]</b></font> , E):-anzahl(T, E1), E is E1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 21, [declaration(sp, autos, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, autos, 2, autos/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, autos, 2, autos/2, main, 'A2', 2, -, number, 'Summe'))], 'autos([],0).\n autos([_|Rest], Anzahl):-autos(Rest, Anzahl1), Anzahl is Anzahl1+1.\n', [], [], [], korrekt).
test(exer13, 22, [declaration(sp, bestand, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bestand, 2, bestand/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, bestand, 2, bestand/2, main, 'A1', 1, -, number, 'Summe'))], 'bestand(0,[]).\n bestand(N, [_,_T]):-N is N1+1, bestand(N1,_T).\n', [error(id(s1f), penalty(0.5), poslist([pos(2, 0, 2, ['_', '_T'])]), hint('<b>[_, _T]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Auto|Rest]'), highlighted(['bestand(0, []).<br>', 'bestand(N,  <b><font color=red>[_, _T]</b></font> ):-N is N1+1, bestand(N1, _T).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['bestand(0, []).<br>', 'bestand(N, [_, _T]):- <b><font color=red>N is N1+1</b></font> ,  <b><font color=red>bestand(N1, _T)</b></font> .<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 1, 2, 'N1')]), hint('<b>N1</b> muss gebunden sein, bevor das Kalkulationssubziel <b>N is N1+1</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['bestand(0, []).<br>', 'bestand(N, [_, _T]):-N is  <b><font color=red>N1+1</b></font> , bestand(N1, _T).<br>']))], [ok, ok, ok], [korrekt, korrekt, korrekt], '').
test(exer13, 23, [declaration(sp, anz, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anz, 2, anz/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anz, 2, anz/2, main, 'A2', 2, -, number, 'Summe'))], 'anz([],0).\n anz([_|T], N):-anz(T,N1), N is N1+1.\n', [], [], [], korrekt).
test(exer13, 24, [declaration(sp, splength, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, splength, 2, splength/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, splength, 2, splength/2, main, 'A1', 1, -, number, 'Summe'))], 'splength(0,[]).\n splength(N, [_|Rest]):-splength(N1, Rest), N is N1+1.\n', [], [], [], korrekt).
test(exer13, 25, [declaration(sp, anzahl, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, -, number, 'Summe'))], 'anzahl(0, []).\n anzahl(Anz, [_|Rest]):-anzahl(Anz1, Rest), Anz is Anz1+1.\n', [], [], [], korrekt).
test(exer13, 26, [declaration(sp, splength, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, splength, 2, splength/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, splength, 2, splength/2, main, 'A2', 2, -, number, 'Summe'))], 'splength([],0).\n splength([H|T], L):-splength(T,L1), L is L1+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['splength([], 0).<br>', 'splength( <b><font color=red>[H|T]</b></font> , L):-splength(T, L1), L is L1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 27, [declaration(sp, count, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, count, 2, count/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, count, 2, count/2, main, 'A2', 2, -, number, 'Summe'))], 'count([], 0).\n count([H|T], N):-count(T, N1), N is N1+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['count([], 0).<br>', 'count( <b><font color=red>[H|T]</b></font> , N):-count(T, N1), N is N1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 28, [declaration(sp, anz_kfz, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anz_kfz, 2, anz_kfz/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anz_kfz, 2, anz_kfz/2, main, 'A2', 2, -, number, 'Summe'))], 'anz_kfz([[]], 0).\n anz_kfz([H|T], N):- N is N1+1, anz_kfz(T, N1).\n', [error(id(s7g1), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>[[]]</b> sollte eine leere Liste sein.'), highlighted(['anz_kfz( <b><font color=red>[[]]</b></font> , 0).<br>', 'anz_kfz([H|T], N):-N is N1+1, anz_kfz(T, N1).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['anz_kfz([[]], 0).<br>', 'anz_kfz([H|T], N):- <b><font color=red>N is N1+1</b></font> ,  <b><font color=red>anz_kfz(T, N1)</b></font> .<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['anz_kfz([[]], 0).<br>', 'anz_kfz( <b><font color=red>[H|T]</b></font> , N):-N is N1+1, anz_kfz(T, N1).<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 1, 2, 'N1')]), hint('<b>N1</b> muss gebunden sein, bevor das Kalkulationssubziel <b>N is N1+1</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['anz_kfz([[]], 0).<br>', 'anz_kfz([H|T], N):-N is  <b><font color=red>N1+1</b></font> , anz_kfz(T, N1).<br>']))], [ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt], '').
test(exer13, 29, [declaration(sp, wieviele, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, wieviele, 2, wieviele/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, wieviele, 2, wieviele/2, main, 'A1', 1, -, number, 'Summe'))], 'wieviele(Nat_Zahl, Liste):- Liste=[], Nat_Zahl=0.\n wieviele(Nat_Zahl, Liste):- Liste=[KZ,BJ|Rest], wieviele(Nat_Zahl1, Rest), N is N1+1.\n', [error(id(s1e), penalty(0.5), poslist([pos(2, 1, 2, ['KZ', 'BJ'|'Rest'])]), hint('<b>[KZ, BJ|Rest]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Auto|Rest]'), highlighted(['wieviele(Nat_Zahl, Liste):-Liste=[], Nat_Zahl=0.<br>', 'wieviele(Nat_Zahl, Liste):-Liste= <b><font color=red>[KZ, BJ|Rest]</b></font> , wieviele(Nat_Zahl1, Rest), N is N1+1.<br>'])), error(id(s5a), penalty(0.1), poslist([pos(2, 0, 1, 'Nat_Zahl')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Nat_Zahl</b> fehlt.'), highlighted(['wieviele(Nat_Zahl, Liste):-Liste=[], Nat_Zahl=0.<br>', 'wieviele( <b><font color=red>Nat_Zahl</b></font> , Liste):-Liste=[KZ, BJ|Rest], wieviele(Nat_Zahl1, Rest), N is N1+1.<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 3, 2, 'N1'), pos(2, 2, 1, 'Nat_Zahl1')]), hint('<b>N1</b> sollte mit der Argumentstelle von <b>Nat_Zahl1</b>, oder <b>N1</b> sollte mit der richtigen Variable im Term <b>Nat_Zahl1</b> koreferieren.'), highlighted(['wieviele(Nat_Zahl, Liste):-Liste=[], Nat_Zahl=0.<br>', 'wieviele(Nat_Zahl, Liste):-Liste=[KZ, BJ|Rest], wieviele( <b><font color=red>Nat_Zahl1</b></font> , Rest), N is  <b><font color=red>N1+1</b></font> .<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(2, 3, 1, 'N'), pos(2, 0, 1, 'Nat_Zahl')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>N</b> und <b>Nat_Zahl</b>'), highlighted(['wieviele(Nat_Zahl, Liste):-Liste=[], Nat_Zahl=0.<br>', 'wieviele( <b><font color=red>Nat_Zahl</b></font> , Liste):-Liste=[KZ, BJ|Rest], wieviele(Nat_Zahl1, Rest),  <b><font color=red>N</b></font> is N1+1.<br>'])), error(id(post5b), penalty(0.8), poslist([pos(2, 0, 1, 'Nat_Zahl')]), hint('<b>Nat_Zahl</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['wieviele(Nat_Zahl, Liste):-Liste=[], Nat_Zahl=0.<br>', 'wieviele( <b><font color=red>Nat_Zahl</b></font> , Liste):-Liste=[KZ, BJ|Rest], wieviele(Nat_Zahl1, Rest), N is N1+1.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 1, 2, 'KZ')]), hint('<b>KZ</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['wieviele(Nat_Zahl, Liste):-Liste=[], Nat_Zahl=0.<br>', 'wieviele(Nat_Zahl, Liste):-Liste= <b><font color=red>[KZ, BJ|Rest]</b></font> , wieviele(Nat_Zahl1, Rest), N is N1+1.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 1, 2, 'BJ')]), hint('<b>BJ</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['wieviele(Nat_Zahl, Liste):-Liste=[], Nat_Zahl=0.<br>', 'wieviele(Nat_Zahl, Liste):-Liste= <b><font color=red>[KZ, BJ|Rest]</b></font> , wieviele(Nat_Zahl1, Rest), N is N1+1.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 2, 1, 'Nat_Zahl1')]), hint('<b>Nat_Zahl1</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['wieviele(Nat_Zahl, Liste):-Liste=[], Nat_Zahl=0.<br>', 'wieviele(Nat_Zahl, Liste):-Liste=[KZ, BJ|Rest], wieviele( <b><font color=red>Nat_Zahl1</b></font> , Rest), N is N1+1.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 3, 1, 'N')]), hint('<b>N</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['wieviele(Nat_Zahl, Liste):-Liste=[], Nat_Zahl=0.<br>', 'wieviele(Nat_Zahl, Liste):-Liste=[KZ, BJ|Rest], wieviele(Nat_Zahl1, Rest),  <b><font color=red>N</b></font> is N1+1.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 3, 2, 'N1')]), hint('<b>N1</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['wieviele(Nat_Zahl, Liste):-Liste=[], Nat_Zahl=0.<br>', 'wieviele(Nat_Zahl, Liste):-Liste=[KZ, BJ|Rest], wieviele(Nat_Zahl1, Rest), N is  <b><font color=red>N1+1</b></font> .<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 3, 2, 'N1')]), hint('<b>N1</b> muss gebunden sein, bevor das Kalkulationssubziel <b>N is N1+1</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['wieviele(Nat_Zahl, Liste):-Liste=[], Nat_Zahl=0.<br>', 'wieviele(Nat_Zahl, Liste):-Liste=[KZ, BJ|Rest], wieviele(Nat_Zahl1, Rest), N is  <b><font color=red>N1+1</b></font> .<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer13, 30, [declaration(sp, splength, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, splength, 2, splength/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, splength, 2, splength/2, main, 'A1', 1, -, number, 'Summe'))], 'splength(0, []).\n splength(N, [_|Rest]):-splength(N1, Rest), N is N1+1.\n', [], [], [], korrekt).
test(exer13, 31, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe'))], 'anzahl([[]], 0).\n anzahl([[H]|T], N):- anzahl(T, N1), N is N1+1.\n', [error(id(s7g1), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>[[]]</b> sollte eine leere Liste sein.'), highlighted(['anzahl( <b><font color=red>[[]]</b></font> , 0).<br>', 'anzahl([[H]|T], N):-anzahl(T, N1), N is N1+1.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['anzahl([[]], 0).<br>', 'anzahl( <b><font color=red>[[H]|T]</b></font> , N):-anzahl(T, N1), N is N1+1.<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer13, 32, [declaration(sp, splength, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, splength, 2, splength/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, splength, 2, splength/2, main, 'A1', 1, -, number, 'Summe'))], 'splength(0,[]).\n splength(N, [_|Rest]):-splength(N1, Rest), N is N1+1.\n', [], [], [], korrekt).
test(exer13, 33, [declaration(sp, kfz_anz, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, kfz_anz, 2, kfz_anz/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, kfz_anz, 2, kfz_anz/2, main, 'A2', 2, -, number, 'Summe'))], 'kfz_anz([],0).\n kfz_anz([_|R], Anz):-kfz_anz(R, Anzr), Anz is Anzr+1.\n', [], [], [], korrekt).
test(exer13, 34, [declaration(sp, anzahl, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, -, number, 'Summe'))], 'anzahl(0, []).\n anzahl(N, [_|Rest]):-anzahl(N1, Rest), N is N1+1.\n', [], [], [], korrekt).
test(exer13, 35, [declaration(sp, laenge, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, laenge, 2, laenge/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, laenge, 2, laenge/2, main, 'A2', 2, -, number, 'Summe'))], 'laenge([], 0).\n laenge([H|T], L):- laenge(T, LT), L is LT+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['laenge([], 0).<br>', 'laenge( <b><font color=red>[H|T]</b></font> , L):-laenge(T, LT), L is LT+1.<br>']))], [ok], [korrekt], '').
test(exer13, 36, [declaration(sp, wieviele, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, wieviele, 2, wieviele/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, wieviele, 2, wieviele/2, main, 'A1', 1, -, number, 'Summe'))], 'wieviele(0, []).\n wieviele(N, [K|R]):-wieviele(N1, R), N is N1+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 2, 'K')]), hint('<b>K</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['wieviele(0, []).<br>', 'wieviele(N,  <b><font color=red>[K|R]</b></font> ):-wieviele(N1, R), N is N1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 37, [declaration(sp, bestand, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [recursivecase, basecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bestand, 2, bestand/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, bestand, 2, bestand/2, main, 'A2', 2, -, number, 'Summe'))], 'bestand([H|T], Bestand):- Bestand1 is Bestand+1, bestand(T, Bestand1).\n bestand([], 0).\n', [error(id(s3fa), penalty(0.7), poslist([pos(1, 2), pos(1, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['bestand([H|T], Bestand):- <b><font color=red>Bestand1 is Bestand+1</b></font> ,  <b><font color=red>bestand(T, Bestand1)</b></font> .<br>', 'bestand([], 0).<br>'])), error(id(s5a), penalty(0.1), poslist([pos(1, 0, 2, 'Bestand')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Bestand</b> fehlt.'), highlighted(['bestand([H|T],  <b><font color=red>Bestand</b></font> ):-Bestand1 is Bestand+1, bestand(T, Bestand1).<br>', 'bestand([], 0).<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(1, 1, 2, 'Bestand'), pos(1, 2, 2, 'Bestand1')]), hint('<b>Bestand</b> sollte mit der Argumentstelle von <b>Bestand1</b>, oder <b>Bestand</b> sollte mit der richtigen Variable im Term <b>Bestand1</b> koreferieren.'), highlighted(['bestand([H|T], Bestand):-Bestand1 is  <b><font color=red>Bestand+1</b></font> , bestand(T,  <b><font color=red>Bestand1</b></font> ).<br>', 'bestand([], 0).<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(1, 1, 1, 'Bestand1'), pos(1, 0, 2, 'Bestand')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>Bestand1</b> und <b>Bestand</b>'), highlighted(['bestand([H|T],  <b><font color=red>Bestand</b></font> ):- <b><font color=red>Bestand1</b></font> is Bestand+1, bestand(T, Bestand1).<br>', 'bestand([], 0).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(1, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['bestand( <b><font color=red>[H|T]</b></font> , Bestand):-Bestand1 is Bestand+1, bestand(T, Bestand1).<br>', 'bestand([], 0).<br>'])), error(id(post7b), penalty(0.8), poslist([pos(1, 1, 2, 'Bestand')]), hint('<b>Bestand</b> muss gebunden sein, bevor das Kalkulationssubziel <b>Bestand1 is Bestand+1</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['bestand([H|T], Bestand):-Bestand1 is  <b><font color=red>Bestand+1</b></font> , bestand(T, Bestand1).<br>', 'bestand([], 0).<br>']))], [ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer13, 38, [declaration(sp, anzahl, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, -, number, 'Summe'))], 'anzahl(N, L):- L=[], N=0.\n anzahl(N,L):- L=[Kopf|Rest], anzahl(N1, Rest), N is N1+1.\n', [error(id(post5c), penalty(0.8), poslist([pos(2, 1, 2, 'Kopf')]), hint('<b>Kopf</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['anzahl(N, L):-L=[], N=0.<br>', 'anzahl(N, L):-L= <b><font color=red>[Kopf|Rest]</b></font> , anzahl(N1, Rest), N is N1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 39, [declaration(sp, kfz_liste, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, kfz_liste, 2, kfz_liste/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, kfz_liste, 2, kfz_liste/2, main, 'A2', 2, -, number, 'Summe'))], 'kfz_liste([], N).\n kfz_liste([Kfz|Restliste_kfz], N):-kfz_liste([Restliste_kfz], N1), N is N1+1.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>N</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['kfz_liste([],  <b><font color=red>N</b></font> ).<br>', 'kfz_liste([Kfz|Restliste_kfz], N):-kfz_liste([Restliste_kfz], N1), N is N1+1.<br>'])), error(id(s3a), penalty(0.1), poslist([pos(2, 0, 1, ['Kfz'|'Restliste_kfz']), pos(2, 1, 1, ['Restliste_kfz'])]), hint('<b>[Kfz|Restliste_kfz]</b>: sollte rekursiv ab/aufgebaut werden.'), highlighted(['kfz_liste([], N).<br>', 'kfz_liste( <b><font color=red>[Kfz|Restliste_kfz]</b></font> , N):-kfz_liste( <b><font color=red>[Restliste_kfz]</b></font> , N1), N is N1+1.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'Kfz')]), hint('<b>Kfz</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['kfz_liste([], N).<br>', 'kfz_liste( <b><font color=red>[Kfz|Restliste_kfz]</b></font> , N):-kfz_liste([Restliste_kfz], N1), N is N1+1.<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 2, 'N')]), hint('<b>N</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['kfz_liste([],  <b><font color=red>N</b></font> ).<br>', 'kfz_liste([Kfz|Restliste_kfz], N):-kfz_liste([Restliste_kfz], N1), N is N1+1.<br>']))], [ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt], '').
test(exer13, 41, [declaration(sp, bestand_anz, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bestand_anz, 2, bestand_anz/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, bestand_anz, 2, bestand_anz/2, main, 'A1', 1, -, number, 'Summe'))], 'bestand_anz(0, []).\n bestand_anz(Anz, [_|Rest]):- bestand_anz(Anz1, Rest), Anz is Anz1+1.\n', [], [], [], korrekt).
test(exer13, 42, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [recursivecase, basecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe'))], 'anzahl([H|T], N):-anzahl(T, _N), N is _N +1.\n anzahl([], 0).\n', [error(id(post5a), penalty(0.8), poslist([pos(1, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['anzahl( <b><font color=red>[H|T]</b></font> , N):-anzahl(T, _N), N is _N+1.<br>', 'anzahl([], 0).<br>']))], [ok], [korrekt], '').
test(exer13, 43, [declaration(sp, bestand, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bestand, 2, bestand/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, bestand, 2, bestand/2, main, 'A1', 1, -, number, 'Summe'))], 'bestand(X,L):-L=[], X is 0.\n bestand(X,L):-L=[H|T], bestand(X1, T), X is X1+1.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>X</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['bestand( <b><font color=red>X</b></font> , L):-L=[], X is 0.<br>', 'bestand(X, L):-L=[H|T], bestand(X1, T), X is X1+1.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 1, 2, 'H')]), hint('<b>H</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['bestand(X, L):-L=[], X is 0.<br>', 'bestand(X, L):-L= <b><font color=red>[H|T]</b></font> , bestand(X1, T), X is X1+1.<br>'])), error(id(s5b), penalty(0.1), poslist([pos(1, 2)]), hint('<b>X is 0</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['bestand(X, L):-L=[],  <b><font color=red>X is 0</b></font> .<br>', 'bestand(X, L):-L=[H|T], bestand(X1, T), X is X1+1.<br>']))], [nok, ok, ok], ['X ist 0', korrekt, korrekt], '').
test(exer13, 44, [declaration(sp, anzahl, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, -, number, 'Summe'))], 'anzahl(0, []).\n anzahl(N, [_|Tail]):-anzahl(N1, Tail), N is N1+1.\n', [], [], [], korrekt).
test(exer13, 45, [declaration(sp, kfzbestand, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, kfzbestand, 2, kfzbestand/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, kfzbestand, 2, kfzbestand/2, main, 'A2', 2, -, number, 'Summe'))], 'kfzbestand([], Anzahl).\n kfzbestand([Kopf|Rest], Anzahl):-kfzbestand([Rest], Anzahl1), Anzahl1 is Anzahl+1.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>Anzahl</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['kfzbestand([],  <b><font color=red>Anzahl</b></font> ).<br>', 'kfzbestand([Kopf|Rest], Anzahl):-kfzbestand([Rest], Anzahl1), Anzahl1 is Anzahl+1.<br>'])), error(id(s3a), penalty(0.1), poslist([pos(2, 0, 1, ['Kopf'|'Rest']), pos(2, 1, 1, ['Rest'])]), hint('<b>[Kopf|Rest]</b>: sollte rekursiv ab/aufgebaut werden.'), highlighted(['kfzbestand([], Anzahl).<br>', 'kfzbestand( <b><font color=red>[Kopf|Rest]</b></font> , Anzahl):-kfzbestand( <b><font color=red>[Rest]</b></font> , Anzahl1), Anzahl1 is Anzahl+1.<br>'])), error(id(s5a), penalty(0.1), poslist([pos(2, 0, 2, 'Anzahl')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Anzahl</b> fehlt.'), highlighted(['kfzbestand([], Anzahl).<br>', 'kfzbestand([Kopf|Rest],  <b><font color=red>Anzahl</b></font> ):-kfzbestand([Rest], Anzahl1), Anzahl1 is Anzahl+1.<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 2, 2, 'Anzahl'), pos(2, 1, 2, 'Anzahl1')]), hint('<b>Anzahl</b> sollte mit der Argumentstelle von <b>Anzahl1</b>, oder <b>Anzahl</b> sollte mit der richtigen Variable im Term <b>Anzahl1</b> koreferieren.'), highlighted(['kfzbestand([], Anzahl).<br>', 'kfzbestand([Kopf|Rest], Anzahl):-kfzbestand([Rest],  <b><font color=red>Anzahl1</b></font> ), Anzahl1 is  <b><font color=red>Anzahl+1</b></font> .<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(2, 2, 1, 'Anzahl1'), pos(2, 0, 2, 'Anzahl')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>Anzahl1</b> und <b>Anzahl</b>'), highlighted(['kfzbestand([], Anzahl).<br>', 'kfzbestand([Kopf|Rest],  <b><font color=red>Anzahl</b></font> ):-kfzbestand([Rest], Anzahl1),  <b><font color=red>Anzahl1</b></font> is Anzahl+1.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'Kopf')]), hint('<b>Kopf</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['kfzbestand([], Anzahl).<br>', 'kfzbestand( <b><font color=red>[Kopf|Rest]</b></font> , Anzahl):-kfzbestand([Rest], Anzahl1), Anzahl1 is Anzahl+1.<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 2, 2, 'Anzahl')]), hint('<b>Anzahl</b> muss gebunden sein, bevor das Kalkulationssubziel <b>Anzahl1 is Anzahl+1</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['kfzbestand([], Anzahl).<br>', 'kfzbestand([Kopf|Rest], Anzahl):-kfzbestand([Rest], Anzahl1), Anzahl1 is  <b><font color=red>Anzahl+1</b></font> .<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 2, 'Anzahl')]), hint('<b>Anzahl</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['kfzbestand([],  <b><font color=red>Anzahl</b></font> ).<br>', 'kfzbestand([Kopf|Rest], Anzahl):-kfzbestand([Rest], Anzahl1), Anzahl1 is Anzahl+1.<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer13, 46, [declaration(sp, wieviele, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, wieviele, 2, wieviele/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, wieviele, 2, wieviele/2, main, 'A1', 1, -, number, 'Summe'))], 'wieviele(0, []).\n wieviele(Zahl, [_|Rest]):-wieviele(Zahl2, Rest), Zahl is Zahl2 +1.\n', [], [], [], korrekt).
test(exer13, 47, [declaration(sp, splength, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, splength, 2, splength/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, splength, 2, splength/2, main, 'A1', 1, -, number, 'Summe'))], 'splength(0, []).\n splength(N, [_|Rest]):-splength(N1, Rest), N is N1+1.\n', [], [], [], korrekt).
test(exer13, 48, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Anzahl der Kraftfahrzeuge')]), declaration(sp, anzahl2, anzahl/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, list, 'Akkumulator'), d('A3', -, number, 'Anzahl der Kraftfahrzeuge')])], _G25405901, [map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg3', 3, +, number, ['Akkumulator', accumulator]), predicatedec(sp, anzahl2, 3, anzahl/2, accu, 'A2', 2, +, list, 'Akkumulator')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg2', 2, -, number, ['Anzahl der Kraftfahrzeuge']), predicatedec(sp, anzahl2, 3, anzahl/2, accu, 'A3', 3, -, number, 'Anzahl der Kraftfahrzeuge')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl2, 3, anzahl/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Anzahl der Kraftfahrzeuge']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Anzahl der Kraftfahrzeuge')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste'))], 'anzahl(X,Y):-anzahl2(X,[],Y).\n anzahl2([],[],0).\n anzahl2([],[_|_], Y).\n anzahl2([H|X], Z,Y):-anzahl2(X,[H|Z],Y), Y is Y+1.\n', [error(id(d4), penalty(0.5), poslist([type, 2]), hint('Das Argument <b>A2</b> des Prädikats <b>anzahl2/3</b> hat nicht den richtigen Typ. Einer Argumentstelle wird der Typ Liste zugewiesen, wenn Informationen an dieser Stelle eine Liste darstellen. Lesen Sie den Aufgabentext erneut durch und finden Sie einen richtigen Typ für diese Argumentstelle.'))], [nok], ['Der Hinweis ist schwer verstaendlich'], '').
test(exer13, 49, [declaration(sp, kfanzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, kfanzahl, 2, kfanzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, kfanzahl, 2, kfanzahl/2, main, 'A2', 2, -, number, 'Summe'))], 'kfanzahl([], 0).\n kfanzahl([K|R], Anzahl):-kfanzahl(R, Anzahlvor), Anzahl is Anzahlvor+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'K')]), hint('<b>K</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['kfanzahl([], 0).<br>', 'kfanzahl( <b><font color=red>[K|R]</b></font> , Anzahl):-kfanzahl(R, Anzahlvor), Anzahl is Anzahlvor+1.<br>']))], [ok], [korrekt], '').
test(exer13, 50, [declaration(sp, splength, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, splength, 2, splength/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, splength, 2, splength/2, main, 'A2', 2, -, number, 'Summe'))], 'splength([], 0).\n splength([_|R], Y):-splength(R, X), Y=X+1.\n', [error(id(s5a), penalty(0.1), poslist([pos(2, 0, 2, 'Y')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Y</b> fehlt.'), highlighted(['splength([], 0).<br>', 'splength([_|R],  <b><font color=red>Y</b></font> ):-splength(R, X), Y=X+1.<br>'])), error(id(s4f), penalty(0.1), poslist([pos(2, 2, 1, 'Y'), pos(2, 2, 2, 'X'+1)]), hint('<b>[Y, X+1]</b>: Das Unifikationssubziel dieser Variablen/Terme ist überflüssig.'), highlighted(['splength([], 0).<br>', 'splength([_|R], Y):-splength(R, X),  <b><font color=red>Y</b></font> = <b><font color=red>X+1</b></font> .<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer13, 51, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')]), declaration(sp, anzahl, anzahl/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 3, anz/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 3, anz/2, accu, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, anzahl, 3, anz/2, accu, 'A2', 2, +, number, accu))], 'anzahl(X, Erg):-anzahl(X,0, Erg).\n anzahl([], A,A).\n anzahl([H|T], Acc, E):-Acc1 is Acc+1, anzahl(T, Acc1, E).\n', [error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['anzahl(X, Erg):-anzahl(X, 0, Erg).<br>', 'anzahl([], A, A).<br>', 'anzahl( <b><font color=red>[H|T]</b></font> , Acc, E):-Acc1 is Acc+1, anzahl(T, Acc1, E).<br>']))], [ok], [korrekt], '').
test(exer13, 52, [declaration(sp, bestand, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bestand, 2, bestand/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, bestand, 2, bestand/2, main, 'A2', 2, -, number, 'Summe'))], 'bestand([], 0).\n bestand([Kopf|Rest], X):-bestand(Rest, X1), X is X1+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'Kopf')]), hint('<b>Kopf</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['bestand([], 0).<br>', 'bestand( <b><font color=red>[Kopf|Rest]</b></font> , X):-bestand(Rest, X1), X is X1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 53, [declaration(sp, bestand, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bestand, 2, bestand/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, bestand, 2, bestand/2, main, 'A1', 1, -, number, 'Summe'))], 'bestand(0, []).\n bestand(X, [_,_|R]):-bestand(X1, R), X is X1+1.\n', [error(id(s1f), penalty(0.5), poslist([pos(2, 0, 2, ['_', '_'|'R'])]), hint('<b>[_, _|R]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Auto|Rest]'), highlighted(['bestand(0, []).<br>', 'bestand(X,  <b><font color=red>[_, _|R]</b></font> ):-bestand(X1, R), X is X1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 54, [declaration(sp, mylen, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, mylen, 2, mylen2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, mylen, 2, mylen/2, main, 'A2', 2, -, number, 'Summe'))], 'mylen([], 0).\n mylen([Head|Tail], N):-mylen(N1, Tail), N is N1+1.\n', [error(id(s3a), penalty(0.1), poslist([pos(2, 0, 1, ['Head'|'Tail']), pos(2, 1, 1, 'N1')]), hint('<b>[Head|Tail]</b>: sollte rekursiv ab/aufgebaut werden.'), highlighted(['mylen([], 0).<br>', 'mylen( <b><font color=red>[Head|Tail]</b></font> , N):-mylen( <b><font color=red>N1</b></font> , Tail), N is N1+1.<br>'])), error(id(s3c), penalty(0.5), poslist([pos(2, 1, 1, 'N1'), pos(2, 0, 1, ['Head'|'Tail'])]), hint('<b>N1</b> sollte mit einer Variable im Term <b>[Head|Tail]</b> koreferieren.'), highlighted(['mylen([], 0).<br>', 'mylen( <b><font color=red>[Head|Tail]</b></font> , N):-mylen( <b><font color=red>N1</b></font> , Tail), N is N1+1.<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 2, 2, 'N1'), pos(2, 1, 2, 'Tail')]), hint('<b>N1</b> sollte mit der Argumentstelle von <b>Tail</b>, oder <b>N1</b> sollte mit der richtigen Variable im Term <b>Tail</b> koreferieren.'), highlighted(['mylen([], 0).<br>', 'mylen([Head|Tail], N):-mylen(N1,  <b><font color=red>Tail</b></font> ), N is  <b><font color=red>N1+1</b></font> .<br>'])), error(id(s1d2), penalty(0.5), poslist([pos(2, 0, 1, 'Tail'), pos(2, 1, 1, 'N1')]), hint(' Eine Unifikation zwischen der Variable im Term <b>Tail</b> und einer Variable des Terms <b>N1</b> ist erforderlich.'), highlighted(['mylen([], 0).<br>', 'mylen( <b><font color=red>[Head|Tail]</b></font> , N):-mylen( <b><font color=red>N1</b></font> , Tail), N is N1+1.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'Head')]), hint('<b>Head</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['mylen([], 0).<br>', 'mylen( <b><font color=red>[Head|Tail]</b></font> , N):-mylen(N1, Tail), N is N1+1.<br>']))], [ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt], 'Das eigentliche Problem ist. dass die Argumente in mylen() vertauscht sind - sind dafuer denn vier veschiedene Fehlermeldungen notwendig?').
test(exer13, 55, [declaration(sp, length_kfz, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, length_kfz, 2, length_kfz/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, length_kfz, 2, length_kfz/2, main, 'A2', 2, -, number, 'Summe'))], 'length_kfz([], 0).\n length_kfz([_|R], Laenge2):-length_kfz(R, Laenge1), Laenge2 is Laenge1+1.\n', [], [], [], korrekt).
test(exer13, 56, [declaration(sp, anzahlz, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahlz, 2, anzahlz/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahlz, 2, anzahlz/2, main, 'A1', 1, -, number, 'Summe'))], 'anzahlz(N,L):-L=[], N is 0.\n anzahlz(N,L):- L=[Kopf|Rest], anzahlz(N1, Rest), N is N1+1.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>N</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['anzahlz( <b><font color=red>N</b></font> , L):-L=[], N is 0.<br>', 'anzahlz(N, L):-L=[Kopf|Rest], anzahlz(N1, Rest), N is N1+1.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 1, 2, 'Kopf')]), hint('<b>Kopf</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['anzahlz(N, L):-L=[], N is 0.<br>', 'anzahlz(N, L):-L= <b><font color=red>[Kopf|Rest]</b></font> , anzahlz(N1, Rest), N is N1+1.<br>'])), error(id(s5b), penalty(0.1), poslist([pos(1, 2)]), hint('<b>N is 0</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['anzahlz(N, L):-L=[],  <b><font color=red>N is 0</b></font> .<br>', 'anzahlz(N, L):-L=[Kopf|Rest], anzahlz(N1, Rest), N is N1+1.<br>']))], [nok, ok, ok], ['N ist 0', korrekt, korrekt], '').
test(exer13, 57, [declaration(sp, anzahl, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, -, number, 'Summe'))], 'anzahl(0, []).\n anzahl(Zahl, [H|T]):-anzahl(Z, T), Zahl is Z+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 2, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['anzahl(0, []).<br>', 'anzahl(Zahl,  <b><font color=red>[H|T]</b></font> ):-anzahl(Z, T), Zahl is Z+1.<br>']))], [ok], [korrekt], '').
test(exer13, 58, [declaration(sp, splength, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, splength, 2, splength/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, splength, 2, splength/2, main, 'A1', 1, -, number, 'Summe'))], 'splength(0, []).\n splength(N, [_|Rest]):-splength(N1, Rest), N is N1+1.\n', [], [], [], korrekt).
test(exer13, 59, [declaration(sp, anzahl, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, -, number, 'Summe'))], 'anzahl(0, []).\n anzahl(N, [_|Rest]):-anzahl(N1, Rest), N is N1+1.\n', [], [], [], korrekt).
test(exer13, 60, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe'))], 'anzahl([], 0).\n anzahl([_|T], X):-anzahl(T,Y), X is Y+1.\n', [], [], [], korrekt).
test(exer13, 61, [declaration(sp, wieviele, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, wieviele, 2, wieviele/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, wieviele, 2, wieviele/2, main, 'A1', 1, -, number, 'Summe'))], 'wieviele(0, []).\n wieviele(Anzahl, [_|Rest]):-wieviele(Anzahl1, Rest), Anzahl is Anzahl1+1.\n', [], [], [], korrekt).
test(exer13, 62, [declaration(sp, anzahl_der_paare, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl_der_paare, 2, anzahl_der_paare/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl_der_paare, 2, anzahl_der_paare/2, main, 'A1', 1, -, number, 'Summe'))], 'anzahl_der_paare(0,[]).\n anzahl_der_paare(N, [K|R]):-anzahl_der_paare(N1,R), N is N1+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 2, 'K')]), hint('<b>K</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['anzahl_der_paare(0, []).<br>', 'anzahl_der_paare(N,  <b><font color=red>[K|R]</b></font> ):-anzahl_der_paare(N1, R), N is N1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 63, [declaration(sp, anzkfz, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [nonrecursive], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzkfz, 2, anzkfz/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzkfz, 2, anzkfz/2, main, 'A1', 1, -, number, 'Summe'))], 'anzkfz(X,Liste):-length(X, Liste).\n', [error(id(g7), penalty(0.5), poslist([pos(1, 1)]), hint('length/2: Dieses Subziel ist unbekannt.'), highlighted(['anzkfz(X, Liste):- <b><font color=red>length(X, Liste)</b></font> .<br>']))], [ok], [korrekt], '').
test(exer13, 64, [declaration(sp, bestand, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bestand, 2, bestand/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, bestand, 2, bestand/2, main, 'A1', 1, -, number, 'Summe'))], 'bestand(N,L):-L=[], N=0.\n bestand(N,L):-L=[Kopf|Rest], length(N1, Rest), N is N1+1.\n', [error(id(pre3a), penalty(0.3), poslist([pos(1)]), hint('Sie haben diese Klausel als Rekursionsabschluss gewählt. Jedoch fehlt eine dazugehörige Rekursionsklausel, oder diese Klausel ist kein Rekursionsabschluss.'), highlighted([' <b><font color=red>bestand(N, L)</b></font> :- <b><font color=red>L=[]</b></font> ,  <b><font color=red>N=0</b></font> .<br>', 'bestand(N, L):-L=[Kopf|Rest], length(N1, Rest), N is N1+1.<br>'])), error(id(pre3b), penalty(0.3), poslist([pos(2)]), hint('Sie haben diese Klausel als Rekursionsklausel gewählt, jedoch existiert kein rekursives Subziel in dieser Klausel.'), highlighted(['bestand(N, L):-L=[], N=0.<br>', ' <b><font color=red>bestand(N, L)</b></font> :- <b><font color=red>L=[Kopf|Rest]</b></font> ,  <b><font color=red>length(N1, Rest)</b></font> ,  <b><font color=red>N is N1+1</b></font> .<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer13, 65, [declaration(sp, anz, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anz, 2, anz/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anz, 2, anz/2, main, 'A1', 1, -, number, 'Summe'))], 'anz(_,[]).\n anz(N, [H|T]):-anz(N1,T), N1 is N+1.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>_</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['anz( <b><font color=red>_</b></font> , []).<br>', 'anz(N, [H|T]):-anz(N1, T), N1 is N+1.<br>'])), error(id(s5a), penalty(0.1), poslist([pos(2, 0, 1, 'N')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>N</b> fehlt.'), highlighted(['anz(_, []).<br>', 'anz( <b><font color=red>N</b></font> , [H|T]):-anz(N1, T), N1 is N+1.<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 2, 2, 'N'), pos(2, 1, 1, 'N1')]), hint('<b>N</b> sollte mit der Argumentstelle von <b>N1</b>, oder <b>N</b> sollte mit der richtigen Variable im Term <b>N1</b> koreferieren.'), highlighted(['anz(_, []).<br>', 'anz(N, [H|T]):-anz( <b><font color=red>N1</b></font> , T), N1 is  <b><font color=red>N+1</b></font> .<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(2, 2, 1, 'N1'), pos(2, 0, 1, 'N')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>N1</b> und <b>N</b>'), highlighted(['anz(_, []).<br>', 'anz( <b><font color=red>N</b></font> , [H|T]):-anz(N1, T),  <b><font color=red>N1</b></font> is N+1.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 2, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['anz(_, []).<br>', 'anz(N,  <b><font color=red>[H|T]</b></font> ):-anz(N1, T), N1 is N+1.<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 2, 2, 'N')]), hint('<b>N</b> muss gebunden sein, bevor das Kalkulationssubziel <b>N1 is N+1</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['anz(_, []).<br>', 'anz(N, [H|T]):-anz(N1, T), N1 is  <b><font color=red>N+1</b></font> .<br>']))], [ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], 'ein Fehler - viele Kommentare').
test(exer13, 66, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe'))], 'anzahl([_|Rest], Summe):- anzahl(Rest, Summe1), Summe is Summe1+1.\n', [error(id(g6), penalty(0.5), poslist([pos(1)]), hint('Wenn Sie die Rekursion verwenden und jeweils ein Element zum rekursiven Subziel übergeben, dann brauchen Sie einen und nur einen Rekursionsabschluss.'), highlighted([' <b><font color=red>anzahl([_|Rest], Summe)</b></font> :- <b><font color=red>anzahl(Rest, Summe1)</b></font> ,  <b><font color=red>Summe is Summe1+1</b></font> .<br>']))], [ok], [korrekt], 'in diesem Fall: ...brauchen Sie noch einen Rekursionsabschluss').
test(exer13, 67, [declaration(sp, bestand, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bestand, 2, bestand/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, bestand, 2, bestand/2, main, 'A2', 2, -, number, 'Summe'))], 'bestand([], X).\n bestand([H|T], X):-bestand(T,X1), X1 is X+1.\n', [error(id(s7c), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>X</b> erwarten wir eine Zahl. Wir empfehlen: <b>0</b>'), highlighted(['bestand([],  <b><font color=red>X</b></font> ).<br>', 'bestand([H|T], X):-bestand(T, X1), X1 is X+1.<br>'])), error(id(s5a), penalty(0.1), poslist([pos(2, 0, 2, 'X')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>X</b> fehlt.'), highlighted(['bestand([], X).<br>', 'bestand([H|T],  <b><font color=red>X</b></font> ):-bestand(T, X1), X1 is X+1.<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 2, 2, 'X'), pos(2, 1, 2, 'X1')]), hint('<b>X</b> sollte mit der Argumentstelle von <b>X1</b>, oder <b>X</b> sollte mit der richtigen Variable im Term <b>X1</b> koreferieren.'), highlighted(['bestand([], X).<br>', 'bestand([H|T], X):-bestand(T,  <b><font color=red>X1</b></font> ), X1 is  <b><font color=red>X+1</b></font> .<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(2, 2, 1, 'X1'), pos(2, 0, 2, 'X')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>X1</b> und <b>X</b>'), highlighted(['bestand([], X).<br>', 'bestand([H|T],  <b><font color=red>X</b></font> ):-bestand(T, X1),  <b><font color=red>X1</b></font> is X+1.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['bestand([], X).<br>', 'bestand( <b><font color=red>[H|T]</b></font> , X):-bestand(T, X1), X1 is X+1.<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 2, 2, 'X')]), hint('<b>X</b> muss gebunden sein, bevor das Kalkulationssubziel <b>X1 is X+1</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['bestand([], X).<br>', 'bestand([H|T], X):-bestand(T, X1), X1 is  <b><font color=red>X+1</b></font> .<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 2, 'X')]), hint('<b>X</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['bestand([],  <b><font color=red>X</b></font> ).<br>', 'bestand([H|T], X):-bestand(T, X1), X1 is X+1.<br>']))], [ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer13, 68, [declaration(sp, b, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, b, 2, b/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, b, 2, b/2, main, 'A2', 2, -, number, 'Summe'))], 'b([], 0).\n b([F_|Tail], S):-b(Tail, S1), S is S1+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'F_')]), hint('<b>F_</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['b([], 0).<br>', 'b( <b><font color=red>[F_|Tail]</b></font> , S):-b(Tail, S1), S is S1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 69, [declaration(sp, bestand, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bestand, 2, bestand/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, bestand, 2, bestand/2, main, 'A2', 2, -, number, 'Summe'))], 'bestand([],0).\n bestand([H|T], Anzahl):-bestand(T, Anzahl1), Anzahl is Anzahl1+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['bestand([], 0).<br>', 'bestand( <b><font color=red>[H|T]</b></font> , Anzahl):-bestand(T, Anzahl1), Anzahl is Anzahl1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 70, [declaration(sp, wieviele, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, wieviele, 2, wieviele/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, wieviele, 2, wieviele/2, main, 'A2', 2, -, number, 'Summe'))], 'wieviele([],0).\n wieviele([K|R], E):-wieviele(R, EL), E is EL+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'K')]), hint('<b>K</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['wieviele([], 0).<br>', 'wieviele( <b><font color=red>[K|R]</b></font> , E):-wieviele(R, EL), E is EL+1.<br>']))], [ok], [korrekt], '').
test(exer13, 71, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe'))], 'anzahl([],0).\n anzahl([H|T], N):-anzahl(T,N1), N is N1+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['anzahl([], 0).<br>', 'anzahl( <b><font color=red>[H|T]</b></font> , N):-anzahl(T, N1), N is N1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 72, [declaration(sp, laenge, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, laenge, 2, laenge/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, laenge, 2, laenge/2, main, 'A2', 2, -, number, 'Summe'))], 'laenge([], 0).\n laenge([K|R], Anz):-laenge(R, Anz), Laenge is LaengeZ+1.\n', [error(id(s5a), penalty(0.1), poslist([pos(2, 0, 2, 'Anz')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Anz</b> fehlt.'), highlighted(['laenge([], 0).<br>', 'laenge([K|R],  <b><font color=red>Anz</b></font> ):-laenge(R, Anz), Laenge is LaengeZ+1.<br>'])), error(id(s6b1), penalty(0.7), poslist([pos(2, 2, 2, 'LaengeZ'), pos(2, 1, 2, 'Anz')]), hint('<b>LaengeZ</b> sollte mit der Argumentstelle von <b>Anz</b>, oder <b>LaengeZ</b> sollte mit der richtigen Variable im Term <b>Anz</b> koreferieren.'), highlighted(['laenge([], 0).<br>', 'laenge([K|R], Anz):-laenge(R,  <b><font color=red>Anz</b></font> ), Laenge is  <b><font color=red>LaengeZ+1</b></font> .<br>'])), error(id(s4a1), penalty(0.5), poslist([pos(2, 0, 2, 'Anz'), pos(2, 1, 2, 'Anz')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['laenge([], 0).<br>', 'laenge([K|R],  <b><font color=red>Anz</b></font> ):-laenge(R,  <b><font color=red>Anz</b></font> ), Laenge is LaengeZ+1.<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(2, 2, 1, 'Laenge'), pos(2, 0, 2, 'Anz')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>Laenge</b> und <b>Anz</b>'), highlighted(['laenge([], 0).<br>', 'laenge([K|R],  <b><font color=red>Anz</b></font> ):-laenge(R, Anz),  <b><font color=red>Laenge</b></font> is LaengeZ+1.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'K')]), hint('<b>K</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['laenge([], 0).<br>', 'laenge( <b><font color=red>[K|R]</b></font> , Anz):-laenge(R, Anz), Laenge is LaengeZ+1.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 2, 1, 'Laenge')]), hint('<b>Laenge</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['laenge([], 0).<br>', 'laenge([K|R], Anz):-laenge(R, Anz),  <b><font color=red>Laenge</b></font> is LaengeZ+1.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 2, 2, 'LaengeZ')]), hint('<b>LaengeZ</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['laenge([], 0).<br>', 'laenge([K|R], Anz):-laenge(R, Anz), Laenge is  <b><font color=red>LaengeZ+1</b></font> .<br>'])), error(id(post7b), penalty(0.8), poslist([pos(2, 2, 2, 'LaengeZ')]), hint('<b>LaengeZ</b> muss gebunden sein, bevor das Kalkulationssubziel <b>Laenge is LaengeZ+1</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['laenge([], 0).<br>', 'laenge([K|R], Anz):-laenge(R, Anz), Laenge is  <b><font color=red>LaengeZ+1</b></font> .<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer13, 73, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe'))], 'anzahl([],0).\n anzahl([H|Rest], Bestand):-anzahl(Rest, Restbestand), Bestand is Restbestand+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['anzahl([], 0).<br>', 'anzahl( <b><font color=red>[H|Rest]</b></font> , Bestand):-anzahl(Rest, Restbestand), Bestand is Restbestand+1.<br>']))], [ok], [korrekt], '').
test(exer13, 74, [declaration(sp, count, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, count, 2, count/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, count, 2, count/2, main, 'A2', 2, -, number, 'Summe'))], 'count([], 0).\n count([H|T], N):-count(T, N), N is N+1.\n', [error(id(s4a1), penalty(0.5), poslist([pos(2, 0, 2, 'N'), pos(2, 1, 2, 'N')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['count([], 0).<br>', 'count([H|T],  <b><font color=red>N</b></font> ):-count(T,  <b><font color=red>N</b></font> ), N is N+1.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['count([], 0).<br>', 'count( <b><font color=red>[H|T]</b></font> , N):-count(T, N), N is N+1.<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer13, 75, [declaration(sp, anzahl, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, -, number, 'Summe'))], 'anzahl([], 0).\n anzahl([X|Y], N):-anzahl(Y,N1), N is N1+1.\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'X')]), hint('<b>X</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['anzahl([], 0).<br>', 'anzahl( <b><font color=red>[X|Y]</b></font> , N):-anzahl(Y, N1), N is N1+1.<br>']))], [ok], [korrekt], '').
test(exer13, 76, [declaration(sp, bestand, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bestand, 2, bestand/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, bestand, 2, bestand/2, main, 'A2', 2, -, number, 'Summe'))], 'bestand([], 0).\n bestand([_|Y], N):- bestand(Y,N1), N is N1+1.\n', [], [], [], korrekt).
test(exer13, 77, [declaration(sp, anzahl1, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')]), declaration(sp, anzahl2, anzahl1/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [basecase, recursivecase, nonrecursive], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl1, 2, anzahl1/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl1, 2, anzahl1/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl2, 3, anzahl1/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl2, 3, anzahl1/2, accu, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, anzahl2, 3, anzahl1/2, accu, 'A2', 2, +, number, accu))], 'anzahl2([], X,X).\n anzahl2([A|B], C,X):-D is C+1, anzahl2(B,D,X).\n anzahl1(X,Y):-anzahl2(X,0,Y).\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'A')]), hint('<b>A</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['anzahl2([], X, X).<br>', 'anzahl2( <b><font color=red>[A|B]</b></font> , C, X):-D is C+1, anzahl2(B, D, X).<br>', 'anzahl1(X, Y):-anzahl2(X, 0, Y).<br>']))], [ok], [korrekt], '').
test(exer13, 78, [declaration(sp, anzahl, [d('A1', -, number, 'Summe'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, anzahl, 2, anzahl/2, main, 'A1', 1, -, number, 'Summe'))], 'anzahl(0, []).\n anzahl(N, [_|R]):-anzahl(N-1, R).\n', [error(id(s5a), penalty(0.1), poslist([pos(2, 0, 1, 'N')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>N</b> fehlt.'), highlighted(['anzahl(0, []).<br>', 'anzahl( <b><font color=red>N</b></font> , [_|R]):-anzahl(N-1, R).<br>']))], [ok], [korrekt], '').
test(exer13, 79, [declaration(sp, bestand, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bestand, 2, bestand/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, bestand, 2, bestand/2, main, 'A2', 2, -, number, 'Summe'))], 'bestand([],0).\n bestand([_|Rest], N):-bestand(Rest, N1), N is N1+1.\n', [], [], [], korrekt).
test(exer13, 80, [declaration(sp, wieviele1, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')]), declaration(sp, wieviele, wieviele1/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe'), d('A3', +, number, accu)])], [nonrecursive, basecase, recursivecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, wieviele1, 2, wieviele1/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, wieviele1, 2, wieviele1/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, wieviele, 3, wieviele1/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, wieviele, 3, wieviele1/2, accu, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, wieviele, 3, wieviele1/2, accu, 'A3', 3, +, number, accu))], 'wieviele1(Liste, Ausg):-wieviele(Liste, Ausg, Acc).\n wieviele([], Acc, Acc).\n wieviele([Kopf|Rest], Ausg, Acc):-Acc1 is Acc+1, wieviele(Rest, Ausg, Acc1).\n', [error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'Kopf')]), hint('<b>Kopf</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['wieviele1(Liste, Ausg):-wieviele(Liste, Ausg, Acc).<br>', 'wieviele([], Acc, Acc).<br>', 'wieviele( <b><font color=red>[Kopf|Rest]</b></font> , Ausg, Acc):-Acc1 is Acc+1, wieviele(Rest, Ausg, Acc1).<br>'])), error(id(post5c), penalty(0.8), poslist([pos(1, 1, 3, 'Acc')]), hint('<b>Acc</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['wieviele1(Liste, Ausg):-wieviele(Liste, Ausg,  <b><font color=red>Acc</b></font> ).<br>', 'wieviele([], Acc, Acc).<br>', 'wieviele([Kopf|Rest], Ausg, Acc):-Acc1 is Acc+1, wieviele(Rest, Ausg, Acc1).<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer13, 81, [declaration(sp, kf, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe')]), declaration(sp, kf_rec, kf/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, recursivecase, basecase], [map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, kf, 2, kf/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestand, 2, tpbestand/2, main, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, kf, 2, kf/2, main, 'A2', 2, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, kf_rec, 3, kf/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg2', 2, -, number, ['Bestand']), predicatedec(sp, kf_rec, 3, kf/2, accu, 'A3', 3, -, number, 'Summe')), map(dec, predicatedec(tp, tpbestandaccu, 3, tpbestand/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, kf_rec, 3, kf/2, accu, 'A2', 2, +, number, accu))], 'kf(Ls, E):-kf_rec(Ls,0,E).\n kf_rec([H|T], A, E):-A1 is A+1, kf_rec(T,A1,E).\n kf_rec([],E,E).\n', [error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['kf(Ls, E):-kf_rec(Ls, 0, E).<br>', 'kf_rec( <b><font color=red>[H|T]</b></font> , A, E):-A1 is A+1, kf_rec(T, A1, E).<br>', 'kf_rec([], E, E).<br>']))], [ok], [korrekt], '').
test(exer14, 1, [declaration(sp, baujahr, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, baujahr, 2, baujahr/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, baujahr, 2, baujahr/2, main, 'A2', 2, -, number, 'Ältesten'))], 'baujahr([],[]).\n baujahr([[H|T]|T2], [X]):-X>T, baujahr([T2], X).\n', [error(id(pre2e), penalty(0.3), poslist([pos(1, 0, 2, [])]), hint('Der Typ von <b>[]</b> stimmt nicht mit der Deklaration überein. Es sollte eine Zahl sein.'), highlighted(['baujahr([],  <b><font color=red>[]</b></font> ).<br>', 'baujahr([[H|T]|T2], [X]):-X>T, baujahr([T2], X).<br>'])), error(id(pre2e), penalty(0.3), poslist([pos(2, 0, 2, ['X'])]), hint('Der Typ von <b>[X]</b> stimmt nicht mit der Deklaration überein. Es sollte eine Zahl sein.'), highlighted(['baujahr([], []).<br>', 'baujahr([[H|T]|T2],  <b><font color=red>[X]</b></font> ):-X>T, baujahr([T2], X).<br>']))], [ok, ok], [korrekt, korrekt], '').
test(exer14, 3, [declaration(sp, fahrzeug, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, fahrzeug, 2, fahrzeug/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, fahrzeug, 2, fahrzeug/2, main, 'A2', 2, -, number, 'Ältesten'))], 'fahrzeug([],[]).\n fahrzeug([_,K|R], [H|T]):-K>T, fahrzeug(R,[H|T]).\n fahrzeug([_,K|R], [H|T]):-K<T, fahrzeug(R,[_|K]).\n', [error(id(pre2e), penalty(0.3), poslist([pos(1, 0, 2, [])]), hint('Der Typ von <b>[]</b> stimmt nicht mit der Deklaration überein. Es sollte eine Zahl sein.'), highlighted(['fahrzeug([],  <b><font color=red>[]</b></font> ).<br>', 'fahrzeug([_, K|R], [H|T]):-K>T, fahrzeug(R, [H|T]).<br>', 'fahrzeug([_, K|R], [H|T]):-K<T, fahrzeug(R, [_|K]).<br>'])), error(id(pre2e), penalty(0.3), poslist([pos(2, 0, 2, ['H'|'T'])]), hint('Der Typ von <b>[H|T]</b> stimmt nicht mit der Deklaration überein. Es sollte eine Zahl sein.'), highlighted(['fahrzeug([], []).<br>', 'fahrzeug([_, K|R],  <b><font color=red>[H|T]</b></font> ):-K>T, fahrzeug(R, [H|T]).<br>', 'fahrzeug([_, K|R], [H|T]):-K<T, fahrzeug(R, [_|K]).<br>'])), error(id(pre2e), penalty(0.3), poslist([pos(3, 0, 2, ['H'|'T'])]), hint('Der Typ von <b>[H|T]</b> stimmt nicht mit der Deklaration überein. Es sollte eine Zahl sein.'), highlighted(['fahrzeug([], []).<br>', 'fahrzeug([_, K|R], [H|T]):-K>T, fahrzeug(R, [H|T]).<br>', 'fahrzeug([_, K|R],  <b><font color=red>[H|T]</b></font> ):-K<T, fahrzeug(R, [_|K]).<br>']))], [ok, ok, ok], [korrektkorrekt, korrekt, korrekt], '').
test(exer14, 4, [declaration(sp, aeltestes, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A2', 2, -, number, 'Ältesten'))], 'aeltestes([], Aeltestes).\n aeltestes([[_|Baujahr]|Restliste], Aeltestes):-Baujahr<Aeltestes, aeltestes(Restliste, Baujahr).\n aeltestes([[_|Baujahr]|Restliste], Aeltestes):-aeltestes(Restliste, Aeltestes).\n', [error(id(s7e), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>[]</b> sollte eine Nicht-Leer-Liste sein.'), highlighted(['aeltestes( <b><font color=red>[]</b></font> , Aeltestes).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-Baujahr<Aeltestes, aeltestes(Restliste, Baujahr).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-aeltestes(Restliste, Aeltestes).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(3, 0, 1, ['_'|'Baujahr'])]), hint('<b>[_|Baujahr]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['aeltestes([], Aeltestes).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-Baujahr<Aeltestes, aeltestes(Restliste, Baujahr).<br>', 'aeltestes( <b><font color=red>[[_|Baujahr]|Restliste]</b></font> , Aeltestes):-aeltestes(Restliste, Aeltestes).<br>'])), error(id(s8i), penalty(0.1), poslist([pos(3, 1, 2, 'Aeltestes')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>Aeltestes</b> und einer anderen Variable.'), highlighted(['aeltestes([], Aeltestes).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-Baujahr<Aeltestes, aeltestes(Restliste, Baujahr).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-aeltestes(Restliste,  <b><font color=red>Aeltestes</b></font> ).<br>'])), error(id(s8i), penalty(0.1), poslist([pos(3, 0, 1, ['_'|'Baujahr'])]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>[_|Baujahr]</b> und einer anderen Variable.'), highlighted(['aeltestes([], Aeltestes).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-Baujahr<Aeltestes, aeltestes(Restliste, Baujahr).<br>', 'aeltestes( <b><font color=red>[[_|Baujahr]|Restliste]</b></font> , Aeltestes):-aeltestes(Restliste, Aeltestes).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'Baujahr')]), hint('<b>Baujahr</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['aeltestes([], Aeltestes).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-Baujahr<Aeltestes, aeltestes(Restliste, Baujahr).<br>', 'aeltestes( <b><font color=red>[[_|Baujahr]|Restliste]</b></font> , Aeltestes):-aeltestes(Restliste, Aeltestes).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, ['_'|'Baujahr'])]), hint('<b>[_|Baujahr]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['aeltestes([], Aeltestes).<br>', 'aeltestes( <b><font color=red>[[_|Baujahr]|Restliste]</b></font> , Aeltestes):-Baujahr<Aeltestes, aeltestes(Restliste, Baujahr).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-aeltestes(Restliste, Aeltestes).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['aeltestes([], Aeltestes).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):- <b><font color=red>Baujahr<Aeltestes</b></font> ,  <b><font color=red>aeltestes(Restliste, Baujahr)</b></font> .<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-aeltestes(Restliste, Aeltestes).<br>'])), error(id(s8j), penalty(0.5), poslist([pos(2, 2, 2, 'Baujahr'), pos(2, 1, 2, 'Aeltestes')]), hint('<b>Aeltestes</b> soll mit einer Variable an der Position von <b>Baujahr</b> unifizieren.'), highlighted(['aeltestes([], Aeltestes).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-Baujahr< <b><font color=red>Aeltestes</b></font> , aeltestes(Restliste,  <b><font color=red>Baujahr</b></font> ).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-aeltestes(Restliste, Aeltestes).<br>'])), error(id(s4a1), penalty(0.5), poslist([pos(2, 0, 2, 'Aeltestes'), pos(2, 1, 2, 'Aeltestes')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['aeltestes([], Aeltestes).<br>', 'aeltestes([[_|Baujahr]|Restliste],  <b><font color=red>Aeltestes</b></font> ):-Baujahr< <b><font color=red>Aeltestes</b></font> , aeltestes(Restliste, Baujahr).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-aeltestes(Restliste, Aeltestes).<br>'])), error(id(post7a), penalty(0.8), poslist([pos(2, 1, 2, 'Aeltestes')]), hint('<b>Aeltestes</b> muss gebunden sein, bevor es in Vergleichsoperationen benutzt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['aeltestes([], Aeltestes).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-Baujahr< <b><font color=red>Aeltestes</b></font> , aeltestes(Restliste, Baujahr).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-aeltestes(Restliste, Aeltestes).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 2, 'Aeltestes')]), hint('<b>Aeltestes</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['aeltestes([],  <b><font color=red>Aeltestes</b></font> ).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-Baujahr<Aeltestes, aeltestes(Restliste, Baujahr).<br>', 'aeltestes([[_|Baujahr]|Restliste], Aeltestes):-aeltestes(Restliste, Aeltestes).<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer14, 5, [declaration(sp, jahr, [d('A1', +, list, 'Bestandsliste'), d('A2', -, list, 'Baujahr des ältesten Fahrzeugs')])], _G25414383, [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, jahr, 2, jahr/2, main, 'A2', 2, -, list, 'Baujahr des ältesten Fahrzeugs')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, jahr, 2, jahr/2, main, 'A1', 1, +, list, 'Bestandsliste'))], 'jahr([],[]).\n jahr([K,Jahr|Rest], Erg):-jahr(Rest, [Jahr|Erg]).\n', [error(id(d4), penalty(0.5), poslist([type, 2]), hint('Das Argument <b>A2</b> des Prädikats <b>jahr/2</b> hat nicht den richtigen Typ. Einer Argumentstelle wird der Typ Liste zugewiesen, wenn Informationen an dieser Stelle eine Liste darstellen. Lesen Sie den Aufgabentext erneut durch und finden Sie einen richtigen Typ für diese Argumentstelle.'))], [ok], ['Der Hinweis ist nicht verstaendlich formuliert. Was bedeutet der zweite Satz?'], '').
test(exer14, 6, [declaration(sp, baujahr, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, baujahr, 2, baujahr/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, baujahr, 2, baujahr/2, main, 'A2', 2, -, number, 'Ältesten'))], 'baujahr([],2000).\n baujahr([[H,Bj,_]|T], Bj):-Bj<Bj2, baujahr(T,Bj2).\n', [error(id(s7e), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>[]</b> sollte eine Nicht-Leer-Liste sein.'), highlighted(['baujahr( <b><font color=red>[]</b></font> , 2000).<br>', 'baujahr([[H, Bj, _]|T], Bj):-Bj<Bj2, baujahr(T, Bj2).<br>'])), error(id(s7k), penalty(0.8), poslist([pos(1, 0, 2, 2000)]), hint('An der Stelle von <b>2000</b> erwarten wir eine Variable.'), highlighted(['baujahr([],  <b><font color=red>2000</b></font> ).<br>', 'baujahr([[H, Bj, _]|T], Bj):-Bj<Bj2, baujahr(T, Bj2).<br>'])), error(id(s7h), penalty(0.01), poslist([]), hint('Eine Rekursionsklausel fehlt. Oder haben Sie ein rekursives Subziel vergessen?'), highlighted([' <b><font color=red>baujahr([], 2000)</b></font> .<br>', ' <b><font color=red>baujahr([[H, Bj, _]|T], Bj)</b></font> :- <b><font color=red>Bj<Bj2</b></font> ,  <b><font color=red>baujahr(T, Bj2)</b></font> .<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, ['H', 'Bj', '_'])]), hint('<b>[H, Bj, _]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['baujahr([], 2000).<br>', 'baujahr( <b><font color=red>[[H, Bj, _]|T]</b></font> , Bj):-Bj<Bj2, baujahr(T, Bj2).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['baujahr([], 2000).<br>', 'baujahr([[H, Bj, _]|T], Bj):- <b><font color=red>Bj<Bj2</b></font> ,  <b><font color=red>baujahr(T, Bj2)</b></font> .<br>'])), error(id(s8n), penalty(0.3), poslist([pos(2, 1)]), hint('Der Operator <b><</b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>=<</b> ist empfohlen.'), highlighted(['baujahr([], 2000).<br>', 'baujahr([[H, Bj, _]|T], Bj):- <b><font color=red>Bj<Bj2</b></font> , baujahr(T, Bj2).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['baujahr([], 2000).<br>', 'baujahr( <b><font color=red>[[H, Bj, _]|T]</b></font> , Bj):-Bj<Bj2, baujahr(T, Bj2).<br>'])), error(id(post7a), penalty(0.8), poslist([pos(2, 1, 2, 'Bj2')]), hint('<b>Bj2</b> muss gebunden sein, bevor es in Vergleichsoperationen benutzt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['baujahr([], 2000).<br>', 'baujahr([[H, Bj, _]|T], Bj):-Bj< <b><font color=red>Bj2</b></font> , baujahr(T, Bj2).<br>']))], [ok, ok, ok, ok, ok, nok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, 'welcher Operator? er erscheint in der Aufgabenstellung oben aber nicht hier', korrekt, korrekt], '').
test(exer14, 7, [declaration(sp, aeltestes, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A2', 2, -, number, 'Ältesten'))], 'aeltestes([],2000).\n aeltestes([[_|Jahr]|Rest],AltesJahr):-Jahr<AltesJahr, AltesJahr is Jahr, aeltestes(Rest,AltesJahr).\n aeltestes([[_|Jahr]|Rest],A):-Jahr>=A, aeltestes(Rest,A).\n', [error(id(s7e), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>[]</b> sollte eine Nicht-Leer-Liste sein.'), highlighted(['aeltestes( <b><font color=red>[]</b></font> , 2000).<br>', 'aeltestes([[_|Jahr]|Rest], AltesJahr):-Jahr<AltesJahr, AltesJahr is Jahr, aeltestes(Rest, AltesJahr).<br>', 'aeltestes([[_|Jahr]|Rest], A):-Jahr>=A, aeltestes(Rest, A).<br>'])), error(id(s7k), penalty(0.8), poslist([pos(1, 0, 2, 2000)]), hint('An der Stelle von <b>2000</b> erwarten wir eine Variable.'), highlighted(['aeltestes([],  <b><font color=red>2000</b></font> ).<br>', 'aeltestes([[_|Jahr]|Rest], AltesJahr):-Jahr<AltesJahr, AltesJahr is Jahr, aeltestes(Rest, AltesJahr).<br>', 'aeltestes([[_|Jahr]|Rest], A):-Jahr>=A, aeltestes(Rest, A).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(3, 0, 1, ['_'|'Jahr'])]), hint('<b>[_|Jahr]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['aeltestes([], 2000).<br>', 'aeltestes([[_|Jahr]|Rest], AltesJahr):-Jahr<AltesJahr, AltesJahr is Jahr, aeltestes(Rest, AltesJahr).<br>', 'aeltestes( <b><font color=red>[[_|Jahr]|Rest]</b></font> , A):-Jahr>=A, aeltestes(Rest, A).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(3, 2), pos(3, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['aeltestes([], 2000).<br>', 'aeltestes([[_|Jahr]|Rest], AltesJahr):-Jahr<AltesJahr, AltesJahr is Jahr, aeltestes(Rest, AltesJahr).<br>', 'aeltestes([[_|Jahr]|Rest], A):- <b><font color=red>Jahr>=A</b></font> ,  <b><font color=red>aeltestes(Rest, A)</b></font> .<br>'])), error(id(s8n), penalty(0.3), poslist([pos(3, 1)]), hint('Der Operator <b>>=</b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>></b> ist empfohlen.'), highlighted(['aeltestes([], 2000).<br>', 'aeltestes([[_|Jahr]|Rest], AltesJahr):-Jahr<AltesJahr, AltesJahr is Jahr, aeltestes(Rest, AltesJahr).<br>', 'aeltestes([[_|Jahr]|Rest], A):- <b><font color=red>Jahr>=A</b></font> , aeltestes(Rest, A).<br>'])), error(id(post7a), penalty(0.8), poslist([pos(3, 1, 2, 'A')]), hint('<b>A</b> muss gebunden sein, bevor es in Vergleichsoperationen benutzt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['aeltestes([], 2000).<br>', 'aeltestes([[_|Jahr]|Rest], AltesJahr):-Jahr<AltesJahr, AltesJahr is Jahr, aeltestes(Rest, AltesJahr).<br>', 'aeltestes([[_|Jahr]|Rest], A):-Jahr>= <b><font color=red>A</b></font> , aeltestes(Rest, A).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, ['_'|'Jahr'])]), hint('<b>[_|Jahr]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['aeltestes([], 2000).<br>', 'aeltestes( <b><font color=red>[[_|Jahr]|Rest]</b></font> , AltesJahr):-Jahr<AltesJahr, AltesJahr is Jahr, aeltestes(Rest, AltesJahr).<br>', 'aeltestes([[_|Jahr]|Rest], A):-Jahr>=A, aeltestes(Rest, A).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 3), pos(2, 1)]), hint('Das rekursive Subziel <b>3</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['aeltestes([], 2000).<br>', 'aeltestes([[_|Jahr]|Rest], AltesJahr):- <b><font color=red>Jahr<AltesJahr</b></font> , AltesJahr is Jahr,  <b><font color=red>aeltestes(Rest, AltesJahr)</b></font> .<br>', 'aeltestes([[_|Jahr]|Rest], A):-Jahr>=A, aeltestes(Rest, A).<br>'])), error(id(s5b), penalty(0.1), poslist([pos(2, 2)]), hint('<b>AltesJahr is Jahr</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['aeltestes([], 2000).<br>', 'aeltestes([[_|Jahr]|Rest], AltesJahr):-Jahr<AltesJahr,  <b><font color=red>AltesJahr is Jahr</b></font> , aeltestes(Rest, AltesJahr).<br>', 'aeltestes([[_|Jahr]|Rest], A):-Jahr>=A, aeltestes(Rest, A).<br>'])), error(id(s8j), penalty(0.5), poslist([pos(2, 3, 2, 'AltesJahr'), pos(2, 1, 1, 'Jahr')]), hint('<b>Jahr</b> soll mit einer Variable an der Position von <b>AltesJahr</b> unifizieren.'), highlighted(['aeltestes([], 2000).<br>', 'aeltestes([[_|Jahr]|Rest], AltesJahr):- <b><font color=red>Jahr</b></font> <AltesJahr, AltesJahr is Jahr, aeltestes(Rest,  <b><font color=red>AltesJahr</b></font> ).<br>', 'aeltestes([[_|Jahr]|Rest], A):-Jahr>=A, aeltestes(Rest, A).<br>'])), error(id(s8j), penalty(0.5), poslist([pos(2, 0, 1, ['_'|'Jahr']), pos(2, 1, 2, 'AltesJahr')]), hint('<b>AltesJahr</b> soll mit einer Variable an der Position von <b>[_|Jahr]</b> unifizieren.'), highlighted(['aeltestes([], 2000).<br>', 'aeltestes( <b><font color=red>[[_|Jahr]|Rest]</b></font> , AltesJahr):-Jahr< <b><font color=red>AltesJahr</b></font> , AltesJahr is Jahr, aeltestes(Rest, AltesJahr).<br>', 'aeltestes([[_|Jahr]|Rest], A):-Jahr>=A, aeltestes(Rest, A).<br>'])), error(id(s4a1), penalty(0.5), poslist([pos(2, 0, 2, 'AltesJahr'), pos(2, 3, 2, 'AltesJahr')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['aeltestes([], 2000).<br>', 'aeltestes([[_|Jahr]|Rest],  <b><font color=red>AltesJahr</b></font> ):-Jahr<AltesJahr, AltesJahr is Jahr, aeltestes(Rest,  <b><font color=red>AltesJahr</b></font> ).<br>', 'aeltestes([[_|Jahr]|Rest], A):-Jahr>=A, aeltestes(Rest, A).<br>'])), error(id(post7a), penalty(0.8), poslist([pos(2, 1, 2, 'AltesJahr')]), hint('<b>AltesJahr</b> muss gebunden sein, bevor es in Vergleichsoperationen benutzt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['aeltestes([], 2000).<br>', 'aeltestes([[_|Jahr]|Rest], AltesJahr):-Jahr< <b><font color=red>AltesJahr</b></font> , AltesJahr is Jahr, aeltestes(Rest, AltesJahr).<br>', 'aeltestes([[_|Jahr]|Rest], A):-Jahr>=A, aeltestes(Rest, A).<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok, nok, nok, ok, nok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, 'korrekt - die Anzeige des Fehlers ist jedoch falsch', 'korrekt - auch hier: fehlerhafte Anzeige', korrekt, 'Fehlerhafte Darstellung', korrekt], '').
test(exer14, 8, [declaration(sp, das_aelteste, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')]), declaration(sp, hpdas_aelteste, das_aelteste/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, das_aelteste, 2, das_aelteste/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, das_aelteste, 2, das_aelteste/2, main, 'A2', 2, -, number, 'Ältesten')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, hpdas_aelteste, 3, das_aelteste/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, hpdas_aelteste, 3, das_aelteste/2, accu, 'A3', 3, -, number, 'Baujahr')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, hpdas_aelteste, 3, das_aelteste/2, accu, 'A2', 2, +, number, accu))], 'das_aelteste(Bestand,Ausgabe):-hpdas_aelteste(Bestand,9999,Ausgabe).\n hpdas_aelteste([[_|BJ]|Rest],AEBJ,Ausg):-AEBS>BS, hpdas_aelteste(Rest, BJ, Ausg).\n hpdas_aelteste([[_,BJ]|Rest], AEBJ, Ausg):-AEBJ=<BJ, hpdas_aelteste(Rest, AEBJ, Ausg).\n', [error(id(g6), penalty(0.5), poslist([pos(2)]), hint('Wenn Sie die Rekursion verwenden und jeweils ein Element zum rekursiven Subziel übergeben, dann brauchen Sie einen und nur einen Rekursionsabschluss.'), highlighted(['das_aelteste(Bestand, Ausgabe):-hpdas_aelteste(Bestand, 9999, Ausgabe).<br>', ' <b><font color=red>hpdas_aelteste([[_|BJ]|Rest], AEBJ, Ausg)</b></font> :- <b><font color=red>AEBS>BS</b></font> ,  <b><font color=red>hpdas_aelteste(Rest, BJ, Ausg)</b></font> .<br>', 'hpdas_aelteste([[_, BJ]|Rest], AEBJ, Ausg):-AEBJ=<BJ, hpdas_aelteste(Rest, AEBJ, Ausg).<br>']))], [nok], ['wie ist das genau gemeint?'], '').
test(exer14, 9, [declaration(sp, das_aelteste, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')]), declaration(sp, amaeltesten, das_aelteste/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, das_aelteste, 2, das_aelteste/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, das_aelteste, 2, das_aelteste/2, main, 'A2', 2, -, number, 'Ältesten')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, amaeltesten, 3, das_aelteste/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, amaeltesten, 3, das_aelteste/2, accu, 'A3', 3, -, number, 'Baujahr')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, amaeltesten, 3, das_aelteste/2, accu, 'A2', 2, +, number, accu))], 'das_aelteste(Bestand,Ausgabe):-amaeltesten(Bestand,9999,Ausgabe).\n amaeltesten([],Acc,Acc).\n amaeltesten([[K,BS]|T],Acc,E):-BJ=<Acc, amaeltesten(T,BJ,E).\n amaeltesten([[K,BS]|T],Acc,E):-BJ>Acc, amaeltesten(T,Acc,E).\n', [error(id(s8i), penalty(0.1), poslist([pos(4, 0, 1, ['K', 'BS'])]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>[K, BS]</b> und einer anderen Variable.'), highlighted(['das_aelteste(Bestand, Ausgabe):-amaeltesten(Bestand, 9999, Ausgabe).<br>', 'amaeltesten([], Acc, Acc).<br>', 'amaeltesten([[K, BS]|T], Acc, E):-BJ=<Acc, amaeltesten(T, BJ, E).<br>', 'amaeltesten( <b><font color=red>[[K, BS]|T]</b></font> , Acc, E):-BJ>Acc, amaeltesten(T, Acc, E).<br>'])), error(id(s8j), penalty(0.5), poslist([pos(4, 0, 1, ['K', 'BS']), pos(4, 1, 1, 'BJ')]), hint('<b>BJ</b> soll mit einer Variable an der Position von <b>[K, BS]</b> unifizieren.'), highlighted(['das_aelteste(Bestand, Ausgabe):-amaeltesten(Bestand, 9999, Ausgabe).<br>', 'amaeltesten([], Acc, Acc).<br>', 'amaeltesten([[K, BS]|T], Acc, E):-BJ=<Acc, amaeltesten(T, BJ, E).<br>', 'amaeltesten( <b><font color=red>[[K, BS]|T]</b></font> , Acc, E):- <b><font color=red>BJ</b></font> >Acc, amaeltesten(T, Acc, E).<br>'])), error(id(s1d2), penalty(0.5), poslist([pos(4, 0, 1, ['BS']), pos(4, 1, 1, 'BJ')]), hint(' Eine Unifikation zwischen der Variable im Term <b>[BS]</b> und einer Variable des Terms <b>BJ</b> ist erforderlich.'), highlighted(['das_aelteste(Bestand, Ausgabe):-amaeltesten(Bestand, 9999, Ausgabe).<br>', 'amaeltesten([], Acc, Acc).<br>', 'amaeltesten([[K, BS]|T], Acc, E):-BJ=<Acc, amaeltesten(T, BJ, E).<br>', 'amaeltesten( <b><font color=red>[[K, BS]|T]</b></font> , Acc, E):- <b><font color=red>BJ</b></font> >Acc, amaeltesten(T, Acc, E).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(4, 0, 1, 'K')]), hint('<b>K</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['das_aelteste(Bestand, Ausgabe):-amaeltesten(Bestand, 9999, Ausgabe).<br>', 'amaeltesten([], Acc, Acc).<br>', 'amaeltesten([[K, BS]|T], Acc, E):-BJ=<Acc, amaeltesten(T, BJ, E).<br>', 'amaeltesten( <b><font color=red>[[K, BS]|T]</b></font> , Acc, E):-BJ>Acc, amaeltesten(T, Acc, E).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(4, 0, 1, 'BS')]), hint('<b>BS</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['das_aelteste(Bestand, Ausgabe):-amaeltesten(Bestand, 9999, Ausgabe).<br>', 'amaeltesten([], Acc, Acc).<br>', 'amaeltesten([[K, BS]|T], Acc, E):-BJ=<Acc, amaeltesten(T, BJ, E).<br>', 'amaeltesten( <b><font color=red>[[K, BS]|T]</b></font> , Acc, E):-BJ>Acc, amaeltesten(T, Acc, E).<br>'])), error(id(post5c), penalty(0.8), poslist([pos(4, 1, 1, 'BJ')]), hint('<b>BJ</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['das_aelteste(Bestand, Ausgabe):-amaeltesten(Bestand, 9999, Ausgabe).<br>', 'amaeltesten([], Acc, Acc).<br>', 'amaeltesten([[K, BS]|T], Acc, E):-BJ=<Acc, amaeltesten(T, BJ, E).<br>', 'amaeltesten([[K, BS]|T], Acc, E):- <b><font color=red>BJ</b></font> >Acc, amaeltesten(T, Acc, E).<br>'])), error(id(post7a), penalty(0.8), poslist([pos(4, 1, 1, 'BJ')]), hint('<b>BJ</b> muss gebunden sein, bevor es in Vergleichsoperationen benutzt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['das_aelteste(Bestand, Ausgabe):-amaeltesten(Bestand, 9999, Ausgabe).<br>', 'amaeltesten([], Acc, Acc).<br>', 'amaeltesten([[K, BS]|T], Acc, E):-BJ=<Acc, amaeltesten(T, BJ, E).<br>', 'amaeltesten([[K, BS]|T], Acc, E):- <b><font color=red>BJ</b></font> >Acc, amaeltesten(T, Acc, E).<br>'])), error(id(s8i), penalty(0.1), poslist([pos(3, 0, 1, ['K', 'BS'])]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>[K, BS]</b> und einer anderen Variable.'), highlighted(['das_aelteste(Bestand, Ausgabe):-amaeltesten(Bestand, 9999, Ausgabe).<br>', 'amaeltesten([], Acc, Acc).<br>', 'amaeltesten( <b><font color=red>[[K, BS]|T]</b></font> , Acc, E):-BJ=<Acc, amaeltesten(T, BJ, E).<br>', 'amaeltesten([[K, BS]|T], Acc, E):-BJ>Acc, amaeltesten(T, Acc, E).<br>'])), error(id(s1d2), penalty(0.5), poslist([pos(3, 0, 1, ['BS']), pos(3, 1, 1, 'BJ')]), hint(' Eine Unifikation zwischen der Variable im Term <b>[BS]</b> und einer Variable des Terms <b>BJ</b> ist erforderlich.'), highlighted(['das_aelteste(Bestand, Ausgabe):-amaeltesten(Bestand, 9999, Ausgabe).<br>', 'amaeltesten([], Acc, Acc).<br>', 'amaeltesten( <b><font color=red>[[K, BS]|T]</b></font> , Acc, E):- <b><font color=red>BJ</b></font> =<Acc, amaeltesten(T, BJ, E).<br>', 'amaeltesten([[K, BS]|T], Acc, E):-BJ>Acc, amaeltesten(T, Acc, E).<br>'])), error(id(s1d2), penalty(0.5), poslist([pos(3, 0, 1, ['BS']), pos(3, 2, 2, 'BJ')]), hint(' Eine Unifikation zwischen der Variable im Term <b>[BS]</b> und einer Variable des Terms <b>BJ</b> ist erforderlich.'), highlighted(['das_aelteste(Bestand, Ausgabe):-amaeltesten(Bestand, 9999, Ausgabe).<br>', 'amaeltesten([], Acc, Acc).<br>', 'amaeltesten( <b><font color=red>[[K, BS]|T]</b></font> , Acc, E):-BJ=<Acc, amaeltesten(T,  <b><font color=red>BJ</b></font> , E).<br>', 'amaeltesten([[K, BS]|T], Acc, E):-BJ>Acc, amaeltesten(T, Acc, E).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'K')]), hint('<b>K</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['das_aelteste(Bestand, Ausgabe):-amaeltesten(Bestand, 9999, Ausgabe).<br>', 'amaeltesten([], Acc, Acc).<br>', 'amaeltesten( <b><font color=red>[[K, BS]|T]</b></font> , Acc, E):-BJ=<Acc, amaeltesten(T, BJ, E).<br>', 'amaeltesten([[K, BS]|T], Acc, E):-BJ>Acc, amaeltesten(T, Acc, E).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'BS')]), hint('<b>BS</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['das_aelteste(Bestand, Ausgabe):-amaeltesten(Bestand, 9999, Ausgabe).<br>', 'amaeltesten([], Acc, Acc).<br>', 'amaeltesten( <b><font color=red>[[K, BS]|T]</b></font> , Acc, E):-BJ=<Acc, amaeltesten(T, BJ, E).<br>', 'amaeltesten([[K, BS]|T], Acc, E):-BJ>Acc, amaeltesten(T, Acc, E).<br>'])), error(id(post7a), penalty(0.8), poslist([pos(3, 1, 1, 'BJ')]), hint('<b>BJ</b> muss gebunden sein, bevor es in Vergleichsoperationen benutzt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['das_aelteste(Bestand, Ausgabe):-amaeltesten(Bestand, 9999, Ausgabe).<br>', 'amaeltesten([], Acc, Acc).<br>', 'amaeltesten([[K, BS]|T], Acc, E):- <b><font color=red>BJ</b></font> =<Acc, amaeltesten(T, BJ, E).<br>', 'amaeltesten([[K, BS]|T], Acc, E):-BJ>Acc, amaeltesten(T, Acc, E).<br>']))], [ok, ok, nok, ok, ok, ok, ok, ok, nok, nok, ok, ok, ok], [korrekt, korrekt, 'es gibt keinen Term [BS]', korrekt, korrekt, korrekt, korrekt, korrekt, 'korrekt - jedoch fehlerhafte Anzeige und es gibt keinen Term [BS]', 'siehe oben', korrekt, korrekt, korrekt], 'Fehlerhafte Anzeigen!').
test(exer14, 10, [declaration(sp, aeltestes, [d('A1', +, list, 'Bestandsliste'), d('A2', -, list, 'Baujahr des ältesten Fahrzeugs')])], _G25417077, [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A2', 2, -, list, 'Baujahr des ältesten Fahrzeugs')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A1', 1, +, list, 'Bestandsliste'))], 'aeltestes(Bj, []).\n aeltestes(Bj1, [[_,Bj]|T]):- Bj1<Bj, aeltestes(Bj, T).\n aeltestes(Bj1, [[_,Bj]|T]):- Bj1>=Bj, aeltestes(Bj1, T).\n', [error(id(d4), penalty(0.5), poslist([type, 2]), hint('Das Argument <b>A2</b> des Prädikats <b>aeltestes/2</b> hat nicht den richtigen Typ. Einer Argumentstelle wird der Typ Liste zugewiesen, wenn Informationen an dieser Stelle eine Liste darstellen. Lesen Sie den Aufgabentext erneut durch und finden Sie einen richtigen Typ für diese Argumentstelle.'))], [nok], ['korrekt, allerdings zweideutige Formulierung des 2. Satzes!'], '').
test(exer14, 11, [declaration(sp, oldes_h, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')]), declaration(sp, oldes_h, oldes_h/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, list, accu), d('A3', -, list, 'Baujahr')])], _G25417419, [map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg3', 3, +, number, ['Akkumulator', accumulator]), predicatedec(sp, oldes_h, 3, oldes_h/2, accu, 'A2', 2, +, list, accu)), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, oldes_h, 3, oldes_h/2, accu, 'A3', 3, -, list, 'Baujahr')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, oldes_h, 3, oldes_h/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, oldes_h, 2, oldes_h/2, main, 'A2', 2, -, number, 'Ältesten')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, oldes_h, 2, oldes_h/2, main, 'A1', 1, +, list, 'Bestandsliste'))], 'oldes_h([], [Kkz, Jahr], [Fkz, Jahr]).\n oldes_h([[Fkz,Jahr]|Rest], [OFkz, OJahr], Erg):-Jahr >OJahr, oldes_h(Rest, [OFkz, OJahr], Erg).\n oldes_h([[Fkz,Jahr]|Rest], [OFkz, OJahr], Erg):-Jahr=<OJahr, oldes_h(Rest, [Fkz, Jahr], Erg).\n', [error(id(d4), penalty(0.5), poslist([type, 2]), hint('Das Argument <b>A2</b> des Prädikats <b>oldes_h/3</b> hat nicht den richtigen Typ. Einer Argumentstelle wird der Typ Liste zugewiesen, wenn Informationen an dieser Stelle eine Liste darstellen. Lesen Sie den Aufgabentext erneut durch und finden Sie einen richtigen Typ für diese Argumentstelle.')), error(id(d4), penalty(0.5), poslist([type, 3]), hint('Das Argument <b>A3</b> des Prädikats <b>oldes_h/3</b> hat nicht den richtigen Typ. Einer Argumentstelle wird der Typ Liste zugewiesen, wenn Informationen an dieser Stelle eine Liste darstellen. Lesen Sie den Aufgabentext erneut durch und finden Sie einen richtigen Typ für diese Argumentstelle.'))], [ok, ok], ['', ''], 'korrekt - aber die Formulierung aender! (2.Satz) ').
test(exer14, 12, [declaration(sp, aeltestes, [d('A1', -, number, 'Ältesten'), d('A2', +, list, 'Bestandsliste')])], [recursivecase, recursivecase, basecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A1', 1, -, number, 'Ältesten'))], 'aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2<Bauj, aeltestes(Bauj2, Rest).\n aeltestes(Bauj, [[Nr,Bauj2]|Rest]):-Bauj2>=Bauj, aeltestes(Bauj, Rest).\n aeltestes(Bauj, []).\n', [error(id(s7e), penalty(0.8), poslist([pos(3, 0, 2)]), hint('An der Stelle von <b>[]</b> sollte eine Nicht-Leer-Liste sein.'), highlighted(['aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2<Bauj, aeltestes(Bauj2, Rest).<br>', 'aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2>=Bauj, aeltestes(Bauj, Rest).<br>', 'aeltestes(Bauj,  <b><font color=red>[]</b></font> ).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2<Bauj, aeltestes(Bauj2, Rest).<br>', 'aeltestes(Bauj, [[Nr, Bauj2]|Rest]):- <b><font color=red>Bauj2>=Bauj</b></font> ,  <b><font color=red>aeltestes(Bauj, Rest)</b></font> .<br>', 'aeltestes(Bauj, []).<br>'])), error(id(s8n), penalty(0.3), poslist([pos(2, 1)]), hint('Der Operator <b>>=</b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>></b> ist empfohlen.'), highlighted(['aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2<Bauj, aeltestes(Bauj2, Rest).<br>', 'aeltestes(Bauj, [[Nr, Bauj2]|Rest]):- <b><font color=red>Bauj2>=Bauj</b></font> , aeltestes(Bauj, Rest).<br>', 'aeltestes(Bauj, []).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 2, 'Nr')]), hint('<b>Nr</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2<Bauj, aeltestes(Bauj2, Rest).<br>', 'aeltestes(Bauj,  <b><font color=red>[[Nr, Bauj2]|Rest]</b></font> ):-Bauj2>=Bauj, aeltestes(Bauj, Rest).<br>', 'aeltestes(Bauj, []).<br>'])), error(id(post7a), penalty(0.8), poslist([pos(2, 1, 2, 'Bauj')]), hint('<b>Bauj</b> muss gebunden sein, bevor es in Vergleichsoperationen benutzt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2<Bauj, aeltestes(Bauj2, Rest).<br>', 'aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2>= <b><font color=red>Bauj</b></font> , aeltestes(Bauj, Rest).<br>', 'aeltestes(Bauj, []).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(1, 2), pos(1, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['aeltestes(Bauj, [[Nr, Bauj2]|Rest]):- <b><font color=red>Bauj2<Bauj</b></font> ,  <b><font color=red>aeltestes(Bauj2, Rest)</b></font> .<br>', 'aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2>=Bauj, aeltestes(Bauj, Rest).<br>', 'aeltestes(Bauj, []).<br>'])), error(id(s8j), penalty(0.5), poslist([pos(1, 2, 1, 'Bauj2'), pos(1, 1, 2, 'Bauj')]), hint('<b>Bauj</b> soll mit einer Variable an der Position von <b>Bauj2</b> unifizieren.'), highlighted(['aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2< <b><font color=red>Bauj</b></font> , aeltestes( <b><font color=red>Bauj2</b></font> , Rest).<br>', 'aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2>=Bauj, aeltestes(Bauj, Rest).<br>', 'aeltestes(Bauj, []).<br>'])), error(id(s4a1), penalty(0.5), poslist([pos(1, 0, 1, 'Bauj'), pos(1, 1, 2, 'Bauj')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['aeltestes( <b><font color=red>Bauj</b></font> , [[Nr, Bauj2]|Rest]):-Bauj2< <b><font color=red>Bauj</b></font> , aeltestes(Bauj2, Rest).<br>', 'aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2>=Bauj, aeltestes(Bauj, Rest).<br>', 'aeltestes(Bauj, []).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(1, 0, 2, 'Nr')]), hint('<b>Nr</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['aeltestes(Bauj,  <b><font color=red>[[Nr, Bauj2]|Rest]</b></font> ):-Bauj2<Bauj, aeltestes(Bauj2, Rest).<br>', 'aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2>=Bauj, aeltestes(Bauj, Rest).<br>', 'aeltestes(Bauj, []).<br>'])), error(id(post7a), penalty(0.8), poslist([pos(1, 1, 2, 'Bauj')]), hint('<b>Bauj</b> muss gebunden sein, bevor es in Vergleichsoperationen benutzt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2< <b><font color=red>Bauj</b></font> , aeltestes(Bauj2, Rest).<br>', 'aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2>=Bauj, aeltestes(Bauj, Rest).<br>', 'aeltestes(Bauj, []).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(3, 0, 1, 'Bauj')]), hint('<b>Bauj</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2<Bauj, aeltestes(Bauj2, Rest).<br>', 'aeltestes(Bauj, [[Nr, Bauj2]|Rest]):-Bauj2>=Bauj, aeltestes(Bauj, Rest).<br>', 'aeltestes( <b><font color=red>Bauj</b></font> , []).<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer14, 13, [declaration(sp, oldest, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten'), d('A3', -, list, 'List des ältesten Fahrzeugs')])], _G25418233, [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, oldest, 3, oldest/3, main, 'A2', 2, -, number, 'Ältesten')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, oldest, 3, oldest/3, main, 'A1', 1, +, list, 'Bestandsliste'))], 'oldest(Liste, J, Erg):- length(Erg, 1), older(List, J, Erg).\n oldest(List, J, Erg):- J1 is J+1, oldest(List, J1, Erg).\n', [error(id(d2b), penalty(0.1), poslist([pred, oldest]), hint('Die Deklaration für das Prädikat <b>oldest/3</b> hat mehr Argumentstellen als erforderlich.'))], [ok], [korrekt], '').
test(exer14, 14, [declaration(sp, aeltestes, [d('A1', +, list, 'Bestandsliste'), d('A2', -, list, 'Ältesten')])], _G25418384, [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A2', 2, -, list, 'Ältesten')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A1', 1, +, list, 'Bestandsliste'))], 'aeltestes([], []).\n aeltestes([KZ, BJ, KZ1, BJ1|Rest], [KZ, BJ, RestX]):- NJ<BJ1,aeltestes([KZ1, BJ1|Rest], [RestX]).\n aeltestes([KZ, BJ, KZ1,BJ1|Rest], [KZ1, BJ1,RestX]):- BJ>BJ1,aeltestes([KZ, BJ|Rest], [KZ,BJ|RestX]).\n', [error(id(d4), penalty(0.5), poslist([type, 2]), hint('Das Argument <b>A2</b> des Prädikats <b>aeltestes/2</b> hat nicht den richtigen Typ. Einer Argumentstelle wird der Typ Liste zugewiesen, wenn Informationen an dieser Stelle eine Liste darstellen. Lesen Sie den Aufgabentext erneut durch und finden Sie einen richtigen Typ für diese Argumentstelle.'))], [ok], [korrekt], 'Formulierung aendern!').
test(exer14, 15, [declaration(sp, maxalt_f, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, maxalt_f, 2, maxalt_f/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, maxalt_f, 2, maxalt_f/2, main, 'A1', 1, -, number, 'Ältesten'))], 'maxalt_f([[X|_]], X).\n maxalt_f([[Kfz|Alter], [_|Alter2]|Rest], Erg):-Alter>Alter2,maxalt_f([[Kfz|Alter]|Rest], Erg).\n \r\nmaxalt_f([_|Alter], [[Kfz|AlterZ]|Rest], Erg):- Alter=<Alter2, maxalt_f([[Kfz|Alter2]|Rest], Erg).\n', [error(id(pre1), penalty(0.3), poslist([pos(3)]), hint('Die <b>3. Klausel</b> stimmt nicht mit der Deklaration überein. Der Klauselkopf hat zu wenige oder zu viele Argumente oder <b>maxalt_f/3</b> ist noch nicht deklariert!'), highlighted(['maxalt_f([[X|_]], X).<br>', 'maxalt_f([[Kfz|Alter], [_|Alter2]|Rest], Erg):-Alter>Alter2, maxalt_f([[Kfz|Alter]|Rest], Erg).<br>', ' <b><font color=red>maxalt_f([_|Alter], [[Kfz|AlterZ]|Rest], Erg)</b></font> :- <b><font color=red>Alter=<Alter2</b></font> ,  <b><font color=red>maxalt_f([[Kfz|Alter2]|Rest], Erg)</b></font> .<br>'])), error(id(pre2e), penalty(0.3), poslist([pos(1, 0, 1, [['X'|'_']])]), hint('Der Typ von <b>[[X|_]]</b> stimmt nicht mit der Deklaration überein. Es sollte eine Zahl sein.'), highlighted(['maxalt_f( <b><font color=red>[[X|_]]</b></font> , X).<br>', 'maxalt_f([[Kfz|Alter], [_|Alter2]|Rest], Erg):-Alter>Alter2, maxalt_f([[Kfz|Alter]|Rest], Erg).<br>', 'maxalt_f([_|Alter], [[Kfz|AlterZ]|Rest], Erg):-Alter=<Alter2, maxalt_f([[Kfz|Alter2]|Rest], Erg).<br>'])), error(id(pre2e), penalty(0.3), poslist([pos(2, 0, 1, [['Kfz'|'Alter'], ['_'|'Alter2']|'Rest'])]), hint('Der Typ von <b>[[Kfz|Alter], [_|Alter2]|Rest]</b> stimmt nicht mit der Deklaration überein. Es sollte eine Zahl sein.'), highlighted(['maxalt_f([[X|_]], X).<br>', 'maxalt_f( <b><font color=red>[[Kfz|Alter], [_|Alter2]|Rest]</b></font> , Erg):-Alter>Alter2, maxalt_f([[Kfz|Alter]|Rest], Erg).<br>', 'maxalt_f([_|Alter], [[Kfz|AlterZ]|Rest], Erg):-Alter=<Alter2, maxalt_f([[Kfz|Alter2]|Rest], Erg).<br>'])), error(id(pre3b), penalty(0.3), poslist([pos(3)]), hint('Sie haben diese Klausel als Rekursionsklausel gewählt, jedoch existiert kein rekursives Subziel in dieser Klausel.'), highlighted(['maxalt_f([[X|_]], X).<br>', 'maxalt_f([[Kfz|Alter], [_|Alter2]|Rest], Erg):-Alter>Alter2, maxalt_f([[Kfz|Alter]|Rest], Erg).<br>', ' <b><font color=red>maxalt_f([_|Alter], [[Kfz|AlterZ]|Rest], Erg)</b></font> :- <b><font color=red>Alter=<Alter2</b></font> ,  <b><font color=red>maxalt_f([[Kfz|Alter2]|Rest], Erg)</b></font> .<br>']))], [ok, ok, ok, ok], ['korrekt - zu viele!', korrekt, korrekt, korrekt], 'Fehlerhafte Darstellung der Studentenloesungen').
test(exer14, 16, [declaration(sp, kfz_sw, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, kfz_sw, 2, maxalt_f/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, kfz_sw, 2, maxalt_f/2, main, 'A2', 2, -, number, 'Ältesten'))], 'kfz_sw([],Bj).\n kfz_sw([[_|Jahr]|R],Bj):- kfz_sw(R,Bj), Bj<Jahr.\n kfz_sw([[_|Jahr]|R],Bj):-kfz_sw(R,Bj), Bj is Jahr.\n', [error(id(s7e), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>[]</b> sollte eine Nicht-Leer-Liste sein.'), highlighted(['kfz_sw( <b><font color=red>[]</b></font> , Bj).<br>', 'kfz_sw([[_|Jahr]|R], Bj):-kfz_sw(R, Bj), Bj<Jahr.<br>', 'kfz_sw([[_|Jahr]|R], Bj):-kfz_sw(R, Bj), Bj is Jahr.<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, ['_'|'Jahr'])]), hint('<b>[_|Jahr]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['kfz_sw([], Bj).<br>', 'kfz_sw( <b><font color=red>[[_|Jahr]|R]</b></font> , Bj):-kfz_sw(R, Bj), Bj<Jahr.<br>', 'kfz_sw([[_|Jahr]|R], Bj):-kfz_sw(R, Bj), Bj is Jahr.<br>'])), error(id(s1f), penalty(0.5), poslist([pos(3, 0, 1, ['_'|'Jahr'])]), hint('<b>[_|Jahr]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['kfz_sw([], Bj).<br>', 'kfz_sw([[_|Jahr]|R], Bj):-kfz_sw(R, Bj), Bj<Jahr.<br>', 'kfz_sw( <b><font color=red>[[_|Jahr]|R]</b></font> , Bj):-kfz_sw(R, Bj), Bj is Jahr.<br>'])), error(id(s5b), penalty(0.1), poslist([pos(3, 2)]), hint('<b>Bj is Jahr</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['kfz_sw([], Bj).<br>', 'kfz_sw([[_|Jahr]|R], Bj):-kfz_sw(R, Bj), Bj<Jahr.<br>', 'kfz_sw([[_|Jahr]|R], Bj):-kfz_sw(R, Bj),  <b><font color=red>Bj is Jahr</b></font> .<br>'])), error(id(s8i), penalty(0.1), poslist([pos(3, 1, 2, 'Bj')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>Bj</b> und einer anderen Variable.'), highlighted(['kfz_sw([], Bj).<br>', 'kfz_sw([[_|Jahr]|R], Bj):-kfz_sw(R, Bj), Bj<Jahr.<br>', 'kfz_sw([[_|Jahr]|R], Bj):-kfz_sw(R,  <b><font color=red>Bj</b></font> ), Bj is Jahr.<br>'])), error(id(s8i), penalty(0.1), poslist([pos(3, 0, 1, ['_'|'Jahr'])]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>[_|Jahr]</b> und einer anderen Variable.'), highlighted(['kfz_sw([], Bj).<br>', 'kfz_sw([[_|Jahr]|R], Bj):-kfz_sw(R, Bj), Bj<Jahr.<br>', 'kfz_sw( <b><font color=red>[[_|Jahr]|R]</b></font> , Bj):-kfz_sw(R, Bj), Bj is Jahr.<br>'])), error(id(s4a1), penalty(0.5), poslist([pos(3, 0, 2, 'Bj'), pos(3, 1, 2, 'Bj')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['kfz_sw([], Bj).<br>', 'kfz_sw([[_|Jahr]|R], Bj):-kfz_sw(R, Bj), Bj<Jahr.<br>', 'kfz_sw([[_|Jahr]|R],  <b><font color=red>Bj</b></font> ):-kfz_sw(R,  <b><font color=red>Bj</b></font> ), Bj is Jahr.<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 2, 'Bj')]), hint('<b>Bj</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['kfz_sw([],  <b><font color=red>Bj</b></font> ).<br>', 'kfz_sw([[_|Jahr]|R], Bj):-kfz_sw(R, Bj), Bj<Jahr.<br>', 'kfz_sw([[_|Jahr]|R], Bj):-kfz_sw(R, Bj), Bj is Jahr.<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer14, 17, [declaration(sp, oldie, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')]), declaration(sp, firstout, oldie/2, helper, [d('A1', +, list, 'Bestandsliste'), d('A2', -, list, 'Älteren')]), declaration(sp, max, oldie/2, helper, [d('A1', +, list, 'Liste'), d('A2', -, number, 'Maximum')])], [nonrecursive, basecase, basecase, recursivecase, basecase, basecase, basecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, oldie, 2, oldie/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, oldie, 2, oldie/2, main, 'A2', 2, -, number, 'Ältesten'))], 'oldie(Liste, BJ):-flatten(Liste, FlattList),firstout(Flattlist, BjListe),max(BjListe, BJ).\n firstout([],[]).\n firstout([A],[]).\n firstout([A,B|T],[B|N]):-firstout(T,N).\n max([A],A).\n max([A,B],A):-A>B.\n max([B,A],B):-B>A.\n max([A|T],A):-max(T,A).\n', [error(id(g7), penalty(0.5), poslist([pos(1, 1)]), hint('flatten/2: Dieses Subziel ist unbekannt.'), highlighted(['oldie(Liste, BJ):- <b><font color=red>flatten(Liste, FlattList)</b></font> , firstout(Flattlist, BjListe), max(BjListe, BJ).<br>', 'firstout([], []).<br>', 'firstout([A], []).<br>', 'firstout([A, B|T], [B|N]):-firstout(T, N).<br>', 'max([A], A).<br>', 'max([A, B], A):-A>B.<br>', 'max([B, A], B):-B>A.<br>', 'max([A|T], A):-max(T, A).<br>']))], [ok], [korrekt], '').
test(exer14, 18, [declaration(sp, aeltestes_baujahr, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, aeltestes_baujahr, 2, aeltestes_baujahr/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, aeltestes_baujahr, 2, aeltestes_baujahr/2, main, 'A2', 2, -, number, 'Ältesten'))], 'aeltestes_baujahr([[A,J]], J).\n aeltestes_baujahr([[A,J1]|R], J):-aeltestes_baujahr(R, J2), <(J1,J2), J=J1.\n aeltestes_baujahr([[A,J1]|R], J):-aeltestes_baujahr(R, J2), >=(J1,J2), J=J2.\n', [error(id(s8n), penalty(0.3), poslist([pos(3, 2)]), hint('Der Operator <b>>=</b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>></b> ist empfohlen.'), highlighted(['aeltestes_baujahr([[A, J]], J).<br>', 'aeltestes_baujahr([[A, J1]|R], J):-aeltestes_baujahr(R, J2), J1<J2, J=J1.<br>', 'aeltestes_baujahr([[A, J1]|R], J):-aeltestes_baujahr(R, J2),  <b><font color=red>J1>=J2</b></font> , J=J2.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'A')]), hint('<b>A</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['aeltestes_baujahr([[A, J]], J).<br>', 'aeltestes_baujahr([[A, J1]|R], J):-aeltestes_baujahr(R, J2), J1<J2, J=J1.<br>', 'aeltestes_baujahr( <b><font color=red>[[A, J1]|R]</b></font> , J):-aeltestes_baujahr(R, J2), J1>=J2, J=J2.<br>'])), error(id(s8n), penalty(0.3), poslist([pos(2, 2)]), hint('Der Operator <b><</b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>=<</b> ist empfohlen.'), highlighted(['aeltestes_baujahr([[A, J]], J).<br>', 'aeltestes_baujahr([[A, J1]|R], J):-aeltestes_baujahr(R, J2),  <b><font color=red>J1<J2</b></font> , J=J1.<br>', 'aeltestes_baujahr([[A, J1]|R], J):-aeltestes_baujahr(R, J2), J1>=J2, J=J2.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'A')]), hint('<b>A</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['aeltestes_baujahr([[A, J]], J).<br>', 'aeltestes_baujahr( <b><font color=red>[[A, J1]|R]</b></font> , J):-aeltestes_baujahr(R, J2), J1<J2, J=J1.<br>', 'aeltestes_baujahr([[A, J1]|R], J):-aeltestes_baujahr(R, J2), J1>=J2, J=J2.<br>'])), error(id(post5a), penalty(0.8), poslist([pos(1, 0, 1, 'A')]), hint('<b>A</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['aeltestes_baujahr( <b><font color=red>[[A, J]]</b></font> , J).<br>', 'aeltestes_baujahr([[A, J1]|R], J):-aeltestes_baujahr(R, J2), J1<J2, J=J1.<br>', 'aeltestes_baujahr([[A, J1]|R], J):-aeltestes_baujahr(R, J2), J1>=J2, J=J2.<br>']))], [ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer14, 20, [declaration(sp, oldest, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, oldest, 2, oldest/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, oldest, 2, oldest/2, main, 'A2', 2, -, number, 'Ältesten'))], 'oldest([[_|CarYear]|T], X):-T=[], X=CarYear.\n oldest([[_|CarYear]|T], X):-oldest(T, _X), CarYear<_X, X=CarYear.\n \r\noldest([[_,CArYear]|T], X):- oldest(T,_X), CArYear>=_X, X=_X.\n', [error(id(s8n), penalty(0.3), poslist([pos(3, 2)]), hint('Der Operator <b>>=</b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>></b> ist empfohlen.'), highlighted(['oldest([[_|CarYear]|T], X):-T=[], X=CarYear.<br>', 'oldest([[_|CarYear]|T], X):-oldest(T, _X), CarYear<_X, X=CarYear.<br>', 'oldest([[_, CArYear]|T], X):-oldest(T, _X),  <b><font color=red>CArYear>=_X</b></font> , X=_X.<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, ['_'|'CarYear'])]), hint('<b>[_|CarYear]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['oldest([[_|CarYear]|T], X):-T=[], X=CarYear.<br>', 'oldest( <b><font color=red>[[_|CarYear]|T]</b></font> , X):-oldest(T, _X), CarYear<_X, X=CarYear.<br>', 'oldest([[_, CArYear]|T], X):-oldest(T, _X), CArYear>=_X, X=_X.<br>'])), error(id(s8n), penalty(0.3), poslist([pos(2, 2)]), hint('Der Operator <b><</b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>=<</b> ist empfohlen.'), highlighted(['oldest([[_|CarYear]|T], X):-T=[], X=CarYear.<br>', 'oldest([[_|CarYear]|T], X):-oldest(T, _X),  <b><font color=red>CarYear<_X</b></font> , X=CarYear.<br>', 'oldest([[_, CArYear]|T], X):-oldest(T, _X), CArYear>=_X, X=_X.<br>'])), error(id(s1f), penalty(0.5), poslist([pos(1, 0, 1, [['_'|'CarYear']|'T'])]), hint('<b>[[_|CarYear]|T]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [[_, Jahr]]'), highlighted(['oldest( <b><font color=red>[[_|CarYear]|T]</b></font> , X):-T=[], X=CarYear.<br>', 'oldest([[_|CarYear]|T], X):-oldest(T, _X), CarYear<_X, X=CarYear.<br>', 'oldest([[_, CArYear]|T], X):-oldest(T, _X), CArYear>=_X, X=_X.<br>'])), error(id(s4g), penalty(0.1), poslist([pos(1, 1, 1, 'T'), pos(1, 1, 2, [])]), hint('<b>[T, []]</b>: Das Unifikationssubziel dieser Variablen/Terme ist überflüssig.'), highlighted(['oldest([[_|CarYear]|T], X):- <b><font color=red>T</b></font> = <b><font color=red>[]</b></font> , X=CarYear.<br>', 'oldest([[_|CarYear]|T], X):-oldest(T, _X), CarYear<_X, X=CarYear.<br>', 'oldest([[_, CArYear]|T], X):-oldest(T, _X), CArYear>=_X, X=_X.<br>']))], [ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer14, 23, [declaration(sp, baujahr, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')]), declaration(sp, bau, baujahr/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, baujahr, 2, baujahr/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, baujahr, 2, baujahr/2, main, 'A2', 2, -, number, 'Ältesten')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bau, 3, baujahr/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, bau, 3, baujahr/2, accu, 'A3', 3, -, number, 'Baujahr')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, bau, 3, baujahr/2, accu, 'A2', 2, +, number, accu))], 'baujahr(Liste,Baujahr):-bau(Liste,2000,Baujahr).\n bau([],Acc,Acc).\n bau([[_,Jahr]|Tail],Acc,Baujahr):-Jahr=<Acc, bau(Tail, Jahr,Baujahr).\n bau([_|Tail],Acc,Baujahr):-bau(Tail,Acc,Baujahr).\n', [error(id(s1a2), penalty(0.1), poslist([pos(4, 0, 1, ['_'|'Tail'])]), hint('An der Stelle von <b>[_|Tail]</b> sollte eine eingebette (De-)Komposition (z.B. [[X|H]|T]) stattfinden.'), highlighted(['baujahr(Liste, Baujahr):-bau(Liste, 2000, Baujahr).<br>', 'bau([], Acc, Acc).<br>', 'bau([[_, Jahr]|Tail], Acc, Baujahr):-Jahr=<Acc, bau(Tail, Jahr, Baujahr).<br>', 'bau( <b><font color=red>[_|Tail]</b></font> , Acc, Baujahr):-bau(Tail, Acc, Baujahr).<br>'])), error(id(s8i), penalty(0.1), poslist([pos(4, 0, 2, 'Acc')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>Acc</b> und einer anderen Variable.'), highlighted(['baujahr(Liste, Baujahr):-bau(Liste, 2000, Baujahr).<br>', 'bau([], Acc, Acc).<br>', 'bau([[_, Jahr]|Tail], Acc, Baujahr):-Jahr=<Acc, bau(Tail, Jahr, Baujahr).<br>', 'bau([_|Tail],  <b><font color=red>Acc</b></font> , Baujahr):-bau(Tail, Acc, Baujahr).<br>']))], [ok, nok], [korrekt, 'korrekt - aber wieso heisst es: eine Variable im Term?'], '').
test(exer14, 24, [declaration(sp, kfz_alt, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, kfz_alt, 2, kfz_alt/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, kfz_alt, 2, kfz_alt/2, main, 'A2', 2, -, number, 'Ältesten'))], 'kfz_alt([_|[]], Fahrzeug).\n kfz_alt([[Kopf|Rest1]|[Kopf1|Rest2]], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2]|[Kopf3|Rest3]], Fahrzeug).\n kfz_alt([[Kopf|Rest1]|[Kopf1|Rest2]], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2]|[Kopf3|Rest3]], Fahrzeug).\n', [error(id(s1f), penalty(0.5), poslist([pos(3, 0, 1, ['Kopf'|'Rest1'])]), hint('<b>[Kopf|Rest1]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt( <b><font color=red>[[Kopf|Rest1], Kopf1|Rest2]</b></font> , Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(3, 0, 1, [['Kopf'|'Rest1'], 'Kopf1'|'Rest2'])]), hint('<b>[[Kopf|Rest1], Kopf1|Rest2]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Head|Rest]'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt( <b><font color=red>[[Kopf|Rest1], Kopf1|Rest2]</b></font> , Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(s3a), penalty(0.1), poslist([pos(3, 0, 1, [['Kopf'|'Rest1'], 'Kopf1'|'Rest2']), pos(3, 3, 1, [['Kopf1'|'Rest2'], 'Kopf3'|'Rest3'])]), hint('<b>[[Kopf|Rest1], Kopf1|Rest2]</b>: sollte rekursiv ab/aufgebaut werden.'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt( <b><font color=red>[[Kopf|Rest1], Kopf1|Rest2]</b></font> , Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt( <b><font color=red>[[Kopf1|Rest2], Kopf3|Rest3]</b></font> , Fahrzeug).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(3, 3), pos(3, 1)]), hint('Das rekursive Subziel <b>3</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):- <b><font color=red>Rest1<Rest2</b></font> , Fahrzeug is Rest2,  <b><font color=red>kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug)</b></font> .<br>'])), error(id(s5b), penalty(0.1), poslist([pos(3, 2)]), hint('<b>Fahrzeug is Rest2</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2,  <b><font color=red>Fahrzeug is Rest2</b></font> , kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(s8i), penalty(0.1), poslist([pos(3, 3, 2, 'Fahrzeug')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>Fahrzeug</b> und einer anderen Variable.'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3],  <b><font color=red>Fahrzeug</b></font> ).<br>'])), error(id(s8j), penalty(0.5), poslist([pos(3, 3, 2, 'Fahrzeug'), pos(3, 1, 2, 'Rest2')]), hint('<b>Rest2</b> soll mit einer Variable an der Position von <b>Fahrzeug</b> unifizieren.'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1< <b><font color=red>Rest2</b></font> , Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3],  <b><font color=red>Fahrzeug</b></font> ).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'Kopf')]), hint('<b>Kopf</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt( <b><font color=red>[[Kopf|Rest1], Kopf1|Rest2]</b></font> , Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(post5c), penalty(0.8), poslist([pos(3, 3, 1, 'Kopf3')]), hint('<b>Kopf3</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt( <b><font color=red>[[Kopf1|Rest2], Kopf3|Rest3]</b></font> , Fahrzeug).<br>'])), error(id(post5c), penalty(0.8), poslist([pos(3, 3, 1, 'Rest3')]), hint('<b>Rest3</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt( <b><font color=red>[[Kopf1|Rest2], Kopf3|Rest3]</b></font> , Fahrzeug).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, ['Kopf'|'Rest1'])]), hint('<b>[Kopf|Rest1]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt( <b><font color=red>[[Kopf|Rest1], Kopf1|Rest2]</b></font> , Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, [['Kopf'|'Rest1'], 'Kopf1'|'Rest2'])]), hint('<b>[[Kopf|Rest1], Kopf1|Rest2]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Head|Rest]'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt( <b><font color=red>[[Kopf|Rest1], Kopf1|Rest2]</b></font> , Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(s3a), penalty(0.1), poslist([pos(2, 0, 1, [['Kopf'|'Rest1'], 'Kopf1'|'Rest2']), pos(2, 3, 1, [['Kopf1'|'Rest2'], 'Kopf3'|'Rest3'])]), hint('<b>[[Kopf|Rest1], Kopf1|Rest2]</b>: sollte rekursiv ab/aufgebaut werden.'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt( <b><font color=red>[[Kopf|Rest1], Kopf1|Rest2]</b></font> , Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt( <b><font color=red>[[Kopf1|Rest2], Kopf3|Rest3]</b></font> , Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 3), pos(2, 1)]), hint('Das rekursive Subziel <b>3</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):- <b><font color=red>Rest1>Rest2</b></font> , Fahrzeug is Rest1,  <b><font color=red>kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug)</b></font> .<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(s5b), penalty(0.1), poslist([pos(2, 2)]), hint('<b>Fahrzeug is Rest1</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2,  <b><font color=red>Fahrzeug is Rest1</b></font> , kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(s8i), penalty(0.1), poslist([pos(2, 3, 2, 'Fahrzeug')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>Fahrzeug</b> und einer anderen Variable.'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3],  <b><font color=red>Fahrzeug</b></font> ).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(s8j), penalty(0.5), poslist([pos(2, 3, 2, 'Fahrzeug'), pos(2, 1, 2, 'Rest2')]), hint('<b>Rest2</b> soll mit einer Variable an der Position von <b>Fahrzeug</b> unifizieren.'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1> <b><font color=red>Rest2</b></font> , Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3],  <b><font color=red>Fahrzeug</b></font> ).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(s4a1), penalty(0.5), poslist([pos(2, 0, 2, 'Fahrzeug'), pos(2, 3, 2, 'Fahrzeug')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2],  <b><font color=red>Fahrzeug</b></font> ):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3],  <b><font color=red>Fahrzeug</b></font> ).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'Kopf')]), hint('<b>Kopf</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt( <b><font color=red>[[Kopf|Rest1], Kopf1|Rest2]</b></font> , Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 3, 1, 'Kopf3')]), hint('<b>Kopf3</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt( <b><font color=red>[[Kopf1|Rest2], Kopf3|Rest3]</b></font> , Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 3, 1, 'Rest3')]), hint('<b>Rest3</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['kfz_alt([_], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt( <b><font color=red>[[Kopf1|Rest2], Kopf3|Rest3]</b></font> , Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(1, 0, 1, ['_'])]), hint('<b>[_]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [[_, Jahr]]'), highlighted(['kfz_alt( <b><font color=red>[_]</b></font> , Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 2, 'Fahrzeug')]), hint('<b>Fahrzeug</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['kfz_alt([_],  <b><font color=red>Fahrzeug</b></font> ).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1>Rest2, Fahrzeug is Rest1, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>', 'kfz_alt([[Kopf|Rest1], Kopf1|Rest2], Fahrzeug):-Rest1<Rest2, Fahrzeug is Rest2, kfz_alt([[Kopf1|Rest2], Kopf3|Rest3], Fahrzeug).<br>']))], [ok, ok, ok, ok, nok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, 'korrekt -  wieder falsche Darstellung', 'korrekt - falsche Darstellung', korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer14, 25, [declaration(sp, aeltestes, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A2', 2, -, number, 'Ältesten'))], 'aeltestes([],Kfz).\n aeltestes([[_,Baujahr],Tail],Kfz):-(>=(Baujahr, Kfz), aeltestes(Tail, Baujahr)).\n aeltestes([[_,Baujahr],Tail],Kfz):-(>(Kfz, Baujahr)), aeltestes(Tail, Kfz).\n', [error(id(s7e), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>[]</b> sollte eine Nicht-Leer-Liste sein.'), highlighted(['aeltestes( <b><font color=red>[]</b></font> , Kfz).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Baujahr>=Kfz, aeltestes(Tail, Baujahr).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Kfz>Baujahr, aeltestes(Tail, Kfz).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(3, 0, 1, [['_', 'Baujahr'], 'Tail'])]), hint('<b>[[_, Baujahr], Tail]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Head|Rest]'), highlighted(['aeltestes([], Kfz).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Baujahr>=Kfz, aeltestes(Tail, Baujahr).<br>', 'aeltestes( <b><font color=red>[[_, Baujahr], Tail]</b></font> , Kfz):-Kfz>Baujahr, aeltestes(Tail, Kfz).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(3, 2), pos(3, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['aeltestes([], Kfz).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Baujahr>=Kfz, aeltestes(Tail, Baujahr).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):- <b><font color=red>Kfz>Baujahr</b></font> ,  <b><font color=red>aeltestes(Tail, Kfz)</b></font> .<br>'])), error(id(s8n), penalty(0.3), poslist([pos(3, 1)]), hint('Der Operator <b>></b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>></b> ist empfohlen.'), highlighted(['aeltestes([], Kfz).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Baujahr>=Kfz, aeltestes(Tail, Baujahr).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):- <b><font color=red>Kfz>Baujahr</b></font> , aeltestes(Tail, Kfz).<br>'])), error(id(post7a), penalty(0.8), poslist([pos(3, 1, 1, 'Kfz')]), hint('<b>Kfz</b> muss gebunden sein, bevor es in Vergleichsoperationen benutzt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['aeltestes([], Kfz).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Baujahr>=Kfz, aeltestes(Tail, Baujahr).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):- <b><font color=red>Kfz</b></font> >Baujahr, aeltestes(Tail, Kfz).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, [['_', 'Baujahr'], 'Tail'])]), hint('<b>[[_, Baujahr], Tail]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Head|Rest]'), highlighted(['aeltestes([], Kfz).<br>', 'aeltestes( <b><font color=red>[[_, Baujahr], Tail]</b></font> , Kfz):-Baujahr>=Kfz, aeltestes(Tail, Baujahr).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Kfz>Baujahr, aeltestes(Tail, Kfz).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['aeltestes([], Kfz).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):- <b><font color=red>Baujahr>=Kfz</b></font> ,  <b><font color=red>aeltestes(Tail, Baujahr)</b></font> .<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Kfz>Baujahr, aeltestes(Tail, Kfz).<br>'])), error(id(s8j), penalty(0.5), poslist([pos(2, 2, 2, 'Baujahr'), pos(2, 1, 2, 'Kfz')]), hint('<b>Kfz</b> soll mit einer Variable an der Position von <b>Baujahr</b> unifizieren.'), highlighted(['aeltestes([], Kfz).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Baujahr>= <b><font color=red>Kfz</b></font> , aeltestes(Tail,  <b><font color=red>Baujahr</b></font> ).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Kfz>Baujahr, aeltestes(Tail, Kfz).<br>'])), error(id(s4a1), penalty(0.5), poslist([pos(2, 0, 2, 'Kfz'), pos(2, 1, 2, 'Kfz')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['aeltestes([], Kfz).<br>', 'aeltestes([[_, Baujahr], Tail],  <b><font color=red>Kfz</b></font> ):-Baujahr>= <b><font color=red>Kfz</b></font> , aeltestes(Tail, Baujahr).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Kfz>Baujahr, aeltestes(Tail, Kfz).<br>'])), error(id(post7a), penalty(0.8), poslist([pos(2, 1, 2, 'Kfz')]), hint('<b>Kfz</b> muss gebunden sein, bevor es in Vergleichsoperationen benutzt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['aeltestes([], Kfz).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Baujahr>= <b><font color=red>Kfz</b></font> , aeltestes(Tail, Baujahr).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Kfz>Baujahr, aeltestes(Tail, Kfz).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 2, 'Kfz')]), hint('<b>Kfz</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['aeltestes([],  <b><font color=red>Kfz</b></font> ).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Baujahr>=Kfz, aeltestes(Tail, Baujahr).<br>', 'aeltestes([[_, Baujahr], Tail], Kfz):-Kfz>Baujahr, aeltestes(Tail, Kfz).<br>']))], [ok, ok, ok, nok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, 'der Operator > ist vorhanden, nur an der falschen Stelle!', korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer14, 26, [declaration(sp, bj, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, bj, 2, bj/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, bj, 2, bj/2, main, 'A2', 2, -, number, 'Ältesten'))], 'bj([],_).\n bj([[_|Jahr]|Rest],Altjahr):-Jahr=<Altjahr, bj(Rest,Jahr).\n bj([[_|Jahr]|Rest],Altjahr):-Jahr>Altjahr, bj(Rest, Altjahr).\n', [error(id(s7e), penalty(0.8), poslist([pos(1, 0, 1)]), hint('An der Stelle von <b>[]</b> sollte eine Nicht-Leer-Liste sein.'), highlighted(['bj( <b><font color=red>[]</b></font> , _).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr=<Altjahr, bj(Rest, Jahr).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr>Altjahr, bj(Rest, Altjahr).<br>'])), error(id(s7k), penalty(0.8), poslist([pos(1, 0, 2, '_')]), hint('An der Stelle von <b>_</b> erwarten wir eine Variable.'), highlighted(['bj([],  <b><font color=red>_</b></font> ).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr=<Altjahr, bj(Rest, Jahr).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr>Altjahr, bj(Rest, Altjahr).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(3, 0, 1, ['_'|'Jahr'])]), hint('<b>[_|Jahr]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['bj([], _).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr=<Altjahr, bj(Rest, Jahr).<br>', 'bj( <b><font color=red>[[_|Jahr]|Rest]</b></font> , Altjahr):-Jahr>Altjahr, bj(Rest, Altjahr).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(3, 2), pos(3, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['bj([], _).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr=<Altjahr, bj(Rest, Jahr).<br>', 'bj([[_|Jahr]|Rest], Altjahr):- <b><font color=red>Jahr>Altjahr</b></font> ,  <b><font color=red>bj(Rest, Altjahr)</b></font> .<br>'])), error(id(post7a), penalty(0.8), poslist([pos(3, 1, 2, 'Altjahr')]), hint('<b>Altjahr</b> muss gebunden sein, bevor es in Vergleichsoperationen benutzt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['bj([], _).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr=<Altjahr, bj(Rest, Jahr).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr> <b><font color=red>Altjahr</b></font> , bj(Rest, Altjahr).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, ['_'|'Jahr'])]), hint('<b>[_|Jahr]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['bj([], _).<br>', 'bj( <b><font color=red>[[_|Jahr]|Rest]</b></font> , Altjahr):-Jahr=<Altjahr, bj(Rest, Jahr).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr>Altjahr, bj(Rest, Altjahr).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 2), pos(2, 1)]), hint('Das rekursive Subziel <b>2</b> muss vor dem  <b>1</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['bj([], _).<br>', 'bj([[_|Jahr]|Rest], Altjahr):- <b><font color=red>Jahr=<Altjahr</b></font> ,  <b><font color=red>bj(Rest, Jahr)</b></font> .<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr>Altjahr, bj(Rest, Altjahr).<br>'])), error(id(s8j), penalty(0.5), poslist([pos(2, 2, 2, 'Jahr'), pos(2, 1, 2, 'Altjahr')]), hint('<b>Altjahr</b> soll mit einer Variable an der Position von <b>Jahr</b> unifizieren.'), highlighted(['bj([], _).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr=< <b><font color=red>Altjahr</b></font> , bj(Rest,  <b><font color=red>Jahr</b></font> ).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr>Altjahr, bj(Rest, Altjahr).<br>'])), error(id(s4a1), penalty(0.5), poslist([pos(2, 0, 2, 'Altjahr'), pos(2, 1, 2, 'Altjahr')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['bj([], _).<br>', 'bj([[_|Jahr]|Rest],  <b><font color=red>Altjahr</b></font> ):-Jahr=< <b><font color=red>Altjahr</b></font> , bj(Rest, Jahr).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr>Altjahr, bj(Rest, Altjahr).<br>'])), error(id(post7a), penalty(0.8), poslist([pos(2, 1, 2, 'Altjahr')]), hint('<b>Altjahr</b> muss gebunden sein, bevor es in Vergleichsoperationen benutzt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['bj([], _).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr=< <b><font color=red>Altjahr</b></font> , bj(Rest, Jahr).<br>', 'bj([[_|Jahr]|Rest], Altjahr):-Jahr>Altjahr, bj(Rest, Altjahr).<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], 'wieder Fehler in der Darstellung der Studentenloesungen').
test(exer14, 27, [declaration(sp, ganzalt, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')]), declaration(sp, ganzalt, ganzalt/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, ganzalt, 2, ganzalt/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, ganzalt, 2, ganzalt/2, main, 'A2', 2, -, number, 'Ältesten')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, ganzalt, 3, ganzalt/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, ganzalt, 3, ganzalt/2, accu, 'A3', 3, -, number, 'Baujahr')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, ganzalt, 3, ganzalt/2, accu, 'A2', 2, +, number, accu))], 'ganzalt(Liste,E):-ganzalt(Liste,10000,E).\n ganzalt([],A,A).\n ganzalt([[Kenn|Alter]|T],Acc,E):-(Alter<Acc,ganzalt(T,Alter,E)).\n ganzalt([[Kenn|Alter]|T],Acc,E):-ganzalt(T,Acc,E).\n', [error(id(s1f), penalty(0.5), poslist([pos(4, 0, 1, ['Kenn'|'Alter'])]), hint('<b>[Kenn|Alter]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['ganzalt(Liste, E):-ganzalt(Liste, 10000, E).<br>', 'ganzalt([], A, A).<br>', 'ganzalt([[Kenn|Alter]|T], Acc, E):-Alter<Acc, ganzalt(T, Alter, E).<br>', 'ganzalt( <b><font color=red>[[Kenn|Alter]|T]</b></font> , Acc, E):-ganzalt(T, Acc, E).<br>'])), error(id(s8i), penalty(0.1), poslist([pos(4, 0, 2, 'Acc')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>Acc</b> und einer anderen Variable.'), highlighted(['ganzalt(Liste, E):-ganzalt(Liste, 10000, E).<br>', 'ganzalt([], A, A).<br>', 'ganzalt([[Kenn|Alter]|T], Acc, E):-Alter<Acc, ganzalt(T, Alter, E).<br>', 'ganzalt([[Kenn|Alter]|T],  <b><font color=red>Acc</b></font> , E):-ganzalt(T, Acc, E).<br>'])), error(id(s8i), penalty(0.1), poslist([pos(4, 0, 1, ['Kenn'|'Alter'])]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>[Kenn|Alter]</b> und einer anderen Variable.'), highlighted(['ganzalt(Liste, E):-ganzalt(Liste, 10000, E).<br>', 'ganzalt([], A, A).<br>', 'ganzalt([[Kenn|Alter]|T], Acc, E):-Alter<Acc, ganzalt(T, Alter, E).<br>', 'ganzalt( <b><font color=red>[[Kenn|Alter]|T]</b></font> , Acc, E):-ganzalt(T, Acc, E).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(4, 0, 1, 'Kenn')]), hint('<b>Kenn</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['ganzalt(Liste, E):-ganzalt(Liste, 10000, E).<br>', 'ganzalt([], A, A).<br>', 'ganzalt([[Kenn|Alter]|T], Acc, E):-Alter<Acc, ganzalt(T, Alter, E).<br>', 'ganzalt( <b><font color=red>[[Kenn|Alter]|T]</b></font> , Acc, E):-ganzalt(T, Acc, E).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(4, 0, 1, 'Alter')]), hint('<b>Alter</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['ganzalt(Liste, E):-ganzalt(Liste, 10000, E).<br>', 'ganzalt([], A, A).<br>', 'ganzalt([[Kenn|Alter]|T], Acc, E):-Alter<Acc, ganzalt(T, Alter, E).<br>', 'ganzalt( <b><font color=red>[[Kenn|Alter]|T]</b></font> , Acc, E):-ganzalt(T, Acc, E).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(3, 0, 1, ['Kenn'|'Alter'])]), hint('<b>[Kenn|Alter]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['ganzalt(Liste, E):-ganzalt(Liste, 10000, E).<br>', 'ganzalt([], A, A).<br>', 'ganzalt( <b><font color=red>[[Kenn|Alter]|T]</b></font> , Acc, E):-Alter<Acc, ganzalt(T, Alter, E).<br>', 'ganzalt([[Kenn|Alter]|T], Acc, E):-ganzalt(T, Acc, E).<br>'])), error(id(s8n), penalty(0.3), poslist([pos(3, 1)]), hint('Der Operator <b><</b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>=<</b> ist empfohlen.'), highlighted(['ganzalt(Liste, E):-ganzalt(Liste, 10000, E).<br>', 'ganzalt([], A, A).<br>', 'ganzalt([[Kenn|Alter]|T], Acc, E):- <b><font color=red>Alter<Acc</b></font> , ganzalt(T, Alter, E).<br>', 'ganzalt([[Kenn|Alter]|T], Acc, E):-ganzalt(T, Acc, E).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'Kenn')]), hint('<b>Kenn</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['ganzalt(Liste, E):-ganzalt(Liste, 10000, E).<br>', 'ganzalt([], A, A).<br>', 'ganzalt( <b><font color=red>[[Kenn|Alter]|T]</b></font> , Acc, E):-Alter<Acc, ganzalt(T, Alter, E).<br>', 'ganzalt([[Kenn|Alter]|T], Acc, E):-ganzalt(T, Acc, E).<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], 'Fehler in der Darstellung').
test(exer14, 28, [declaration(sp, old1, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')]), declaration(sp, old, old1/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, old1, 2, old1/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, old1, 2, old1/2, main, 'A2', 2, -, number, 'Ältesten')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, old, 3, old1/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, old, 3, old1/2, accu, 'A3', 3, -, number, 'Baujahr')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, old, 3, old1/2, accu, 'A2', 2, +, number, accu))], 'old1([[H|T]|Rest], Jahr):- old(Rest,T,Jahr).\n old([],J,J).\n old([[H|T]|Rest],J,J1):- T<J, old(Rest,T,J1).\n old([_|Rest],J,J1):-old(Rest,J,J1).\n', [error(id(pa2), penalty(0.1), poslist([pos(1)]), hint('Jedes Argument, das im Kopf des Hauptprädikats existiert, muss in dem Aufruf des Nebenprädikats auch existieren.'), highlighted([' <b><font color=red>old1([[H|T]|Rest], Jahr)</b></font> :- <b><font color=red>old(Rest, T, Jahr)</b></font> .<br>', 'old([], J, J).<br>', 'old([[H|T]|Rest], J, J1):-T<J, old(Rest, T, J1).<br>', 'old([_|Rest], J, J1):-old(Rest, J, J1).<br>'])), error(id(s7k), penalty(0.8), poslist([pos(1, 0, 1, [['H'|'T']|'Rest'])]), hint('An der Stelle von <b>[[H|T]|Rest]</b> erwarten wir eine Variable.'), highlighted(['old1( <b><font color=red>[[H|T]|Rest]</b></font> , Jahr):-old(Rest, T, Jahr).<br>', 'old([], J, J).<br>', 'old([[H|T]|Rest], J, J1):-T<J, old(Rest, T, J1).<br>', 'old([_|Rest], J, J1):-old(Rest, J, J1).<br>'])), error(id(s1a2), penalty(0.1), poslist([pos(4, 0, 1, ['_'|'Rest'])]), hint('An der Stelle von <b>[_|Rest]</b> sollte eine eingebette (De-)Komposition (z.B. [[X|H]|T]) stattfinden.'), highlighted(['old1([[H|T]|Rest], Jahr):-old(Rest, T, Jahr).<br>', 'old([], J, J).<br>', 'old([[H|T]|Rest], J, J1):-T<J, old(Rest, T, J1).<br>', 'old( <b><font color=red>[_|Rest]</b></font> , J, J1):-old(Rest, J, J1).<br>'])), error(id(s8i), penalty(0.1), poslist([pos(4, 0, 2, 'J')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>J</b> und einer anderen Variable.'), highlighted(['old1([[H|T]|Rest], Jahr):-old(Rest, T, Jahr).<br>', 'old([], J, J).<br>', 'old([[H|T]|Rest], J, J1):-T<J, old(Rest, T, J1).<br>', 'old([_|Rest],  <b><font color=red>J</b></font> , J1):-old(Rest, J, J1).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(3, 0, 1, ['H'|'T'])]), hint('<b>[H|T]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['old1([[H|T]|Rest], Jahr):-old(Rest, T, Jahr).<br>', 'old([], J, J).<br>', 'old( <b><font color=red>[[H|T]|Rest]</b></font> , J, J1):-T<J, old(Rest, T, J1).<br>', 'old([_|Rest], J, J1):-old(Rest, J, J1).<br>'])), error(id(s8n), penalty(0.3), poslist([pos(3, 1)]), hint('Der Operator <b><</b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>=<</b> ist empfohlen.'), highlighted(['old1([[H|T]|Rest], Jahr):-old(Rest, T, Jahr).<br>', 'old([], J, J).<br>', 'old([[H|T]|Rest], J, J1):- <b><font color=red>T<J</b></font> , old(Rest, T, J1).<br>', 'old([_|Rest], J, J1):-old(Rest, J, J1).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['old1([[H|T]|Rest], Jahr):-old(Rest, T, Jahr).<br>', 'old([], J, J).<br>', 'old( <b><font color=red>[[H|T]|Rest]</b></font> , J, J1):-T<J, old(Rest, T, J1).<br>', 'old([_|Rest], J, J1):-old(Rest, J, J1).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(1, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['old1( <b><font color=red>[[H|T]|Rest]</b></font> , Jahr):-old(Rest, T, Jahr).<br>', 'old([], J, J).<br>', 'old([[H|T]|Rest], J, J1):-T<J, old(Rest, T, J1).<br>', 'old([_|Rest], J, J1):-old(Rest, J, J1).<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], '').
test(exer14, 29, [declaration(sp, greis, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, greis, 2, greis/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, greis, 2, greis/2, main, 'A2', 2, -, number, 'Ältesten'))], 'greis([[HI|[HG|[]]]|[]], HG).\n greis([[HI|[HG|[]]]|T], HG):-greis(T,A), HG<A.\n greis([H|T],A):-greis(T,A).\n', [error(id(s1a2), penalty(0.1), poslist([pos(3, 0, 1, ['H'|'T'])]), hint('An der Stelle von <b>[H|T]</b> sollte eine eingebette (De-)Komposition (z.B. [[X|H]|T]) stattfinden.'), highlighted(['greis([[HI, HG]], HG).<br>', 'greis([[HI, HG]|T], HG):-greis(T, A), HG<A.<br>', 'greis( <b><font color=red>[H|T]</b></font> , A):-greis(T, A).<br>'])), error(id(s8i), penalty(0.1), poslist([pos(3, 1, 2, 'A')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>A</b> und einer anderen Variable.'), highlighted(['greis([[HI, HG]], HG).<br>', 'greis([[HI, HG]|T], HG):-greis(T, A), HG<A.<br>', 'greis([H|T], A):-greis(T,  <b><font color=red>A</b></font> ).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'H')]), hint('<b>H</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['greis([[HI, HG]], HG).<br>', 'greis([[HI, HG]|T], HG):-greis(T, A), HG<A.<br>', 'greis( <b><font color=red>[H|T]</b></font> , A):-greis(T, A).<br>'])), error(id(s8n), penalty(0.3), poslist([pos(2, 2)]), hint('Der Operator <b><</b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>=<</b> ist empfohlen.'), highlighted(['greis([[HI, HG]], HG).<br>', 'greis([[HI, HG]|T], HG):-greis(T, A),  <b><font color=red>HG<A</b></font> .<br>', 'greis([H|T], A):-greis(T, A).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(2, 0, 1, 'HI')]), hint('<b>HI</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['greis([[HI, HG]], HG).<br>', 'greis( <b><font color=red>[[HI, HG]|T]</b></font> , HG):-greis(T, A), HG<A.<br>', 'greis([H|T], A):-greis(T, A).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(1, 0, 1, 'HI')]), hint('<b>HI</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['greis( <b><font color=red>[[HI, HG]]</b></font> , HG).<br>', 'greis([[HI, HG]|T], HG):-greis(T, A), HG<A.<br>', 'greis([H|T], A):-greis(T, A).<br>']))], [ok, ok, ok, nok, ok, ok], [korrekt, korrekt, korrekt, 'ist das wirklich eindeutig?', korrekt, korrekt], '').
test(exer14, 30, [declaration(sp, alt, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')]), declaration(sp, a, alt/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, alt, 2, alt/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, alt, 2, alt/2, main, 'A2', 2, -, number, 'Ältesten')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, a, 3, alt/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, a, 3, alt/2, accu, 'A3', 3, -, number, 'Baujahr')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, a, 3, alt/2, accu, 'A2', 2, +, number, accu))], 'alt(Fahrzeuge,Baujahr):-a(Fahrzeuge,Akk,Baujahr).\n a([],X,X).\n a([[X|Y]|Z],Akk,Baujahr):-a(Z,Y,Baujahr), <(Y,Akk).\n', [error(id(s7h), penalty(0.01), poslist([]), hint('Eine Rekursionsklausel fehlt. Oder haben Sie ein rekursives Subziel vergessen?'), highlighted([' <b><font color=red>alt(Fahrzeuge, Baujahr)</b></font> :- <b><font color=red>a(Fahrzeuge, Akk, Baujahr)</b></font> .<br>', ' <b><font color=red>a([], X, X)</b></font> .<br>', ' <b><font color=red>a([[X|Y]|Z], Akk, Baujahr)</b></font> :- <b><font color=red>a(Z, Y, Baujahr)</b></font> ,  <b><font color=red>Y<Akk</b></font> .<br>'])), error(id(s1f), penalty(0.5), poslist([pos(3, 0, 1, ['X'|'Y'])]), hint('<b>[X|Y]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['alt(Fahrzeuge, Baujahr):-a(Fahrzeuge, Akk, Baujahr).<br>', 'a([], X, X).<br>', 'a( <b><font color=red>[[X|Y]|Z]</b></font> , Akk, Baujahr):-a(Z, Y, Baujahr), Y<Akk.<br>'])), error(id(s8n), penalty(0.3), poslist([pos(3, 2)]), hint('Der Operator <b><</b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>=<</b> ist empfohlen.'), highlighted(['alt(Fahrzeuge, Baujahr):-a(Fahrzeuge, Akk, Baujahr).<br>', 'a([], X, X).<br>', 'a([[X|Y]|Z], Akk, Baujahr):-a(Z, Y, Baujahr),  <b><font color=red>Y<Akk</b></font> .<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'X')]), hint('<b>X</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['alt(Fahrzeuge, Baujahr):-a(Fahrzeuge, Akk, Baujahr).<br>', 'a([], X, X).<br>', 'a( <b><font color=red>[[X|Y]|Z]</b></font> , Akk, Baujahr):-a(Z, Y, Baujahr), Y<Akk.<br>'])), error(id(post5c), penalty(0.8), poslist([pos(1, 1, 2, 'Akk')]), hint('<b>Akk</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['alt(Fahrzeuge, Baujahr):-a(Fahrzeuge,  <b><font color=red>Akk</b></font> , Baujahr).<br>', 'a([], X, X).<br>', 'a([[X|Y]|Z], Akk, Baujahr):-a(Z, Y, Baujahr), Y<Akk.<br>']))], [ok, ok, nok, ok, ok], [korrekt, korrekt, 'die Loesung wir nicht korrekt angezeigt', korrekt, korrekt], '').
test(exer14, 31, [declaration(sp, alt, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')]), declaration(sp, alt, alt/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, alt, 2, alt/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, alt, 2, alt/2, main, 'A2', 2, -, number, 'Ältesten')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, alt, 3, alt/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, alt, 3, alt/2, accu, 'A3', 3, -, number, 'Baujahr')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, alt, 3, alt/2, accu, 'A2', 2, +, number, accu))], 'alt(Fahrzeuge,Baujahr):-alt(Fahrzeuge,Akk,Baujahr).\n alt([],[K|_],K).\n alt([H|T],BA,E):-[_,BJ]=H, BJ<BA, alt(T,BJ,E).\n alt([H|T],BA,E):-[_,BJ]=H, BJ>=BA, alt(T,BA,E).\n', [error(id(pre2e), penalty(0.3), poslist([pos(2, 0, 2, ['K'|'_'])]), hint('Der Typ von <b>[K|_]</b> stimmt nicht mit der Deklaration überein. Es sollte eine Zahl sein.'), highlighted(['alt(Fahrzeuge, Baujahr):-alt(Fahrzeuge, Akk, Baujahr).<br>', 'alt([],  <b><font color=red>[K|_]</b></font> , K).<br>', 'alt([H|T], BA, E):-[_, BJ]=H, BJ<BA, alt(T, BJ, E).<br>', 'alt([H|T], BA, E):-[_, BJ]=H, BJ>=BA, alt(T, BA, E).<br>']))], [ok], [korrekt], '').
test(exer14, 32, [declaration(sp, aeltestes_kfz, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')]), declaration(sp, aeltestes, aeltestes_kfz/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe'), d('A3', +, number, accu)])], [basecase, recursivecase, recursivecase, nonrecursive], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, aeltestes_kfz, 2, aeltestes_kfz/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, aeltestes_kfz, 2, aeltestes_kfz/2, main, 'A2', 2, -, number, 'Ältesten')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, aeltestes, 3, aeltestes_kfz/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, aeltestes, 3, aeltestes_kfz/2, accu, 'A2', 2, -, number, 'Baujahr')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, aeltestes, 3, aeltestes_kfz/2, accu, 'A3', 3, +, number, accu))], 'aeltestes([],X,Jahr).\n aeltestes([[K|R]|Rest],X,Jahr):-aeltestes(Rest,[[K|R]|X],Jahr), R>Jahr.\n aeltestes([[K|R]|Rest],X,Jahr):-aeltestes(Rest,[[K|R]|X],R), R=<Jahr.\n aeltestes_kfz([[K|R]|Rest], R):-aeltestes([[K|R]|Rest], [], R).\n', [error(id(pa5), penalty(0.3), poslist([pos(1)]), hint('Im Rekusionsabschluss des Akkumulations-Prädikats muss das Akkumulationsargument mit dem Ausgabeargument unifizieren.'), highlighted([' <b><font color=red>aeltestes([], X, Jahr)</b></font> .<br>', 'aeltestes([[K|R]|Rest], X, Jahr):-aeltestes(Rest, [[K|R]|X], Jahr), R>Jahr.<br>', 'aeltestes([[K|R]|Rest], X, Jahr):-aeltestes(Rest, [[K|R]|X], R), R=<Jahr.<br>', 'aeltestes_kfz([[K|R]|Rest], R):-aeltestes([[K|R]|Rest], [], R).<br>'])), error(id(pa8), penalty(0.3), poslist([pos(3)]), hint('In der Rekursionsklausel des Akkumulations-Prädikats muss das Ausgabeargument beim rekursiven Aufruf unverändert beleiben, bis der Rekursionsabschluss erreicht wird. Wir können nicht feststellen, welches Argument in dieser Klausel die Charakteristik eines Ausgabearguments hat.'), highlighted(['aeltestes([], X, Jahr).<br>', 'aeltestes([[K|R]|Rest], X, Jahr):-aeltestes(Rest, [[K|R]|X], Jahr), R>Jahr.<br>', ' <b><font color=red>aeltestes([[K|R]|Rest], X, Jahr)</b></font> :- <b><font color=red>aeltestes(Rest, [[K|R]|X], R)</b></font> ,  <b><font color=red>R=<Jahr</b></font> .<br>', 'aeltestes_kfz([[K|R]|Rest], R):-aeltestes([[K|R]|Rest], [], R).<br>'])), error(id(s7k), penalty(0.8), poslist([pos(4, 0, 1, [['K'|'R']|'Rest'])]), hint('An der Stelle von <b>[[K|R]|Rest]</b> erwarten wir eine Variable.'), highlighted(['aeltestes([], X, Jahr).<br>', 'aeltestes([[K|R]|Rest], X, Jahr):-aeltestes(Rest, [[K|R]|X], Jahr), R>Jahr.<br>', 'aeltestes([[K|R]|Rest], X, Jahr):-aeltestes(Rest, [[K|R]|X], R), R=<Jahr.<br>', 'aeltestes_kfz( <b><font color=red>[[K|R]|Rest]</b></font> , R):-aeltestes([[K|R]|Rest], [], R).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, ['K'|'R'])]), hint('<b>[K|R]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['aeltestes([], X, Jahr).<br>', 'aeltestes( <b><font color=red>[[K|R]|Rest]</b></font> , X, Jahr):-aeltestes(Rest, [[K|R]|X], Jahr), R>Jahr.<br>', 'aeltestes([[K|R]|Rest], X, Jahr):-aeltestes(Rest, [[K|R]|X], R), R=<Jahr.<br>', 'aeltestes_kfz([[K|R]|Rest], R):-aeltestes([[K|R]|Rest], [], R).<br>'])), error(id(s3d), penalty(0.5), poslist([pos(2, 1, 2, [['K'|'R']|'X']), pos(2, 0, 2, 'X')]), hint('<b>[[K|R]|X]</b> sollte mit der Argumentposition des Terms <b>X</b> koreferieren.'), highlighted(['aeltestes([], X, Jahr).<br>', 'aeltestes([[K|R]|Rest],  <b><font color=red>X</b></font> , Jahr):-aeltestes(Rest,  <b><font color=red>[[K|R]|X]</b></font> , Jahr), R>Jahr.<br>', 'aeltestes([[K|R]|Rest], X, Jahr):-aeltestes(Rest, [[K|R]|X], R), R=<Jahr.<br>', 'aeltestes_kfz([[K|R]|Rest], R):-aeltestes([[K|R]|Rest], [], R).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(3, 0, 1, ['K'|'R'])]), hint('<b>[K|R]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [_, Jahr]'), highlighted(['aeltestes([], X, Jahr).<br>', 'aeltestes([[K|R]|Rest], X, Jahr):-aeltestes(Rest, [[K|R]|X], Jahr), R>Jahr.<br>', 'aeltestes( <b><font color=red>[[K|R]|Rest]</b></font> , X, Jahr):-aeltestes(Rest, [[K|R]|X], R), R=<Jahr.<br>', 'aeltestes_kfz([[K|R]|Rest], R):-aeltestes([[K|R]|Rest], [], R).<br>'])), error(id(s3d), penalty(0.5), poslist([pos(3, 1, 2, [['K'|'R']|'X']), pos(3, 0, 2, 'X')]), hint('<b>[[K|R]|X]</b> sollte mit der Argumentposition des Terms <b>X</b> koreferieren.'), highlighted(['aeltestes([], X, Jahr).<br>', 'aeltestes([[K|R]|Rest], X, Jahr):-aeltestes(Rest, [[K|R]|X], Jahr), R>Jahr.<br>', 'aeltestes([[K|R]|Rest],  <b><font color=red>X</b></font> , Jahr):-aeltestes(Rest,  <b><font color=red>[[K|R]|X]</b></font> , R), R=<Jahr.<br>', 'aeltestes_kfz([[K|R]|Rest], R):-aeltestes([[K|R]|Rest], [], R).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 2, 'X')]), hint('<b>X</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['aeltestes([],  <b><font color=red>X</b></font> , Jahr).<br>', 'aeltestes([[K|R]|Rest], X, Jahr):-aeltestes(Rest, [[K|R]|X], Jahr), R>Jahr.<br>', 'aeltestes([[K|R]|Rest], X, Jahr):-aeltestes(Rest, [[K|R]|X], R), R=<Jahr.<br>', 'aeltestes_kfz([[K|R]|Rest], R):-aeltestes([[K|R]|Rest], [], R).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 3, 'Jahr')]), hint('<b>Jahr</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['aeltestes([], X,  <b><font color=red>Jahr</b></font> ).<br>', 'aeltestes([[K|R]|Rest], X, Jahr):-aeltestes(Rest, [[K|R]|X], Jahr), R>Jahr.<br>', 'aeltestes([[K|R]|Rest], X, Jahr):-aeltestes(Rest, [[K|R]|X], R), R=<Jahr.<br>', 'aeltestes_kfz([[K|R]|Rest], R):-aeltestes([[K|R]|Rest], [], R).<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt], 'Die Loesungen werden nicht korrekt dargestellt, wenn ein kleiner-Zeichen darin vorkommt.').
test(exer14, 33, [declaration(sp, alt, [d('A1', -, number, 'Ältesten'), d('A2', +, list, 'Bestandsliste')])], [recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, alt, 2, alt/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, alt, 2, alt/2, main, 'A1', 1, -, number, 'Ältesten'))], 'alt(Jahr, Liste):-Liste=[Kopf|Rest], Kopf=[Kz|Bj], Bj>Jahr, alt(Bj, Rest).\n', [error(id(g6), penalty(0.5), poslist([pos(1)]), hint('Wenn Sie die Rekursion verwenden und jeweils ein Element zum rekursiven Subziel übergeben, dann brauchen Sie einen und nur einen Rekursionsabschluss.'), highlighted([' <b><font color=red>alt(Jahr, Liste)</b></font> :- <b><font color=red>Liste=[Kopf|Rest]</b></font> ,  <b><font color=red>Kopf=[Kz|Bj]</b></font> ,  <b><font color=red>Bj>Jahr</b></font> ,  <b><font color=red>alt(Bj, Rest)</b></font> .<br>']))], [ok], [korrekt], '').
test(exer14, 34, [declaration(sp, aeltestes, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')]), declaration(sp, hilf, aeltestes/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Summe'), d('A3', +, number, accu)])], [nonrecursive, basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, aeltestes, 2, aeltestes_kfz/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, aeltestes, 2, aeltestes_kfz/2, main, 'A2', 2, -, number, 'Ältesten')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, hilf, 3, aeltestes/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, hilf, 3, aeltestes/2, accu, 'A2', 2, -, number, 'Baujahr')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, hilf, 3, aeltestes/2, accu, 'A3', 3, +, number, accu))], 'aeltestes(Fahrzeug,Liste):-hilf(Liste,Fahrzeug,Min).\n hilf([],_,_).\n hilf([[[K,Bj]|_]|T],Aeltes,Min):-Bj<Min, hilf(T,[K,Bj],Bj).\n hilf([[[K,Bj]|_]|T],Aeltes,Min):-hilf(T,Aeltes,Min).\n', [error(id(g1), penalty(0.5), poslist([pos(4, 0, 2)]), hint('Es scheint, dass die 2. Argumentstelle überflüssig ist. Sie wurde überhaupt nicht verwendet, um andere Argumente zu änderen. Brauchen Sie dieses Prädikat hilf/3 wirklich?'), highlighted(['aeltestes(Fahrzeug, Liste):-hilf(Liste, Fahrzeug, Min).<br>', 'hilf([], _, _).<br>', 'hilf([[[K, Bj]|_]|T], Aeltes, Min):-Bj<Min, hilf(T, [K, Bj], Bj).<br>', 'hilf([[[K, Bj]|_]|T],  <b><font color=red>Aeltes</b></font> , Min):-hilf(T, Aeltes, Min).<br>']))], [ok], [korrekt], '').
test(exer14, 37, [declaration(sp, aeltestes, [d('A1', +, list, 'Bestandsliste'), d('A2', -, number, 'Ältesten')]), declaration(sp, aeltestes, aeltestes/2, accu, [d('A1', +, list, 'Bestandsliste'), d('A2', +, number, accu), d('A3', -, number, 'Summe')])], [nonrecursive, basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, aeltestes, 2, aeltestes/2, main, 'A2', 2, -, number, 'Ältesten')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, aeltestes, 3, aeltestes/2, accu, 'A1', 1, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, aeltestes, 3, aeltestes/2, accu, 'A3', 3, -, number, 'Baujahr')), map(dec, predicatedec(tp, tpaltaccu, 3, tpalt/2, accu, 'Arg3', 3, +, number, ['Akku, accu']), predicatedec(sp, aeltestes, 3, aeltestes/2, accu, 'A2', 2, +, number, accu))], 'aeltestes(Liste, Baujahr):-aeltestes(Liste, 1999, Baujahr).\n aeltestes([], Baujahr, Baujahr).\n aeltestes([[A,B]|C], X, Baujahr):-B<X, aeltestes(C,B,Baujahr).\n aeltestes([[A,B]|C], X, Baujahr):-B>=X, aeltestes(C,X, Baujahr).\n', [error(id(s8n), penalty(0.3), poslist([pos(4, 1)]), hint('Der Operator <b>>=</b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>></b> ist empfohlen.'), highlighted(['aeltestes(Liste, Baujahr):-aeltestes(Liste, 1999, Baujahr).<br>', 'aeltestes([], Baujahr, Baujahr).<br>', 'aeltestes([[A, B]|C], X, Baujahr):-B<X, aeltestes(C, B, Baujahr).<br>', 'aeltestes([[A, B]|C], X, Baujahr):- <b><font color=red>B>=X</b></font> , aeltestes(C, X, Baujahr).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(4, 0, 1, 'A')]), hint('<b>A</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['aeltestes(Liste, Baujahr):-aeltestes(Liste, 1999, Baujahr).<br>', 'aeltestes([], Baujahr, Baujahr).<br>', 'aeltestes([[A, B]|C], X, Baujahr):-B<X, aeltestes(C, B, Baujahr).<br>', 'aeltestes( <b><font color=red>[[A, B]|C]</b></font> , X, Baujahr):-B>=X, aeltestes(C, X, Baujahr).<br>'])), error(id(s8n), penalty(0.3), poslist([pos(3, 1)]), hint('Der Operator <b><</b> ist nicht korrekt oder die Argumente sind vertauscht. Dieser Operator: <b>=<</b> ist empfohlen.'), highlighted(['aeltestes(Liste, Baujahr):-aeltestes(Liste, 1999, Baujahr).<br>', 'aeltestes([], Baujahr, Baujahr).<br>', 'aeltestes([[A, B]|C], X, Baujahr):- <b><font color=red>B<X</b></font> , aeltestes(C, B, Baujahr).<br>', 'aeltestes([[A, B]|C], X, Baujahr):-B>=X, aeltestes(C, X, Baujahr).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'A')]), hint('<b>A</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['aeltestes(Liste, Baujahr):-aeltestes(Liste, 1999, Baujahr).<br>', 'aeltestes([], Baujahr, Baujahr).<br>', 'aeltestes( <b><font color=red>[[A, B]|C]</b></font> , X, Baujahr):-B<X, aeltestes(C, B, Baujahr).<br>', 'aeltestes([[A, B]|C], X, Baujahr):-B>=X, aeltestes(C, X, Baujahr).<br>']))], [ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt], '').
test(exer14, 38, [declaration(sp, daf, [d('A1', -, number, 'Ältesten'), d('A2', +, list, 'Bestandsliste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg1', 1, +, list, ['Bestand an Kraftfahrzeugen', 'KFZ', 'Bestandsliste']), predicatedec(sp, daf, 2, daf/2, main, 'A2', 2, +, list, 'Bestandsliste')), map(dec, predicatedec(tp, tpalt, 2, tpalt/2, main, 'Arg2', 2, -, number, ['Baujahr des ältesten Fahrzeugs']), predicatedec(sp, daf, 2, daf/2, main, 'A1', 1, -, number, 'Ältesten'))], 'daf(Alter,[]).\n daf(Alter,[A1|R]):-Alter2 is A1, A1>Alter, daf(Alter2,R).\n', [error(id(s7e), penalty(0.8), poslist([pos(1, 0, 2)]), hint('An der Stelle von <b>[]</b> sollte eine Nicht-Leer-Liste sein.'), highlighted(['daf(Alter,  <b><font color=red>[]</b></font> ).<br>', 'daf(Alter, [A1|R]):-Alter2 is A1, A1>Alter, daf(Alter2, R).<br>'])), error(id(s7h), penalty(0.01), poslist([]), hint('Eine Rekursionsklausel fehlt. Oder haben Sie ein rekursives Subziel vergessen?'), highlighted([' <b><font color=red>daf(Alter, [])</b></font> .<br>', ' <b><font color=red>daf(Alter, [A1|R])</b></font> :- <b><font color=red>Alter2 is A1</b></font> ,  <b><font color=red>A1>Alter</b></font> ,  <b><font color=red>daf(Alter2, R)</b></font> .<br>'])), error(id(s1a2), penalty(0.1), poslist([pos(2, 0, 2, ['A1'|'R'])]), hint('An der Stelle von <b>[A1|R]</b> sollte eine eingebette (De-)Komposition (z.B. [[X|H]|T]) stattfinden.'), highlighted(['daf(Alter, []).<br>', 'daf(Alter,  <b><font color=red>[A1|R]</b></font> ):-Alter2 is A1, A1>Alter, daf(Alter2, R).<br>'])), error(id(s3fa), penalty(0.7), poslist([pos(2, 3), pos(2, 2)]), hint('Das rekursive Subziel <b>3</b> muss vor dem  <b>2</b>. Subziel ausgeführt werden. Tauschen Sie die Reihenfolge.'), highlighted(['daf(Alter, []).<br>', 'daf(Alter, [A1|R]):-Alter2 is A1,  <b><font color=red>A1>Alter</b></font> ,  <b><font color=red>daf(Alter2, R)</b></font> .<br>'])), error(id(s5b), penalty(0.1), poslist([pos(2, 1)]), hint('<b>Alter2 is A1</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['daf(Alter, []).<br>', 'daf(Alter, [A1|R]):- <b><font color=red>Alter2 is A1</b></font> , A1>Alter, daf(Alter2, R).<br>'])), error(id(s8i), penalty(0.1), poslist([pos(2, 3, 1, 'Alter2')]), hint('Im Klauselkörper fehlt ein arithmetischer Vergleich zwischen einer Variable im Term <b>Alter2</b> und einer anderen Variable.'), highlighted(['daf(Alter, []).<br>', 'daf(Alter, [A1|R]):-Alter2 is A1, A1>Alter, daf( <b><font color=red>Alter2</b></font> , R).<br>'])), error(id(s8j), penalty(0.5), poslist([pos(2, 3, 1, 'Alter2'), pos(2, 2, 1, 'A1')]), hint('<b>A1</b> soll mit einer Variable an der Position von <b>Alter2</b> unifizieren.'), highlighted(['daf(Alter, []).<br>', 'daf(Alter, [A1|R]):-Alter2 is A1,  <b><font color=red>A1</b></font> >Alter, daf( <b><font color=red>Alter2</b></font> , R).<br>'])), error(id(s4a), penalty(0.5), poslist([pos(2, 0, 2, ['A1'|'R']), pos(2, 2, 1, 'A1')]), hint('Die Unifikation zwischen <b>[A1|R]</b> und <b>A1</b> ist nicht erforderlich.'), highlighted(['daf(Alter, []).<br>', 'daf(Alter,  <b><font color=red>[A1|R]</b></font> ):-Alter2 is A1,  <b><font color=red>A1</b></font> >Alter, daf(Alter2, R).<br>'])), error(id(post7a), penalty(0.8), poslist([pos(2, 2, 2, 'Alter')]), hint('<b>Alter</b> muss gebunden sein, bevor es in Vergleichsoperationen benutzt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['daf(Alter, []).<br>', 'daf(Alter, [A1|R]):-Alter2 is A1, A1> <b><font color=red>Alter</b></font> , daf(Alter2, R).<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 1, 'Alter')]), hint('<b>Alter</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['daf( <b><font color=red>Alter</b></font> , []).<br>', 'daf(Alter, [A1|R]):-Alter2 is A1, A1>Alter, daf(Alter2, R).<br>']))], [ok, ok, ok, ok, ok, ok, ok, nok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, korrekt, 'wie ist das gemeint?', korrekt, korrekt], '').
test(exer8, 1, [declaration(sp, sender, [d('A1', +, atom, 'Sender'), d('A2', +, list, 'GesamtSenderListe'), d('A3', -, list, 'Liste')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg3', 3, -, list, ['Liste']), predicatedec(sp, sender, 3, sender/3, main, 'A3', 3, -, list, 'Liste')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg2', 2, +, atom, ['Sender']), predicatedec(sp, sender, 3, sender/3, main, 'A1', 1, +, atom, 'Sender')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg1', 1, +, list, ['Gesamtliste']), predicatedec(sp, sender, 3, sender/3, main, 'A2', 2, +, list, 'GesamtListe'))], 'sender(_,[],[]).\n sender(GSender,[AktS|Rest],[AktS|GSRest]):-AktS=[GSender,_,_],sender(GSender,Rest,GRest).\n sender(GSender,[AktS|Rest],GSRest):-not(AktS=[GSender,_,_]),sender(GSender, Rest, GSRest).\n', [error(id(g7), penalty(0.5), poslist([pos(3, 1)]), hint('not/1: Dieses Subziel ist unbekannt.'), highlighted(['sender(_, [], []).<br>', 'sender(GSender, [AktS|Rest], [AktS|GSRest]):-AktS=[GSender, _, _], sender(GSender, Rest, GRest).<br>', 'sender(GSender, [AktS|Rest], GSRest):- <b><font color=red>not(AktS=[GSender, _, _])</b></font> , sender(GSender, Rest, GSRest).<br>']))], [nok], ['Systempraedikate nicht erlaubt?'], '').
test(exer8, 2, [declaration(sp, sender, [d('A1', +, atom, 'Sender'), d('A2', +, list, 'GesamtSenderListe'), d('A3', -, list, 'Liste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg3', 3, -, list, ['Liste']), predicatedec(sp, sender, 3, sender/3, main, 'A3', 3, -, list, 'Liste')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg2', 2, +, atom, ['Sender']), predicatedec(sp, sender, 3, sender/3, main, 'A1', 1, +, atom, 'Sender')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg1', 1, +, list, ['Gesamtliste']), predicatedec(sp, sender, 3, sender/3, main, 'A2', 2, +, list, 'GesamtListe'))], 'sender(_,[],[]).\n sender(X, [[X,Y,Z]|T], [[X,Y,Z]|H]):-zuschauer([[X,Y,Z]|T]), sender(X,T,H).\n', [error(id(g7), penalty(0.5), poslist([pos(2, 1)]), hint('zuschauer/1: Dieses Subziel ist unbekannt.'), highlighted(['sender(_, [], []).<br>', 'sender(X, [[X, Y, Z]|T], [[X, Y, Z]|H]):- <b><font color=red>zuschauer([[X, Y, Z]|T])</b></font> , sender(X, T, H).<br>']))], [nok], ['es ist in der Datenbasis enthalten'], '').
test(exer8, 3, [declaration(sp, einsender, [d('A1', +, list, 'GesamtListe'), d('A2', +, atom, 'Sender'), d('A3', -, list, 'Liste')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg3', 3, -, list, ['Liste']), predicatedec(sp, einsender, 3, einsender/3, main, 'A3', 3, -, list, 'Liste')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg2', 2, +, atom, ['Sender']), predicatedec(sp, einsender, 3, einsender/3, main, 'A2', 2, +, atom, 'Sender')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg1', 1, +, list, ['Gesamtliste']), predicatedec(sp, einsender, 3, einsender/3, main, 'A1', 1, +, list, 'GesamtListe'))], 'einsender([], _, []).\n einsender([[Prog, Send, Zahl]|RZuschauer], Programm, [[Prog, Send, Zahl], RErg]):-Send = Programm, einsender(RZuschauer, Programm, RErg).\n einsender([[Prog, Send, Zahl]|RZuschauer], Programm, RErg):-Send\\== Programm, einsender(RZuschauer, Programm, RErg).\n', [error(id(s1d2), penalty(0.5), poslist([pos(3, 0, 1, 'Prog'), pos(3, 1, 1, 'Send')]), hint(' Eine Unifikation zwischen der Variable im Term <b>Prog</b> und einer Variable des Terms <b>Send</b> ist erforderlich.'), highlighted(['einsender([], _, []).<br>', 'einsender([[Prog, Send, Zahl]|RZuschauer], Programm, [[Prog, Send, Zahl], RErg]):-Send=Programm, einsender(RZuschauer, Programm, RErg).<br>', 'einsender( <b><font color=red>[[Prog, Send, Zahl]|RZuschauer]</b></font> , Programm, RErg):- <b><font color=red>Send</b></font> \\==Programm, einsender(RZuschauer, Programm, RErg).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'Prog')]), hint('<b>Prog</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['einsender([], _, []).<br>', 'einsender([[Prog, Send, Zahl]|RZuschauer], Programm, [[Prog, Send, Zahl], RErg]):-Send=Programm, einsender(RZuschauer, Programm, RErg).<br>', 'einsender( <b><font color=red>[[Prog, Send, Zahl]|RZuschauer]</b></font> , Programm, RErg):-Send\\==Programm, einsender(RZuschauer, Programm, RErg).<br>'])), error(id(post5a), penalty(0.8), poslist([pos(3, 0, 1, 'Zahl')]), hint('<b>Zahl</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['einsender([], _, []).<br>', 'einsender([[Prog, Send, Zahl]|RZuschauer], Programm, [[Prog, Send, Zahl], RErg]):-Send=Programm, einsender(RZuschauer, Programm, RErg).<br>', 'einsender( <b><font color=red>[[Prog, Send, Zahl]|RZuschauer]</b></font> , Programm, RErg):-Send\\==Programm, einsender(RZuschauer, Programm, RErg).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 3, [['Prog', 'Send', 'Zahl'], 'RErg'])]), hint('<b>[[Prog, Send, Zahl], RErg]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Head|Tail1]'), highlighted(['einsender([], _, []).<br>', 'einsender([[Prog, Send, Zahl]|RZuschauer], Programm,  <b><font color=red>[[Prog, Send, Zahl], RErg]</b></font> ):-Send=Programm, einsender(RZuschauer, Programm, RErg).<br>', 'einsender([[Prog, Send, Zahl]|RZuschauer], Programm, RErg):-Send\\==Programm, einsender(RZuschauer, Programm, RErg).<br>'])), error(id(s1d2), penalty(0.5), poslist([pos(2, 0, 3, 'Prog'), pos(2, 2, 2, 'Programm')]), hint(' Eine Unifikation zwischen der Variable im Term <b>Prog</b> und einer Variable des Terms <b>Programm</b> ist erforderlich.'), highlighted(['einsender([], _, []).<br>', 'einsender([[Prog, Send, Zahl]|RZuschauer], Programm,  <b><font color=red>[[Prog, Send, Zahl], RErg]</b></font> ):-Send=Programm, einsender(RZuschauer,  <b><font color=red>Programm</b></font> , RErg).<br>', 'einsender([[Prog, Send, Zahl]|RZuschauer], Programm, RErg):-Send\\==Programm, einsender(RZuschauer, Programm, RErg).<br>']))], [ok, ok, ok, ok, ok], [korrekt, korrekt, korrekt, korrekt, korrekt], 'Die Kommentare sind im Hinblick auf die Musterloesung korrekt. Die Studentenloesung jedenfalls ist auch fast richtig, bis auf dass die Argumentpositionen vertauscht wurden. \r\nD.h. er achtet nicht auf die Sender sondern auf die Sendungen.\r\n').
test(exer8, 4, [declaration(sp, zusch_sender, [d('A1', +, list, 'GesamtListe'), d('A2', +, atom, 'Sender'), d('A3', -, list, 'Liste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg3', 3, -, list, ['Liste']), predicatedec(sp, zusch_sender, 3, zusch_sender/3, main, 'A3', 3, -, list, 'Liste')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg2', 2, +, atom, ['Sender']), predicatedec(sp, zusch_sender, 3, zusch_sender/3, main, 'A2', 2, +, atom, 'Sender')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg1', 1, +, list, ['Gesamtliste']), predicatedec(sp, zusch_sender, 3, zusch_sender/3, main, 'A1', 1, +, list, 'GesamtListe'))], 'zusch_sender([], _, []).\n zusch_sender([[Sender, X,Y]|Rest], Sender, [[Sender, X,Y]|Rest2]):- zusch_sender(Rest, Sender, Rest2).\n', [error(id(s7h), penalty(0.01), poslist([]), hint('Eine Rekursionsklausel fehlt. Oder haben Sie ein rekursives Subziel vergessen?'), highlighted([' <b><font color=red>zusch_sender([], _, [])</b></font> .<br>', ' <b><font color=red>zusch_sender([[Sender, X, Y]|Rest], Sender, [[Sender, X, Y]|Rest2])</b></font> :- <b><font color=red>zusch_sender(Rest, Sender, Rest2)</b></font> .<br>']))], [ok], [korrekt], '').
test(exer8, 5, [declaration(sp, sender, [d('A1', +, list, 'GesamtListe'), d('A2', +, atom, 'Sender'), d('A3', -, list, 'Liste')])], [basecase, recursivecase, basecase], [map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg3', 3, -, list, ['Liste']), predicatedec(sp, sender, 3, sender/3, main, 'A3', 3, -, list, 'Liste')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg2', 2, +, atom, ['Sender']), predicatedec(sp, sender, 3, sender/3, main, 'A2', 2, +, atom, 'Sender')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg1', 1, +, list, ['Gesamtliste']), predicatedec(sp, sender, 3, sender/3, main, 'A1', 1, +, list, 'GesamtListe'))], 'sender([],_,[]).\n sender([X|Y],XX,Z):-X=[XX|T], sender([Y],XX,Z).\n sender([[XX|T]|Y],XX,[X]).\n', [error(id(s7h), penalty(0.01), poslist([]), hint('Eine Rekursionsklausel fehlt. Oder haben Sie ein rekursives Subziel vergessen?'), highlighted([' <b><font color=red>sender([], _, [])</b></font> .<br>', ' <b><font color=red>sender([X|Y], XX, Z)</b></font> :- <b><font color=red>X=[XX|T]</b></font> ,  <b><font color=red>sender([Y], XX, Z)</b></font> .<br>', ' <b><font color=red>sender([[XX|T]|Y], XX, [X])</b></font> .<br>'])), error(id(s7i), penalty(0.01), poslist([pos(3)]), hint('<b>sender/3</b>: Die Prädikatsdefinition hat mehr Rekursionsabschlüsse als erforderlich.'), highlighted(['sender([], _, []).<br>', 'sender([X|Y], XX, Z):-X=[XX|T], sender([Y], XX, Z).<br>', ' <b><font color=red>sender([[XX|T]|Y], XX, [X])</b></font> .<br>'])), error(id(s1e), penalty(0.5), poslist([pos(2, 1, 2, ['XX'|'T'])]), hint('<b>[XX|T]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [SenderName1, _, _]'), highlighted(['sender([], _, []).<br>', 'sender([X|Y], XX, Z):-X= <b><font color=red>[XX|T]</b></font> , sender([Y], XX, Z).<br>', 'sender([[XX|T]|Y], XX, [X]).<br>'])), error(id(s3a), penalty(0.1), poslist([pos(2, 0, 1, ['X'|'Y']), pos(2, 2, 1, ['Y'])]), hint('<b>[X|Y]</b>: sollte rekursiv ab/aufgebaut werden.'), highlighted(['sender([], _, []).<br>', 'sender( <b><font color=red>[X|Y]</b></font> , XX, Z):-X=[XX|T], sender( <b><font color=red>[Y]</b></font> , XX, Z).<br>', 'sender([[XX|T]|Y], XX, [X]).<br>'])), error(id(s10a), penalty(0.1), poslist([pos(2)]), hint('Es soll einen Test zwischen 2 Terms/Variablen/Atome/Nummer in dieser Klausel geben.'), highlighted(['sender([], _, []).<br>', ' <b><font color=red>sender([X|Y], XX, Z)</b></font> :- <b><font color=red>X=[XX|T]</b></font> ,  <b><font color=red>sender([Y], XX, Z)</b></font> .<br>', 'sender([[XX|T]|Y], XX, [X]).<br>'])), error(id(post5c), penalty(0.8), poslist([pos(2, 1, 2, 'T')]), hint('<b>T</b>: Diese Variable existiert im Klauselkörper, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['sender([], _, []).<br>', 'sender([X|Y], XX, Z):-X= <b><font color=red>[XX|T]</b></font> , sender([Y], XX, Z).<br>', 'sender([[XX|T]|Y], XX, [X]).<br>']))], [nok, ok, ok, ok, ok, ok], ['die 2. Zeile hat eine Rekursionsklausel - es wird nicht klar, worauf sich die Aussage bezieht.', 'bezieht sich das nur auf die dritte Zeile?', korrekt, korrekt, korrekt, korrekt], 'Terms - Termen').
test(exer8, 6, [declaration(sp, sendung_von_sender, [d('A1', +, list, 'GesamtListe'), d('A2', +, atom, 'Sender'), d('A3', -, list, 'Liste')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg3', 3, -, list, ['Liste']), predicatedec(sp, sendung_von_sender, 3, sendung_von_sender/3, main, 'A3', 3, -, list, 'Liste')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg2', 2, +, atom, ['Sender']), predicatedec(sp, sendung_von_sender, 3, sendung_von_sender/3, main, 'A2', 2, +, atom, 'Sender')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg1', 1, +, list, ['Gesamtliste']), predicatedec(sp, sendung_von_sender, 3, sendung_von_sender/3, main, 'A1', 1, +, list, 'GesamtListe'))], 'sendung_von_sender([],_,[]).\n sendung_von_sender([[Y,Send|Zahl]|T],Y,[Send,Zahl|R1]):-sendung_von_sender(T,Y,R1).\n', [error(id(s7h), penalty(0.01), poslist([]), hint('Eine Rekursionsklausel fehlt. Oder haben Sie ein rekursives Subziel vergessen?'), highlighted([' <b><font color=red>sendung_von_sender([], _, [])</b></font> .<br>', ' <b><font color=red>sendung_von_sender([[Y, Send|Zahl]|T], Y, [Send, Zahl|R1])</b></font> :- <b><font color=red>sendung_von_sender(T, Y, R1)</b></font> .<br>'])), error(id(s1a2), penalty(0.1), poslist([pos(2, 0, 3, ['Send', 'Zahl'|'R1'])]), hint('An der Stelle von <b>[Send, Zahl|R1]</b> sollte eine eingebette (De-)Komposition (z.B. [[X|H]|T]) stattfinden.'), highlighted(['sendung_von_sender([], _, []).<br>', 'sendung_von_sender([[Y, Send|Zahl]|T], Y,  <b><font color=red>[Send, Zahl|R1]</b></font> ):-sendung_von_sender(T, Y, R1).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 1, ['Y', 'Send'|'Zahl'])]), hint('<b>[Y, Send|Zahl]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [SenderName, _, _]'), highlighted(['sendung_von_sender([], _, []).<br>', 'sendung_von_sender( <b><font color=red>[[Y, Send|Zahl]|T]</b></font> , Y, [Send, Zahl|R1]):-sendung_von_sender(T, Y, R1).<br>'])), error(id(s1f), penalty(0.5), poslist([pos(2, 0, 3, ['Send', 'Zahl'|'R1'])]), hint('<b>[Send, Zahl|R1]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [Head|Tail1]'), highlighted(['sendung_von_sender([], _, []).<br>', 'sendung_von_sender([[Y, Send|Zahl]|T], Y,  <b><font color=red>[Send, Zahl|R1]</b></font> ):-sendung_von_sender(T, Y, R1).<br>']))], [nok, ok, ok, ok], ['in Zeile zwei gibt es eine Rekursonsklausel', korrekt, korrekt, korrekt], '').
test(exer8, 7, [declaration(sp, sender, [d('A1', +, list, 'GesamtListe'), d('A2', -, list, 'Liste'), d('A3', +, atom, 'Sender')])], [basecase, recursivecase], [map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg3', 3, -, list, ['Liste']), predicatedec(sp, sender, 3, sender/3, main, 'A2', 2, -, list, 'Liste')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg2', 2, +, atom, ['Sender']), predicatedec(sp, sender, 3, sender/3, main, 'A3', 3, +, atom, 'Sender')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg1', 1, +, list, ['Gesamtliste']), predicatedec(sp, sender, 3, sender/3, main, 'A1', 1, +, list, 'GesamtListe'))], 'sender([], [], _).\n sender([X|Y], [[A|B]|Z], Sender):- [A|B]=X, A=Sender, sender(Y,Z,Sender).\n', [error(id(s7h), penalty(0.01), poslist([]), hint('Eine Rekursionsklausel fehlt. Oder haben Sie ein rekursives Subziel vergessen?'), highlighted([' <b><font color=red>sender([], [], _)</b></font> .<br>', ' <b><font color=red>sender([X|Y], [[A|B]|Z], Sender)</b></font> :- <b><font color=red>[A|B]=X</b></font> ,  <b><font color=red>A=Sender</b></font> ,  <b><font color=red>sender(Y, Z, Sender)</b></font> .<br>'])), error(id(s1e), penalty(0.5), poslist([pos(2, 1, 1, ['A'|'B'])]), hint('<b>[A|B]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [SenderName, _, _]'), highlighted(['sender([], [], _).<br>', 'sender([X|Y], [[A|B]|Z], Sender):- <b><font color=red>[A|B]</b></font> =X, A=Sender, sender(Y, Z, Sender).<br>']))], [ok, ok], ['', ''], '').
test(exer8, 8, [declaration(sp, sender, [d('A1', +, list, 'GesamtListe'), d('A2', +, atom, 'Sender'), d('A3', -, list, 'Liste')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg3', 3, -, list, ['Liste']), predicatedec(sp, sender, 3, sender/3, main, 'A3', 3, -, list, 'Liste')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg2', 2, +, atom, ['Sender']), predicatedec(sp, sender, 3, sender/3, main, 'A2', 2, +, atom, 'Sender')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg1', 1, +, list, ['Gesamtliste']), predicatedec(sp, sender, 3, sender/3, main, 'A1', 1, +, list, 'GesamtListe'))], 'sender([], _,[]).\n sender(zuschauer([X|Y]), Sender, [A|B]):- [Sender|_]=X, X=A, sender(Y,Sender,B).\n sender(zuschauer([X|Y]), Sender, [B]):-sender(Y,Sender, B).\n', [error(id(pre2c), penalty(0.3), poslist([pos(2, 0, 1, zuschauer(['X'|'Y']))]), hint('Der Typ von <b>zuschauer([X|Y])</b> stimmt nicht mit der Deklaration überein. Es sollte eine Liste sein.'), highlighted(['sender([], _, []).<br>', 'sender( <b><font color=red>zuschauer([X|Y])</b></font> , Sender, [A|B]):-[Sender|_]=X, X=A, sender(Y, Sender, B).<br>', 'sender(zuschauer([X|Y]), Sender, [B]):-sender(Y, Sender, B).<br>'])), error(id(pre2c), penalty(0.3), poslist([pos(3, 0, 1, zuschauer(['X'|'Y']))]), hint('Der Typ von <b>zuschauer([X|Y])</b> stimmt nicht mit der Deklaration überein. Es sollte eine Liste sein.'), highlighted(['sender([], _, []).<br>', 'sender(zuschauer([X|Y]), Sender, [A|B]):-[Sender|_]=X, X=A, sender(Y, Sender, B).<br>', 'sender( <b><font color=red>zuschauer([X|Y])</b></font> , Sender, [B]):-sender(Y, Sender, B).<br>']))], [ok, ok], ['', ''], '').
test(exer8, 9, [declaration(sp, neu, [d('A1', +, list, 'GesamtListe'), d('A2', +, atom, 'Sender'), d('A3', -, list, 'Liste')])], [basecase, basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg3', 3, -, list, ['Liste']), predicatedec(sp, neu, 3, neu/3, main, 'A3', 3, -, list, 'Liste')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg2', 2, +, atom, ['Sender']), predicatedec(sp, neu, 3, neu/3, main, 'A2', 2, +, atom, 'Sender')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg1', 1, +, list, ['Gesamtliste']), predicatedec(sp, neu, 3, neu/3, main, 'A1', 1, +, list, 'GesamtListe'))], 'neu(_,_,[]).\n neu([], N, []).\n neu([[F|RST]|Alt], N, [[F|RST]|Neu]):- N2 is N-1, neu(Alt, N2, Neu).\n neu([_|Alt], N, [_|Neu, F]):- neu(Alt, N2, Neu), N2 is N-1.\n', [error(id(s7k), penalty(0.8), poslist([pos(4, 0, 3, ['_'| ('Neu', 'F')])]), hint('An der Stelle von <b>[_| (Neu, F)]</b> erwarten wir eine Variable.'), highlighted(['neu(_, _, []).<br>', 'neu([], N, []).<br>', 'neu([[F|RST]|Alt], N, [[F|RST]|Neu]):-N2 is N-1, neu(Alt, N2, Neu).<br>', 'neu([_|Alt], N,  <b><font color=red>[_| (Neu, F)]</b></font> ):-neu(Alt, N2, Neu), N2 is N-1.<br>'])), error(id(s7i), penalty(0.01), poslist([pos(1)]), hint('<b>neu/3</b>: Die Prädikatsdefinition hat mehr Rekursionsabschlüsse als erforderlich.'), highlighted([' <b><font color=red>neu(_, _, [])</b></font> .<br>', 'neu([], N, []).<br>', 'neu([[F|RST]|Alt], N, [[F|RST]|Neu]):-N2 is N-1, neu(Alt, N2, Neu).<br>', 'neu([_|Alt], N, [_| (Neu, F)]):-neu(Alt, N2, Neu), N2 is N-1.<br>'])), error(id(s1a2), penalty(0.1), poslist([pos(4, 0, 1, ['_'|'Alt'])]), hint('An der Stelle von <b>[_|Alt]</b> sollte eine eingebette (De-)Komposition (z.B. [[X|H]|T]) stattfinden.'), highlighted(['neu(_, _, []).<br>', 'neu([], N, []).<br>', 'neu([[F|RST]|Alt], N, [[F|RST]|Neu]):-N2 is N-1, neu(Alt, N2, Neu).<br>', 'neu( <b><font color=red>[_|Alt]</b></font> , N, [_| (Neu, F)]):-neu(Alt, N2, Neu), N2 is N-1.<br>'])), error(id(s1g), penalty(0.1), poslist([pos(4, 0, 3, ['_'| ('Neu', 'F')])]), hint('<b>[_| (Neu, F)]</b>: Diese (De-)Komposition ist überflüssig.'), highlighted(['neu(_, _, []).<br>', 'neu([], N, []).<br>', 'neu([[F|RST]|Alt], N, [[F|RST]|Neu]):-N2 is N-1, neu(Alt, N2, Neu).<br>', 'neu([_|Alt], N,  <b><font color=red>[_| (Neu, F)]</b></font> ):-neu(Alt, N2, Neu), N2 is N-1.<br>'])), error(id(s3d), penalty(0.5), poslist([pos(4, 1, 3, 'Neu'), pos(4, 0, 3, ['_'| ('Neu', 'F')])]), hint('<b>Neu</b> sollte mit der Argumentposition des Terms <b>[_| (Neu, F)]</b> koreferieren.'), highlighted(['neu(_, _, []).<br>', 'neu([], N, []).<br>', 'neu([[F|RST]|Alt], N, [[F|RST]|Neu]):-N2 is N-1, neu(Alt, N2, Neu).<br>', 'neu([_|Alt], N,  <b><font color=red>[_| (Neu, F)]</b></font> ):-neu(Alt, N2,  <b><font color=red>Neu</b></font> ), N2 is N-1.<br>'])), error(id(s3d), penalty(0.5), poslist([pos(4, 1, 2, 'N2'), pos(4, 0, 2, 'N')]), hint('<b>N2</b> sollte mit der Argumentposition des Terms <b>N</b> koreferieren.'), highlighted(['neu(_, _, []).<br>', 'neu([], N, []).<br>', 'neu([[F|RST]|Alt], N, [[F|RST]|Neu]):-N2 is N-1, neu(Alt, N2, Neu).<br>', 'neu([_|Alt],  <b><font color=red>N</b></font> , [_| (Neu, F)]):-neu(Alt,  <b><font color=red>N2</b></font> , Neu), N2 is N-1.<br>'])), error(id(s5b), penalty(0.1), poslist([pos(4, 2)]), hint('<b>N2 is N-1</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['neu(_, _, []).<br>', 'neu([], N, []).<br>', 'neu([[F|RST]|Alt], N, [[F|RST]|Neu]):-N2 is N-1, neu(Alt, N2, Neu).<br>', 'neu([_|Alt], N, [_| (Neu, F)]):-neu(Alt, N2, Neu),  <b><font color=red>N2 is N-1</b></font> .<br>'])), error(id(s10a), penalty(0.1), poslist([pos(4)]), hint('Es soll einen Test zwischen 2 Terms/Variablen/Atome/Nummer in dieser Klausel geben.'), highlighted(['neu(_, _, []).<br>', 'neu([], N, []).<br>', 'neu([[F|RST]|Alt], N, [[F|RST]|Neu]):-N2 is N-1, neu(Alt, N2, Neu).<br>', ' <b><font color=red>neu([_|Alt], N, [_| (Neu, F)])</b></font> :- <b><font color=red>neu(Alt, N2, Neu)</b></font> ,  <b><font color=red>N2 is N-1</b></font> .<br>'])), error(id(post5a), penalty(0.8), poslist([pos(4, 0, 3, 'F')]), hint('<b>F</b>: Diese Variable/Konstante existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable/Konstante anonym sein?'), highlighted(['neu(_, _, []).<br>', 'neu([], N, []).<br>', 'neu([[F|RST]|Alt], N, [[F|RST]|Neu]):-N2 is N-1, neu(Alt, N2, Neu).<br>', 'neu([_|Alt], N,  <b><font color=red>[_| (Neu, F)]</b></font> ):-neu(Alt, N2, Neu), N2 is N-1.<br>'])), error(id(s1f), penalty(0.5), poslist([pos(3, 0, 3, ['F'|'RST'])]), hint('<b>[F|RST]</b>: Dieses Argument sollte in folgender Form zerlegt werden: [SenderName, _, _]'), highlighted(['neu(_, _, []).<br>', 'neu([], N, []).<br>', 'neu([[F|RST]|Alt], N,  <b><font color=red>[[F|RST]|Neu]</b></font> ):-N2 is N-1, neu(Alt, N2, Neu).<br>', 'neu([_|Alt], N, [_| (Neu, F)]):-neu(Alt, N2, Neu), N2 is N-1.<br>'])), error(id(s3d), penalty(0.5), poslist([pos(3, 2, 2, 'N2'), pos(3, 0, 2, 'N')]), hint('<b>N2</b> sollte mit der Argumentposition des Terms <b>N</b> koreferieren.'), highlighted(['neu(_, _, []).<br>', 'neu([], N, []).<br>', 'neu([[F|RST]|Alt],  <b><font color=red>N</b></font> , [[F|RST]|Neu]):-N2 is N-1, neu(Alt,  <b><font color=red>N2</b></font> , Neu).<br>', 'neu([_|Alt], N, [_| (Neu, F)]):-neu(Alt, N2, Neu), N2 is N-1.<br>'])), error(id(s5b), penalty(0.1), poslist([pos(3, 1)]), hint('<b>N2 is N-1</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['neu(_, _, []).<br>', 'neu([], N, []).<br>', 'neu([[F|RST]|Alt], N, [[F|RST]|Neu]):- <b><font color=red>N2 is N-1</b></font> , neu(Alt, N2, Neu).<br>', 'neu([_|Alt], N, [_| (Neu, F)]):-neu(Alt, N2, Neu), N2 is N-1.<br>'])), error(id(post5b), penalty(0.8), poslist([pos(2, 0, 2, 'N')]), hint('<b>N</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['neu(_, _, []).<br>', 'neu([],  <b><font color=red>N</b></font> , []).<br>', 'neu([[F|RST]|Alt], N, [[F|RST]|Neu]):-N2 is N-1, neu(Alt, N2, Neu).<br>', 'neu([_|Alt], N, [_| (Neu, F)]):-neu(Alt, N2, Neu), N2 is N-1.<br>']))], [ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok, ok], ['', '', '', '', '', '', '', '', '', '', '', '', ''], '').
test(exer8, 10, [declaration(sp, sender, [d('A1', +, list, 'GesamtListe'), d('A2', +, atom, 'Sender'), d('A3', -, list, 'Liste')])], [basecase, recursivecase, recursivecase], [map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg3', 3, -, list, ['Liste']), predicatedec(sp, sender, 3, sender/3, main, 'A3', 3, -, list, 'Liste')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg2', 2, +, atom, ['Sender']), predicatedec(sp, sender, 3, sender/3, main, 'A2', 2, +, atom, 'Sender')), map(dec, predicatedec(tp, tpsenderlist, 3, tpsenderlist/3, main, 'Arg1', 1, +, list, ['Gesamtliste']), predicatedec(sp, sender, 3, sender/3, main, 'A1', 1, +, list, 'GesamtListe'))], 'sender([], _,[]).\n sender([H|T], S, [H|X]):-H=[S,_,_], sender(T, S,X).\n sender([H|T], S,X):-H\\= [S, _,_], sender(T, S,X).\n', [error(id(s1a2), penalty(0.1), poslist([pos(3, 0, 1, ['H'|'T'])]), hint('An der Stelle von <b>[H|T]</b> sollte eine eingebette (De-)Komposition (z.B. [[X|H]|T]) stattfinden.'), highlighted(['sender([], _, []).<br>', 'sender([H|T], S, [H|X]):-H=[S, _, _], sender(T, S, X).<br>', 'sender( <b><font color=red>[H|T]</b></font> , S, X):-H\\=[S, _, _], sender(T, S, X).<br>'])), error(id(s10c), penalty(0.5), poslist([pos(3, 1, 2, ['S', '_', '_'])]), hint('Ein Argument des Termtest-Subziels hat nicht die richtige Datenstruktur (Eine Datenstruktur ist entweder eine Liste, ein Atom, eine Zahl oder eine Variable, die beliebiges darstellen soll).'), highlighted(['sender([], _, []).<br>', 'sender([H|T], S, [H|X]):-H=[S, _, _], sender(T, S, X).<br>', 'sender([H|T], S, X):-H\\= <b><font color=red>[S, _, _]</b></font> , sender(T, S, X).<br>'])), error(id(s4a), penalty(0.5), poslist([pos(3, 0, 1, ['H'|'T']), pos(3, 1, 1, 'H')]), hint('Die Unifikation zwischen <b>[H|T]</b> und <b>H</b> ist nicht erforderlich.'), highlighted(['sender([], _, []).<br>', 'sender([H|T], S, [H|X]):-H=[S, _, _], sender(T, S, X).<br>', 'sender( <b><font color=red>[H|T]</b></font> , S, X):- <b><font color=red>H</b></font> \\=[S, _, _], sender(T, S, X).<br>']))], [ok, ok, ok], ['nicht sofort ersichtlich', '', 'kein eindeutiger Hinweis'], '').
test(exer9, 1, [declaration(sp, rechnung_e, [d('A1', +, number, 'Kundennummer'), d('A2', +, number, 'Rechnungsnummer'), d('A3', -, number, 'Betrag'), d('A4', +, number, 'Datum')])], [nonrecursive], [map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg1', 1, +, number, ['Kunde']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A1', 1, +, number, 'Kundennummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg2', 2, +, number, ['Rechnungsnummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A2', 2, -, number, 'Rechnungsnummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg3', 3, -, number, ['Betrag']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A3', 3, -, number, 'Betrag')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg4', 4, +, number, ['Datum']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A4', 4, +, number, 'Datum'))], 'rechnung_e(Kundennummer, Rechnungsnummer, Betrage, Datum):-rechnung(Rechnungsnummer, Kundennummer, Betrag, Datum), Betrage is Betrag/195*100.\n', [error(id(s6a2), penalty(0.5), poslist([pos(1, 2)]), hint('Der Multiplikand <b>100</b> in der Multiplikation von Betrag/195*100 ist überflüssig.'), highlighted(['rechnung_e(Kundennummer, Rechnungsnummer, Betrage, Datum):-rechnung(Rechnungsnummer, Kundennummer, Betrag, Datum),  <b><font color=red>Betrage is Betrag/195*100</b></font> .<br>'])), error(id(s6d3), penalty(0.8), poslist([pos(1, 2, 2, 195)]), hint('Die Konstante <b>195</b> erfüllt nicht die Aufgabenstellung. Wir empfehlen: <b>1.95<b>'), highlighted(['rechnung_e(Kundennummer, Rechnungsnummer, Betrage, Datum):-rechnung(Rechnungsnummer, Kundennummer, Betrag, Datum), Betrage is  <b><font color=red>Betrag/195*100</b></font> .<br>']))], [ok, ok], ['', ''], korrekt).
test(exer9, 2, [declaration(sp, rechnung_e, [d('A1', +, number, 'Kundennummer'), d('A2', +, number, 'Rechnungsnummer'), d('A3', -, number, 'Betrag'), d('A4', +, number, 'Datum')])], [nonrecursive], [map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg1', 1, +, number, ['Kunde']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A1', 1, +, number, 'Kundennummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg2', 2, +, number, ['Rechnungsnummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A2', 2, -, number, 'Rechnungsnummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg3', 3, -, number, ['Betrag']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A3', 3, -, number, 'Betrag')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg4', 4, +, number, ['Datum']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A4', 4, +, number, 'Datum'))], 'rechnung_e(Knr, Rnr, B_ineuro, D):-B_ineuro is B_inDM*1.95, rechnung(Rnr, Knr, B_inDM, D).\n', [error(id(s6d), penalty(0.5), poslist([pos(1, 1, 2, 1.95)]), hint('An der Stelle von <b>1.95</b> wird eine Division erwartet.'), highlighted(['rechnung_e(Knr, Rnr, B_ineuro, D):-B_ineuro is  <b><font color=red>B_inDM*1.95</b></font> , rechnung(Rnr, Knr, B_inDM, D).<br>'])), error(id(post7b), penalty(0.8), poslist([pos(1, 1, 2, 'B_inDM')]), hint('<b>B_inDM</b> muss gebunden sein, bevor das Kalkulationssubziel <b>B_ineuro is B_inDM*1.95</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['rechnung_e(Knr, Rnr, B_ineuro, D):-B_ineuro is  <b><font color=red>B_inDM*1.95</b></font> , rechnung(Rnr, Knr, B_inDM, D).<br>']))], [ok, ok], ['', ''], korrekt).
test(exer9, 3, [declaration(sp, rechnung_e, [d('A1', +, number, 'Kundennummer'), d('A2', +, number, 'Rechnungsnummer'), d('A3', -, number, 'Betrag'), d('A4', +, number, 'Datum')])], [nonrecursive], [map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg1', 1, +, number, ['Kunde']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A1', 1, +, number, 'Kundennummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg2', 2, +, number, ['Rechnungsnummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A2', 2, -, number, 'Rechnungsnummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg3', 3, -, number, ['Betrag']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A3', 3, -, number, 'Betrag')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg4', 4, +, number, ['Datum']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A4', 4, +, number, 'Datum'))], 'rechnung_e(Kundennummer, Rechnungsnummer, EBetrag, Datum):-rechnung(Rechnungsnummer, Kundennummer, Betrag, Datum), EBetrag is Betrag/1.95.\n', [], [], [], korrekt).
test(exer9, 4, [declaration(sp, rechnung_e, [d('A1', +, number, 'Kundennummer'), d('A2', +, number, 'Rechnungsnummer'), d('A3', -, number, 'Betrag'), d('A4', +, number, 'Datum')])], [nonrecursive], [map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg1', 1, +, number, ['Kunde']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A1', 1, +, number, 'Kundennummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg2', 2, +, number, ['Rechnungsnummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A2', 2, -, number, 'Rechnungsnummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg3', 3, -, number, ['Betrag']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A3', 3, -, number, 'Betrag')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg4', 4, +, number, ['Datum']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A4', 4, +, number, 'Datum'))], 'rechnung_e(KundNr, RechNr, Euro, Datum):-rechnung(RechNr, KundNr, Betrag,Datum), Betrag is Euro/1.95.\n', [error(id(s5a), penalty(0.1), poslist([pos(1, 0, 3, 'Euro')]), hint('Eine arithmetische Kalkulation für das Argument an der Stelle von <b>Euro</b> fehlt.'), highlighted(['rechnung_e(KundNr, RechNr,  <b><font color=red>Euro</b></font> , Datum):-rechnung(RechNr, KundNr, Betrag, Datum), Betrag is Euro/1.95.<br>'])), error(id(s6a3), penalty(0.5), poslist([pos(1, 2)]), hint('Entweder der Zähler <b>Euro</b> oder der Nenner <b>1.95</b> des Multiplikands <b>Euro/1.95</b> ist überflüssig.'), highlighted(['rechnung_e(KundNr, RechNr, Euro, Datum):-rechnung(RechNr, KundNr, Betrag, Datum),  <b><font color=red>Betrag is Euro/1.95</b></font> .<br>'])), error(id(s6e1), penalty(0.7), poslist([pos(1, 2, 2, 'Euro')]), hint('Die Variable <b>Euro</b> hat eine falsche Koreferenz. Sie sollte mit <b>Betrag</b> koreferieren.'), highlighted(['rechnung_e(KundNr, RechNr, Euro, Datum):-rechnung(RechNr, KundNr, Betrag, Datum), Betrag is  <b><font color=red>Euro/1.95</b></font> .<br>'])), error(id(s4b1), penalty(0.3), poslist([pos(1, 2, 1, 'Betrag'), pos(1, 0, 3, 'Euro')]), hint('Das Ergebnis einer arithmetischen Kalkulation muss in den Klauselkopf zurückgebunden werden. Unifizere <b>Betrag</b> und <b>Euro</b>'), highlighted(['rechnung_e(KundNr, RechNr,  <b><font color=red>Euro</b></font> , Datum):-rechnung(RechNr, KundNr, Betrag, Datum),  <b><font color=red>Betrag</b></font> is Euro/1.95.<br>'])), error(id(post7b), penalty(0.8), poslist([pos(1, 2, 2, 'Euro')]), hint('<b>Euro</b> muss gebunden sein, bevor das Kalkulationssubziel <b>Betrag is Euro/1.95</b> ausgeführt werden kann. Vielleicht liegt es daran, dass vorherige Subziele noch nicht erfolgreich durchgeführt werden können.'), highlighted(['rechnung_e(KundNr, RechNr, Euro, Datum):-rechnung(RechNr, KundNr, Betrag, Datum), Betrag is  <b><font color=red>Euro/1.95</b></font> .<br>']))], [ok, ok, ok, ok, ok], ['', 'überflüssig - schlechte Wortwahl', '', '', ''], '').
test(exer9, 5, [declaration(sp, rechnung_e, [d('A1', +, number, 'Kundennummer'), d('A2', +, number, 'Rechnungsnummer'), d('A3', -, number, 'Betrag'), d('A4', +, number, 'Datum')])], [nonrecursive], [map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg1', 1, +, number, ['Kunde']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A1', 1, +, number, 'Kundennummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg2', 2, +, number, ['Rechnungsnummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A2', 2, -, number, 'Rechnungsnummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg3', 3, -, number, ['Betrag']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A3', 3, -, number, 'Betrag')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg4', 4, +, number, ['Datum']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A4', 4, +, number, 'Datum'))], 'rechnung_e(Kundennummer, Rechnungsnummer, Betrag_e, Datum):-rechnung(Rechnungsnummer, Kundennummer, Betrag, Datum), Betrag_e is Betrag/1.95.\n', [], [], [], korrekt).
test(exer9, 6, [declaration(sp, rechnung_e, [d('A1', +, number, 'Datum'), d('A2', -, number, 'Euro'), d('A3', +, number, 'Rechnungsnummer'), d('A4', +, number, 'Kundennummer')])], [nonrecursive], [map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg4', 4, +, number, ['Datum']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A1', 1, +, number, 'Datum')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg3', 3, -, number, ['Euro']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A2', 2, -, number, 'Euro')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg2', 2, +, number, ['Rechnungsnummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A3', 3, +, number, 'Rechnungsnummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg1', 1, +, number, ['Kundennummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A4', 4, +, number, 'Kundennummer'))], 'rechnung_e(Betrag, Euro, Rnr, Knr):-Zs is Betrag*195, Euro is Zs/100.\n', [error(id(s5b), penalty(0.1), poslist([pos(1, 1)]), hint('<b>Zs is Betrag*195</b> : Diese arithmetische Kalkulation ist überflüssig.'), highlighted(['rechnung_e(Betrag, Euro, Rnr, Knr):- <b><font color=red>Zs is Betrag*195</b></font> , Euro is Zs/100.<br>'])), error(id(s6a3), penalty(0.5), poslist([pos(1, 2)]), hint('Entweder der Zähler <b>Zs</b> oder der Nenner <b>100</b> des Multiplikands <b>Zs/100</b> ist überflüssig.'), highlighted(['rechnung_e(Betrag, Euro, Rnr, Knr):-Zs is Betrag*195,  <b><font color=red>Euro is Zs/100</b></font> .<br>'])), error(id(s6d3), penalty(0.8), poslist([pos(1, 2, 2, 100)]), hint('Die Konstante <b>100</b> erfüllt nicht die Aufgabenstellung. Wir empfehlen: <b>1.95<b>'), highlighted(['rechnung_e(Betrag, Euro, Rnr, Knr):-Zs is Betrag*195, Euro is  <b><font color=red>Zs/100</b></font> .<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 3, 'Rnr')]), hint('<b>Rnr</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['rechnung_e(Betrag, Euro,  <b><font color=red>Rnr</b></font> , Knr):-Zs is Betrag*195, Euro is Zs/100.<br>'])), error(id(post5b), penalty(0.8), poslist([pos(1, 0, 4, 'Knr')]), hint('<b>Knr</b>: Diese Variable existiert im Klauselkopf, wird aber nicht benutzt. Ist sie überflüssig? Haben Sie ein Subziel vergessen? Oder soll die Variable anonym sein?'), highlighted(['rechnung_e(Betrag, Euro, Rnr,  <b><font color=red>Knr</b></font> ):-Zs is Betrag*195, Euro is Zs/100.<br>']))], [ok, ok, ok, ok, ok], ['', '', '', '', ''], korrekt).
test(exer9, 7, [declaration(sp, rechnung_e, [d('A1', +, number, 'Rechnungsnummer'), d('A2', +, number, 'Kundennummer'), d('A3', -, number, 'Betrag'), d('A4', +, number, 'Datum')])], [nonrecursive], [map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg1', 1, +, number, ['Kundennummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A2', 2, -, number, 'Rechnungsnummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg2', 2, +, number, ['Rechnungsnummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A1', 1, +, number, 'Kundennummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg3', 3, -, number, ['Betrag']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A3', 3, -, number, 'Betrag')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg4', 4, +, number, ['Datum']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A4', 4, +, number, 'Datum'))], 'rechnung_e(Rechnungsnummer, Kundennummer, BetragEuro, Datum):-rechnung(Rechnungsnummer, Kundennummer, Betrag, Datum), BetragEuro is Betrag/1.95.\n', [], [], [], korrekt).
test(exer9, 8, [declaration(sp, rechnung_e, [d('A1', +, number, 'Rechnungsnummer'), d('A2', +, number, 'Kundennummer'), d('A3', -, number, 'Betrag'), d('A4', +, number, 'Datum')])], [nonrecursive], [map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg1', 1, +, number, ['Kundennummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A2', 2, -, number, 'Rechnungsnummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg2', 2, +, number, ['Rechnungsnummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A1', 1, +, number, 'Kundennummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg3', 3, -, number, ['Betrag']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A3', 3, -, number, 'Betrag')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg4', 4, +, number, ['Datum']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A4', 4, +, number, 'Datum'))], 'rechnung_e(R,K,B,D):-rechnung(R,K,B,D), B is B*1.95.\n', [error(id(s6d), penalty(0.5), poslist([pos(1, 2, 2, 1.95)]), hint('An der Stelle von <b>1.95</b> wird eine Division erwartet.'), highlighted(['rechnung_e(R, K, B, D):-rechnung(R, K, B, D), B is  <b><font color=red>B*1.95</b></font> .<br>'])), error(id(s4a1), penalty(0.5), poslist([pos(1, 0, 3, 'B'), pos(1, 1, 3, 'B')]), hint('Die Koreferenz zwischen diesen Argumentstellen ist nicht erforderlich.'), highlighted(['rechnung_e(R, K,  <b><font color=red>B</b></font> , D):-rechnung(R, K,  <b><font color=red>B</b></font> , D), B is B*1.95.<br>']))], [ok, ok], ['', ''], korrekt).
test(exer9, 9, [declaration(sp, rechnung_e, [d('A1', +, number, 'Rechnungsnummer'), d('A2', +, number, 'Kundennummer'), d('A3', -, number, 'Betrag'), d('A4', +, number, 'Datum')])], [nonrecursive], [map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg1', 1, +, number, ['Kundennummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A2', 2, -, number, 'Rechnungsnummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg2', 2, +, number, ['Rechnungsnummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A1', 1, +, number, 'Kundennummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg3', 3, -, number, ['Betrag']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A3', 3, -, number, 'Betrag')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg4', 4, +, number, ['Datum']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A4', 4, +, number, 'Datum'))], 'rechnung_e(Rechnungsnummer, Kundennummer, Betrag_e, Datum):-rechnung(Kundennummer, Kundennummer, Betrag, Datum), Betrag_e = Betrag/1,95.\n', [error(id(g7), penalty(0.5), poslist([pos(1, 3)]), hint('95/0: Dieses Subziel ist unbekannt.'), highlighted(['rechnung_e(Rechnungsnummer, Kundennummer, Betrag_e, Datum):-rechnung(Kundennummer, Kundennummer, Betrag, Datum), Betrag_e=Betrag/1,  <b><font color=red>95</b></font> .<br>']))], [nok], ['Tippfehler - Leerzeichen zuviel!'], '').
test(exer9, 10, [declaration(sp, rechnung_e, [d('A1', +, number, 'Rechnungsnummer'), d('A2', +, number, 'Kundennummer'), d('A3', -, number, 'Betrag'), d('A4', +, number, 'Datum')])], [nonrecursive], [map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg1', 1, +, number, ['Kundennummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A2', 2, -, number, 'Rechnungsnummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg2', 2, +, number, ['Rechnungsnummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A1', 1, +, number, 'Kundennummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg3', 3, -, number, ['Betrag']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A3', 3, -, number, 'Betrag')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg4', 4, +, number, ['Datum']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A4', 4, +, number, 'Datum'))], 'rechnung_e(RechnungsNr, KundenNr, Betrag/1.95, Datum):-rechnung(RechnungsNr, KundenNr, Betrag, Datum).\n', [error(id(pre2e), penalty(0.3), poslist([pos(1, 0, 3, 'Betrag'/1.95)]), hint('Der Typ von <b>Betrag/1.95</b> stimmt nicht mit der Deklaration überein. Es sollte eine Zahl sein.'), highlighted(['rechnung_e(RechnungsNr, KundenNr,  <b><font color=red>Betrag/1.95</b></font> , Datum):-rechnung(RechnungsNr, KundenNr, Betrag, Datum).<br>']))], [ok], [''], korrekt).
test(exer9, 11, [declaration(sp, rechnung_e, [d('A1', +, number, 'Rechnungsnummer'), d('A2', +, number, 'Kundennummer'), d('A3', -, number, 'Betrag'), d('A4', +, number, 'Datum')])], [nonrecursive], [map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg1', 1, +, number, ['Kundennummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A2', 2, -, number, 'Rechnungsnummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg2', 2, +, number, ['Rechnungsnummer']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A1', 1, +, number, 'Kundennummer')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg3', 3, -, number, ['Betrag']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A3', 3, -, number, 'Betrag')), map(dec, predicatedec(tp, tprechnung_e, 4, tprechnung_e/4, main, 'Arg4', 4, +, number, ['Datum']), predicatedec(sp, rechnung_e, 4, rechnung_e/4, main, 'A4', 4, +, number, 'Datum'))], 'rechnung_e(RNr, KNr, BetragE, Datum):-rechnung(RNr, KNr, BetragDM, Datum), BetragE is BetragDM*100/1.95.\n', [error(id(s6a2), penalty(0.5), poslist([pos(1, 2)]), hint('Der Multiplikand <b>100</b> in der Multiplikation von 100*BetragDM/1.95 ist überflüssig.'), highlighted(['rechnung_e(RNr, KNr, BetragE, Datum):-rechnung(RNr, KNr, BetragDM, Datum),  <b><font color=red>BetragE is BetragDM*100/1.95</b></font> .<br>']))], [ok], [''], korrekt).