// Zadanie 1
type Skoczek = {Imie:string; Nazwisko:string; Wiek:int; Ilosc_Wygranych:int; Narodowosc:string }
let Adam_Malysz = {Imie="Adam"; Nazwisko="Malysz"; Wiek=34; Ilosc_Wygranych=48; Narodowosc="Polska"}
let Kamil_Stoch = {Imie="Kamil"; Nazwisko="Stoch"; Wiek=23; Ilosc_Wygranych=18; Narodowosc="Polska"}
let Piotr_Zyla = {Imie="Piotr"; Nazwisko="Zyla"; Wiek=28; Ilosc_Wygranych=7; Narodowosc="Polska"}
let Jane_Ahonen = {Imie="Jane"; Nazwisko="Ahonen"; Wiek=37; Ilosc_Wygranych=20; Narodowosc="Finlandia"}
let Stefan_Kraft = {Imie="Stefan"; Nazwisko="Kraft"; Wiek=23; Ilosc_Wygranych=12; Narodowosc="Austria"}

let Lista_Pucharu_Swiata = [Adam_Malysz; Kamil_Stoch; Piotr_Zyla; Jane_Ahonen]
printfn "%A\n" "Lista Wszystkich Uczestnikow"
for i in Lista_Pucharu_Swiata do
   printfn "%A\n" i

let Nowa_Lista_Pucharu_Swiata = Stefan_Kraft :: Lista_Pucharu_Swiata
printfn "%s\n" "Nowa Lista Wszystkich Uczestnikow"
for i in Nowa_Lista_Pucharu_Swiata do
   printfn "%A\n" i

//zadanie2
let lista1 = [9; 3; 7; 5; 3; 10; 4; 7; 10; 5; 5; 7; 7; 1; 8; 3; 3; 6; 7; 6]
let lista2 = [3; 1; 7; 8; 6; 3; 9; 6; 4; 10; 10; 3; 3; 2; 9; 3; 7; 9; 10; 5]

let sortedList1 = List.sort lista1
printfn "%A\n" lista1 // nie posortowana
printfn "%A\n" sortedList1 // posortowana
let sortedList2 = List.sort lista2
printfn "%A\n" lista2 // nie posortowana
printfn "%A\n" sortedList2 //// posortowana

let isEven x = x % 2 = 0 // pierwsza podzielna przez 2
match List.tryFind isEven lista1 with
| Some value -> printfn "Pierwsza podzielna bez reszty przez 2 liczba na liscie to %d." value
| None -> printfn "Nie ma podzielnej liczby przez 2 bez reszty w liscie"

match List.tryFindIndex isEven lista1 with // index pierwszej pasujacej liczby
| Some value -> printfn "The first even value is at position %d." value
| None -> printfn "There is no even value in the list."

List.iteri(fun i x -> printfn "Wypisanie Elementów Listy: Element Nr. %d to %d" i x) lista1 // wypisanie wszystkich elementwo listy
let lis1 = [0..4] // testowe listy nie spelniajace warunku
let lis2 = [5..9]
let jestRowny list1 list2 = List.exists2 (fun elem1 elem2 -> elem1 = elem2) list1 list2 // posiadanie tych samych wartosci na pozycjach
if (jestRowny lista1 lista2) then
    printfn "Listy 1 i 2 posiadaja elementy na tych samych indexach"
else
    printfn "Listy 1 i 2 nie posiadaja elementy na tych samych indexach"