Aspekte der morphologischen Analyse des Deutschen - Universität ...
Aspekte der morphologischen Analyse des Deutschen - Universität ...
Aspekte der morphologischen Analyse des Deutschen - Universität ...
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Anhang C: Programmcode<br />
split3([X1,X2,X3,X4,X5,X6], [X1,X2], [X3], [X4,X5,X6]) := top.<br />
split3([X1,X2,X3,X4,X5,X6], [X1,X2,X3], [X4], [X5,X6]) := top.<br />
split3([X1,X2,X3,X4,X5,X6], [X1,X2,X3,X4], [X5], [X6]) := top.<br />
split3([X1,X2,X3,X4,X5,X6,X7], [X1], [X2], [X3,X4,X5,X6,X7]) := top.<br />
split3([X1,X2,X3,X4,X5,X6,X7], [X1,X2], [X3], [X4,X5,X6,X7]) := top.<br />
split3([X1,X2,X3,X4,X5,X6,X7], [X1,X2,X3], [X4], [X5,X6,X7]) := top.<br />
split3([X1,X2,X3,X4,X5,X6,X7], [X1,X2,X3,X4], [X5], [X6,X7]) := top.<br />
split3([X1,X2,X3,X4,X5,X6,X7], [X1,X2,X3,X4,X5], [X6], [X7]) := top.<br />
testsplit(L) := split(L,L1,L2) & [L1,L2].<br />
testsplit3(L) := split3(L,L1,L2,L3) & [L1,L2,L3].<br />
%<br />
% delete_elist(List): delete all occurences of elist from List<br />
%<br />
delete_elist([]) := [].<br />
delete_elist([[]]) := [].<br />
delete_elist([A & ~elist]) := [A].<br />
%delete_elist([]) := [].<br />
%delete_elist([elist|T]) := delete_elist(T).<br />
%delete_elist([A & ~elist|T]) := [A|delete_elist(T)].<br />
append([],L) := L.<br />
append([X],L) := [X|L].<br />
append([X,Y],L) := [X,Y|L].<br />
append([X,Y,Z],L) := [X,Y,Z|L].<br />
member(X,[X]) := top.<br />
member(X,[_,X]) := top.<br />
member(X,[X,_]) := top.<br />
member(X,[X,_,_]) := top.<br />
member(X,[_,X,_]) := top.<br />
member(X,[_,_,X]) := top.<br />
member(X,[X,_,_,_]) := top.<br />
member(X,[_,X,_,_]) := top.<br />
member(X,[_,_,X,_]) := top.<br />
member(X,[_,_,_,X]) := top.<br />
% member-predicate that returns the list without the found element X<br />
member(X,[X],[]) := top.<br />
member(X,[A1,X],[A1]) := top.<br />
member(X,[X,A1],[A1]) := top.<br />
member(X,[X,A1,A2],[A1,A2]) := top.<br />
member(X,[A1,X,A2],[A1,A2]) := top.<br />
member(X,[A1,A2,X],[A1,A2]) := top.<br />
member(X,[X,A1,A2,A3],[A1,A2,A3]) := top.<br />
member(X,[A1,X,A2,A3],[A1,A2,A3]) := top.<br />
member(X,[A1,A2,X,A3],[A1,A2,A3]) := top.<br />
member(X,[A1,A2,A3,X],[A1,A2,A3]) := top.<br />
%append([],L) := L.<br />
%append([H|T],L) := [H|append(T,L)].<br />
%member(X,[X|_]) := top.<br />
%member(X,[_|R]) := member(X,R).<br />
% create a copy of the list<br />
listcopy([]) := [].<br />
listcopy([H|T]) := [H|listcopy(T)].<br />
252