/* Forskellige øvelser med lister */

/* Find sidste element i en liste */
/*sidste(Element, []):- write('Fejl - tom liste'), nl, fail.*/
sidste(Element, [Element]).
sidste(Element, [_| T]):- sidste(Element, T).

count(0, []).
count(N1, [_ | T]):- count(N, T), N1 is 1 + N.