open System
open Zaliczenie

type Person = {First:string; Last:string}

type Temp =
    | DegreesC of float
    | DegreesF of float

type Employee =
    | Worker of Person
    | Manager of Employee list

[<EntryPoint>]
let main argv =
    let list1 = [5; 8; 16; 12; 20; 45; 11; 10; 15]
    let list2 = [-5; 1; -16; 12; 20; 45; 111;]
    let floatList = [1.0; 0.5; 2.0; 2.0; 10.0]
    let charList = ['a'; 'd'; 'b'; 'c']
    let anyText = "Hello Pszemqu"
    let character = 'l'
    let listWithDuplicates = [-5; -5; -16; 12; 20; -5; 111; 20]

    //let text = "Hello World. My name is Pszemeq"
    //let result = howManyCharsInString('e', text)

    //let pszemeq = {First = "Przemek"; Last = "Chojnowski" }

    //let sum = sumFloatList(floatList)
    //let withoutEven = listWithoutEven list
    //let onlyEvenList = onlyEven list
    //let listFromSequence = sequenceToList list
    //let sortedList = sortDescending charList
    //let createdList = createList(16, 5)
    //let summarizedList = sumListItemsWithMatch list2;
    //let numberOfCharacters = howManyCharsInStringWithMatch(Seq.toList <| anyText, character)
    //let onlyNotEven = deleteEvenFromList list2
    //let generatedFirstNumbers = generateFirstNumbers(5, 50)
    //let book1 = { Author = "Sienkiewicz"; Name = "W pustyni i w puszczy"; ISBN = "1234567890"}
    //let multipliedWithMRN = mRn (-3, -4)
    //let summarizedFloatList = summarizeFloatList floatList
    //let sortedThreeElements = sortThreeElements [3;1;2];
    //let createdListOfEvenInts = createListOfEvenInts(10, 1)
    //let listLength = listLength(list2)
    //let deletedListElements = deleteSelectedElementsFromList(Seq.toList <| anyText, character)
    let listWithoutDuplicates = deleteDuplicatesFromList(listWithDuplicates)

    printfn "%A" listWithoutDuplicates
    ignore(Console.ReadLine())

    0