let head = List.head

let tail = List.tail

​

let rec zbirListe L =

   if L = [] then 0

   else (head L) + zbirListe (tail L)

printfn "%A" (zbirListe [1;2;3;4;5;6])

let prosekListe L =

   if L=[] then failwith "Lista je prazna"

   else float (zbirListe L) / (float (List.length L))

​

printfn "%A" (prosekListe [1;2;3;4;5;6])