FSharpRef/Main.fs

   1 module Main
   2
   3 open System.Linq
   4 open Functional
   5
   6 [<EntryPoint>]
   7 let main args =
   8     appendFile "test.txt" "Pouet"
   9     printfn "Size of folder: %A" (SizeOfFolder ".")
  10     print "youpi"
  11     print (isEven (fac 4))
  12     //
  13     print steve.First
  14     printfn "Young persons: "
  15     (youngPersonNames (Queryable.AsQueryable [steve ; steves'twin ; { First = "Paul"; Last = "Atreides"; Age = 11 }])) |> Seq.iter (fun name -> printfn "   name: %s" name)
  16     //
  17     print <| Seq.take 10 allPositiveInts
  18     print <| Seq.take 10 (fibs 1 1)
  19     //
  20     print testYieldBang
  21     print testUnfold
  22     //
  23     print <| greet Bill
  24     print <| greet "Paul"
  25     //
  26     print <| testXor 1 2
  27     print <| testXor 3 3
  28     0