Initial data commit

Task/Binary-digits/F-Sharp/binary-digits-1.fs

@@ -0,0 +1,2 @@
+open System
+for i in [5; 50; 9000] do printfn "%s" <| Convert.ToString (i, 2)

Task/Binary-digits/F-Sharp/binary-digits-2.fs

@@ -0,0 +1,10 @@
+open System
+
+// define the function
+let printBin (i: int) =
+    Convert.ToString (i, 2)
+    |> printfn "%s"
+
+// use the function
+[5; 50; 9000]
+|> List.iter printBin

Task/Binary-digits/F-Sharp/binary-digits-3.fs

@@ -0,0 +1,10 @@
+open System
+open System.IO
+
+// define a callback function for %a
+let bin (tw: TextWriter) value =
+    tw.Write("{0}", Convert.ToString(int64 value, 2))
+
+// use it with printfn with %a
+[5; 50; 9000]
+|> List.iter (printfn "binary: %a" bin)