paradygmaty2

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

open System

[<EntryPoint>]



let main argv =
(*
    let rec fib n =
        if n<=2 then 1
        else fib(n-2) + fib(n-1)
    Console.WriteLine(fib 17)
    *)
    (*
    let rec fib n =
        match n with
        |1|2 -> 1
        |n -> fib(n-2) + fib(n-1)
    Console.WriteLine(fib 6)
    *)
    (*
    let rec suma lista =
        match lista with
        |head::tail -> head + suma tail
        |[] -> 0
    Console.WriteLine(suma[for i in 1 .. 120 -> i+i])
    *)
    (*
    let tablica = [for i in 1 .. 1424 -> i]
    let suma lista =
        let rec loop lista acc =
            match lista with
                |head::tail -> loop tail (acc+head)
                  |[]->acc
        loop lista 0
    Console.WriteLine(suma tablica)
        *)
    let reszta a b =
        if a/4 == b/4
        return 0

    Console.ReadKey() |>ignore;
    0 // return an integer exit code