(* Programmieraufgabe P-44 (schlange.ml) *) (* Leonhard Fellermayr *) (* Mat.Nr. 22128130XXXX *) exception Schlange_Leer;; let init = ([],[]);; let nil (la,lb) = (la == lb) && (la == []);; let enter (la,lb) ele = (la,ele::lb);; let hd (la,lb) = match (la@lb) with x::xs -> x | [] -> raise Schlange_Leer;; let tl (la,lb) = match (la,lb) with (x::xs,yl) -> (xs,yl) | ([],y::ys) -> (ys,[]) | ([],[]) -> raise Schlange_Leer;; (* Ein paar Beispiel-Schlangen zum Testen *) let test1 = ([],[]);; let test2 = ([1;2;3],[4;5;6;7]);; let test3 = ([],[9;11;13;15;17]);; let test4 = ([4;7;1;1],[]);; (* EOF *)