16 lines
342 B
OpenEdge ABL
16 lines
342 B
OpenEdge ABL
append([],Ys,Ys).
|
|
append([X|Xs],Ys,[X|Zs]) :- append(Xs,Ys,Zs).
|
|
|
|
suffix(Xs, Ys) :-
|
|
append(Xs, Suffix, Ys),
|
|
write(Suffix).
|
|
|
|
cut(Zs) :-
|
|
findall([Xs,Ys], (append(Xs, Ys, Zs)), Results),
|
|
print_results(Results).
|
|
|
|
print_results([]).
|
|
print_results([Result|Results]) :-
|
|
write(Result), nl,
|
|
print_results(Results).
|