Initial data commit

Task/FizzBuzz/F-Sharp/fizzbuzz-1.fs

@@ -0,0 +1,9 @@
+let fizzbuzz n =
+    match n%3 = 0, n%5 = 0 with
+    | true, false -> "fizz"
+    | false, true -> "buzz"
+    | true, true  -> "fizzbuzz"
+    | _ -> string n
+
+let printFizzbuzz() =
+    [1..100] |> List.iter (fizzbuzz >> printfn "%s")

Task/FizzBuzz/F-Sharp/fizzbuzz-2.fs

@@ -0,0 +1,8 @@
+[1..100]
+|> List.map (fun x ->
+            match x with
+            | _ when x % 15 = 0 ->"fizzbuzz"
+            | _ when x % 5 = 0 -> "buzz"
+            | _ when x % 3 = 0 -> "fizz"
+            | _ ->  x.ToString())
+|> List.iter (fun x -> printfn "%s" x)

Task/FizzBuzz/F-Sharp/fizzbuzz-3.fs

@@ -0,0 +1,13 @@
+let (|MultipleOf|_|) divisors number =
+    if Seq.exists ((%) number >> (<>) 0) divisors
+    then None
+    else Some ()
+
+let fizzbuzz = function
+| MultipleOf [3; 5] -> "fizzbuzz"
+| MultipleOf [3]    -> "fizz"
+| MultipleOf [5]    -> "buzz"
+| n                 -> string n
+
+{ 1 .. 100 }
+|> Seq.iter (fizzbuzz >> printfn "%s")