Add F# scripting sample (migueldeicaza#93)

dsyme · migueldeicaza · commit b84a61354cb5 · 2017-07-18T21:38:34.000-04:00
diff --git a/README.md b/README.md
@@ -91,6 +91,37 @@ using (var session = new TFSession())
     Console.WriteLine("a*b={0}", multiplyResultValue);
 }
 ```
+Here is an F# scripting version of the same example, you can use this in F# Interactive:
+```
+#r @"packages\TensorFlowSharp.1.2.2\lib\net461\TensorFlowSharp.dll"
+
+open System
+open System.IO
+open TensorFlow
+
+// set the path to find the native DLL
+Environment.SetEnvironmentVariable("Path", 
+    Environment.GetEnvironmentVariable("Path") + ";" + __SOURCE_DIRECTORY__ + @"/packages/TensorFlowSharp.1.2.2/native")
+
+module AddTwoNumbers = 
+    let session = new TFSession()
+    let graph = session.Graph
+
+    let a = graph.Const(new TFTensor(2))
+    let b = graph.Const(new TFTensor(3))
+    Console.WriteLine("a=2 b=3")
+
+    // Add two constants
+    let addingResults = session.GetRunner().Run(graph.Add(a, b))
+    let addingResultValue = addingResults.GetValue()
+    Console.WriteLine("a+b={0}", addingResultValue)
+
+    // Multiply two constants
+    let multiplyResults = session.GetRunner().Run(graph.Mul(a, b))
+    let multiplyResultValue = multiplyResults.GetValue()
+    Console.WriteLine("a*b={0}", multiplyResultValue)
+```
+
 
 # Working on TensorFlowSharp 
 
