// Learn more about F# at http://fsharp.org
// See the 'F# Tutorial' project for more help.

open System;

//zad 6
let rec wczytaj n =
     let w:int32 = System.Convert.ToInt32(System.Console.ReadLine());
     if w = 0 then n else wczytaj (w::n)

let rec sum n s (l : int List) =
    if n<l.Length then sum (n+1) (s+l.Item(n)) l
    else s;

let rec geom n s (l : int List) =
    if n < l.Length then geom (n+1) (s*l.Item(n)) l
    else System.Math.Pow((float)s,(1.0/(float)n));
let zad6 _ =
    let w = wczytaj []
    (sum 0 0 w,geom 0 1 w);


//zad 7
//funkcja pomocnicza  s
let rec drawLine (s:string) i m n =
    if i >= (m + n) then s elif i < m then drawLine (s+" ") (i+1) m n
    else drawLine (s+"*") (i+1) m n;

//a
let rec draw7a s i n =
    if i <= n then draw7a (s+"\n"+(drawLine "" 0 0 i)) (i+1) n else s;


//zad 8

let rec getDividers n i =
    if n=i  then [n] elif (n%i) = 0 then i::(getDividers n (i+1))
    else (getDividers n (i+1))


//zad 10
let rec zad10 k =
    if (k%4-1) = 0 then true elif (k%4-3) = 0 then false else zad10 (k/2);



[<EntryPoint>]
let main argv =


    let zad8 = getDividers 12 2;

    printfn "%A" (zad10 5);


    printfn "%A " (List.sort [5;2;1;-3;3]);



    printfn "%A  " argv
    0 // return an integer exit code