// Learn more about F# at http://fsharp.org

open System

// Zad 1
let Kwadrat n =
  n*n

// Zad 2
let rec Silnia n =
    match n with
    | 0 | 1 -> 1
    | _ -> n * Silnia(n-1)

// Zad 3
let PoliczRazyTrzy (f : int -> int ) n =
    f n * 3




[<EntryPoint>]
let main args =
    // Zad 1
    let kw = Kwadrat 5
    printfn "5*5 = %A" kw

    // Zad 2
    let sil = Silnia 5
    printfn "silnia 5! = %A" sil

    // Zad 3
    let razyTrzy = PoliczRazyTrzy Kwadrat 5
    printfn "PoliczRazyTrzy 5 = %A" razyTrzy

    printfn "";
    // Zad 4
    let tablica = [ 1; 3; 5; -4; 7 ]
    printfn "Tablica = %A" tablica

    let elementOIndeksieDwa = tablica.[2]
    printfn "element tablicy o indeksie 2 = %A" elementOIndeksieDwa

    let podtablica = tablica.[1..3]
    printfn "Podtablica od indexu 1 do 3 = %A" podtablica



    System.Console.ReadKey() |> ignore
    0