let genRandomNumbers count =
    let rnd = System.Random()
    List.init count (fun _ -> rnd.Next (32, 54))

let lis1 = genRandomNumbers 6
let lis2 = genRandomNumbers 6

printfn "%A" lis1
printfn "%A" lis2

let sortedLis1 = List.sort lis1
let sortedLis2 = List.sort lis2

printfn "%A" sortedLis1
printfn "%A" sortedLis2

let reverseLis1 = List.rev sortedLis1

printfn "%A" reverseLis1

// Even numbers are divisible by 2.
let isEven x = (x % 2) = 0

let evens = Seq.where (fun x -> isEven x) lis1

printfn "%A" evens

let rec sumaL lista =
 match lista with
 | [] -> 0
 | h::t -> h + (sumaL t)

let sumL = sumaL lis1

printfn "Suma Listy %i " sumL

let avg2 = List.averageBy (fun elem -> float elem) lis1
printfn "%f" avg2

let containsNumber number list = List.exists (fun elem -> elem = number) list

printfn "Czy w liscie: %A, liczba 32 zawiera sie: %b" lis1 (containsNumber 32 lis1)
printfn "Czy w liscie: %A, liczba 32 zawiera sie: %b" lis2 (containsNumber 32 lis2)