// Functions
let linear x = 2.0 * x
let quadratic x = x ** 2

// read a line on console
open System
let line = Console.ReadLine()
printfn "Read line %s" line

// Defining a list
let lista = [
    2
    3 ]

// List just par numbers from a descrecent list
[9 .. -1 .. 1] |> List.filter (fun x -> x % 2 = 0)

// Calling an API using the F# Data Http utility:
// Source: https://stackoverflow.com/questions/62408621/f-with-http-fs-not-able-to-execute-graphql-apis
Http.RequestString
  ( "https://swapi.graph.cool", 
    httpMethod="POST", headers=[ HttpRequestHeaders.ContentType("application/json") ],
    body=TextRequest("{\"query\": \"{ allFilms { title } }\"}") 

// hello world
open System
[<EntryPoint>]
let main argv =
    let square x = x * x
    let squared = List.map square [1;2;3;5;7]
    printfn "%A" squared
    0 // return an integer exit code

Array.map (fun x -> -x) [|0..9|];;
// val it : int [] = [|0; -1; -2; -3; -4; -5; -6; -7; -8; -9|]

List.map (fun x -> -x) [0..9];;
// val it : int list = [0; -1; -2; -3; -4; -5; -6; -7; -8; -9]

Seq.map (fun x -> -x)  { 0..9 };;
// val it : seq<int> = seq [0; -1; -2; -3; ...]

open System
let ``print emoji  🐣`` =
    printfn "🐣"
``print emoji  🐣``

open System
open System.Text.Json


[<EntryPoint>]
let main _argv =

    let m1 = Map.empty<string, string> |> Map.add "answer" "42"
    let json1 = JsonSerializer.Serialize(m1)
    printfn "JSON1 %s" json1
    
    let m2 = Map.empty<string, Version> |> Map.add "version" (Version("10.0.1.1"))
    let json2 = JsonSerializer.Serialize(m2)
    printfn "JSON2 %s" json2

    0

open System
open System.Text.Json

type Person = { Name: string; Age: int }
type Gaggle = { People: Person list; Name: string }

[<EntryPoint>]
let main _argv =

    let r1 =
        {
            People =
                [ { Name = "Phillip"; Age = Int32.MaxValue }
                  { Name = "Ryan Nowak"; Age = Int32.MinValue } ]
            Name = "Meme team"
        }

    let r2 =
        {|
            r1 with
                FavoriteMusic = "Dan Roth's Banjo Bonanza"
        |}

    printfn $"{JsonSerializer.Serialize r1}"
    printfn $"{JsonSerializer.Serialize r2}"

    0

// ResizeArray is the name of the #CSharp generic list class in #FSharp, so you can do:
let csList = ResizeArray  [| rec01; rec02; rec03 |] 

// Fonte: https://twitter.com/LucasTeles42/status/1317945856641978375
open System

let main =
  use recurso = {
    new IDisposable with
      member this.Dispose() =
        printfn "liberando recurso..."
  }
  printfn "acabou..."

// Source https://twitter.com/LucasTeles42/status/1335981686794936320
> let items x = [
-     1
-     2
-     if x then 3
-
-     let n = 10
-     yield! [4..n]
-
-     n + 1
-
-     for numero = n + 2 to n * 2 do
-         numero
- ];;
val items : x:bool -> int list

> printfn "%A" (items true);;
[1; 2; 3; 4; 5; 6; 7; 8; 9; 10; 11; 12; 13; 14; 15; 16; 17; 18; 19; 20]
val it : unit = ()

let work = async { do printfn "Hi" }

work
|> Async.RunSynchronously