added FashionMNIST F# edition

Author: lostmsu

FSharp/FashionMnistF/FashionMnist.fs

@@ -0,0 +1,45 @@
+open System
+open FSharp.Interop.Dynamic
+open FSharp.Interop.Dynamic.Operators
+
+open Gradient
+open numpy
+open tensorflow
+open tensorflow.keras
+open tensorflow.keras.layers
+open tensorflow.keras.optimizers
+open SharPy.Runtime
+
+[<EntryPoint>]
+let main argv =
+    GradientSetup.OptInToUsageDataCollection()
+    GradientSetup.UseEnvironmentFromVariable() |> ignore
+
+    GradientLog.OutputWriter <- Console.Out
+
+    let struct (train, test) = tf.keras.datasets.fashion_mnist.load_data()
+    let trainImages: ndarray = train?Item1 ?/? 255.0f
+    let trainLabels = train?Item2
+    let testImages: ndarray = test?Item1 ?/? 255.0f
+    let testLabels: ndarray = test?Item2
+
+    let inputArgs = PythonDict<_,obj>()
+    inputArgs.["input_shape"] <- struct (28, 28)
+    let model = Sequential([|
+        Flatten(kwargs = inputArgs) :> obj;
+        Dense(units = 128, activation = tf.nn.relu_fn) :> obj;
+        Dense(units = 10, activation = tf.nn.softmax_fn) :> obj;
+    |])
+
+    model.compile(
+        optimizer = Adam(),
+        loss = tf.keras.losses.sparse_categorical_crossentropy_fn,
+        metrics = ["accuracy"])
+
+    model.fit(trainImages, trainLabels, epochs = 5) |> ignore
+
+    let evalResult = model.evaluate(testImages, testLabels)
+    let accuracy = Core.Operators.float (Dyn.getIndex evalResult [1] : numpy.float64)
+    printfn "Test accuracy: %f" accuracy
+
+    0 // return an integer exit code

FSharp/FashionMnistF/FashionMnistF.fsproj

@@ -0,0 +1,16 @@
+<Project Sdk="Microsoft.NET.Sdk">
+
+  <PropertyGroup>
+    <OutputType>Exe</OutputType>
+    <TargetFramework>netcoreapp2.2</TargetFramework>
+  </PropertyGroup>
+
+  <ItemGroup>
+    <Compile Include="FashionMnist.fs" />
+  </ItemGroup>
+
+  <ItemGroup>
+    <PackageReference Include="FSharp.Interop.Dynamic" Version="4.0.3.130" />
+    <PackageReference Include="Gradient" Version="0.1.10-tech-preview5.1.1" />
+  </ItemGroup>
+</Project>

Gradient-Samples.sln

@@ -29,7 +29,9 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "VB", "VB", "{875975E4-796F-
 EndProject
 Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "BasicMathVB", "VB\BasicMathVB\BasicMathVB.vbproj", "{453E1365-83C2-46B6-B8E0-728B778CA1A7}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "FashionMnistVB", "VB\FashionMnistVB\FashionMnistVB.vbproj", "{1077A08A-AB90-4286-BB0C-0F2E9D620595}"
+Project("{778DAE3C-4631-46EA-AA77-85C1314464D9}") = "FashionMnistVB", "VB\FashionMnistVB\FashionMnistVB.vbproj", "{1077A08A-AB90-4286-BB0C-0F2E9D620595}"
+EndProject
+Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "FashionMnistF", "FSharp\FashionMnistF\FashionMnistF.fsproj", "{670A666C-1A56-40B0-874D-72673623112E}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
@@ -73,6 +75,10 @@ Global
 		{1077A08A-AB90-4286-BB0C-0F2E9D620595}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{1077A08A-AB90-4286-BB0C-0F2E9D620595}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{1077A08A-AB90-4286-BB0C-0F2E9D620595}.Release|Any CPU.Build.0 = Release|Any CPU
+		{670A666C-1A56-40B0-874D-72673623112E}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{670A666C-1A56-40B0-874D-72673623112E}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{670A666C-1A56-40B0-874D-72673623112E}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{670A666C-1A56-40B0-874D-72673623112E}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE
@@ -81,6 +87,7 @@ Global
 		{CEF0739E-BD49-466E-9F8D-226C9C474DB4} = {B18FC4F9-E13F-437F-A8DB-4783E9C0F356}
 		{453E1365-83C2-46B6-B8E0-728B778CA1A7} = {875975E4-796F-4181-BACE-7DC71CE35D1F}
 		{1077A08A-AB90-4286-BB0C-0F2E9D620595} = {875975E4-796F-4181-BACE-7DC71CE35D1F}
+		{670A666C-1A56-40B0-874D-72673623112E} = {B18FC4F9-E13F-437F-A8DB-4783E9C0F356}
 	EndGlobalSection
 	GlobalSection(ExtensibilityGlobals) = postSolution
 		SolutionGuid = {052B6168-274F-43B0-B3F0-24F5C5D4BE58}