open System
open System.Runtime.InteropServices


type prostytutka = {imie:string; wiek:int;}
let prost1 = {imie="Roksana"; wiek=21}

let rec suma (fl_list:list<float>) =
    match fl_list with
    | head :: tail ->  head + suma tail
    | [] -> 0.0

let lista = [1.1; 1.2; 1.3]

let str = "XXX"

let rec zliczanie_znakow(st:string, ch:char, i:int, n:int) =
 match i with
 | 0 -> if st.[0] = ch then n+1 else n
 | _ -> if st.[0] = ch then zliczanie_znakow(st, ch, i-1, n+1) else zliczanie_znakow(st, ch, i-1, n);


let rec licz (str:string, znak:char) =
   match str.Length with
   | 0 -> 0
   | _ -> if(str.[0] = znak)  then licz(str.[1..], znak) + 1  else licz(str.[1..], znak );


let listaa = [1.1;2.2;3.3]
let rec sumlist(lista:float list) =
    match lista.Length with
    | 0 -> 0.0
    | _ -> sumlist(lista.[1..]) + lista.[0]


let rec silnia(n) =
    match n with
    |0 |1 -> 1
    |_ -> silnia(n-1) * n


let rec potega(k, n) =
    match n with
    | 0.0 -> 1.0
    | _ -> if n > 0.0 then potega(k, n-1.0) * k
           else 1.0/potega(k, -n)

let rec wdol(n) =
    match n with
    | 0 -> []
    | _ -> n::wdol(n-1)

[<EntryPoint>]
let main argv =
    printfn "Suma %A" (suma(lista))
    printfn "Zliczone iksy %A" (zliczanie_znakow(str, 'X' ,str.Length-1, 0))
    printfn "Dane kurwy %A" (prost1)
    printfn "Liczałka %A" (licz(str, 'X'))
    printfn "Lista sumator %A" (sumlist(listaa))
    (silnia(4)) |> printfn "Slnia  z 4: %A"
    (potega(2.0, -3.0)) |> printfn "potega  2 do 3: %A"
    (wdol(8)) |> printfn "odlicanie w dol: %A"


    ignore(Console.ReadKey(true))
    0 // return an integer exit code