(* Programmieraufgabe P-17							*)
(* Realisierung Primzahlbestimmung gemŠ§ Folie 62.	*)

(* Leonhard Fellermayr								*)
(* Mat.Nr. 22128130XXXX								*)

let rec keineTeiler (n, k) = 
  if k > n-1 then true
  else n mod k <> 0 && keineTeiler (n, k+1);;
  
let istPrim n =
  (n > 1) && (keineTeiler (n, 2));;

(* EOF *)