From cb45ff3fe7d2d96d598df98818dea548f2cd579c Mon Sep 17 00:00:00 2001
From: unknown <mickael.metesreau@gmail.com>
Date: Mon, 26 Oct 2015 13:38:45 +0100
Subject: [PATCH] add fsharp version

---
 .../GildedRose.Tests/GildedRose.Tests.fsproj  | 97 +++++++++++++++++++
 fsharp/GildedRose.Tests/GildedRoseTest.fs     | 32 ++++++
 fsharp/GildedRose.Tests/packages.config       |  6 ++
 fsharp/GildedRose.sln                         | 28 ++++++
 fsharp/GildedRose/App.config                  |  6 ++
 fsharp/GildedRose/GildedRose.fs               | 63 ++++++++++++
 fsharp/GildedRose/GildedRose.fsproj           | 76 +++++++++++++++
 7 files changed, 308 insertions(+)
 create mode 100644 fsharp/GildedRose.Tests/GildedRose.Tests.fsproj
 create mode 100644 fsharp/GildedRose.Tests/GildedRoseTest.fs
 create mode 100644 fsharp/GildedRose.Tests/packages.config
 create mode 100644 fsharp/GildedRose.sln
 create mode 100644 fsharp/GildedRose/App.config
 create mode 100644 fsharp/GildedRose/GildedRose.fs
 create mode 100644 fsharp/GildedRose/GildedRose.fsproj

diff --git a/fsharp/GildedRose.Tests/GildedRose.Tests.fsproj b/fsharp/GildedRose.Tests/GildedRose.Tests.fsproj
new file mode 100644
index 00000000..f021553f
--- /dev/null
+++ b/fsharp/GildedRose.Tests/GildedRose.Tests.fsproj
@@ -0,0 +1,97 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>9f9d20e1-cfc0-442c-870a-76e5abf0e7fe</ProjectGuid>
+    <OutputType>Library</OutputType>
+    <RootNamespace>GildedRose.Tests</RootNamespace>
+    <AssemblyName>GildedRose.Tests</AssemblyName>
+    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <TargetFSharpCoreVersion>4.3.1.0</TargetFSharpCoreVersion>
+    <Name>GildedRose.Tests</Name>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <Optimize>false</Optimize>
+    <Tailcalls>false</Tailcalls>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DefineConstants>DEBUG;TRACE</DefineConstants>
+    <WarningLevel>3</WarningLevel>
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DocumentationFile>bin\Debug\GildedRose.Tests.XML</DocumentationFile>
+    <Prefer32Bit>true</Prefer32Bit>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <DebugType>pdbonly</DebugType>
+    <Optimize>true</Optimize>
+    <Tailcalls>true</Tailcalls>
+    <OutputPath>bin\Release\</OutputPath>
+    <DefineConstants>TRACE</DefineConstants>
+    <WarningLevel>3</WarningLevel>
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DocumentationFile>bin\Release\GildedRose.Tests.XML</DocumentationFile>
+    <Prefer32Bit>true</Prefer32Bit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <MinimumVisualStudioVersion Condition="'$(MinimumVisualStudioVersion)' == ''">11</MinimumVisualStudioVersion>
+  </PropertyGroup>
+  <Choose>
+    <When Condition="'$(VisualStudioVersion)' == '11.0'">
+      <PropertyGroup Condition="Exists('$(MSBuildExtensionsPath32)\..\Microsoft SDKs\F#\3.0\Framework\v4.0\Microsoft.FSharp.Targets')">
+        <FSharpTargetsPath>$(MSBuildExtensionsPath32)\..\Microsoft SDKs\F#\3.0\Framework\v4.0\Microsoft.FSharp.Targets</FSharpTargetsPath>
+      </PropertyGroup>
+    </When>
+    <Otherwise>
+      <PropertyGroup Condition="Exists('$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)\FSharp\Microsoft.FSharp.Targets')">
+        <FSharpTargetsPath>$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)\FSharp\Microsoft.FSharp.Targets</FSharpTargetsPath>
+      </PropertyGroup>
+    </Otherwise>
+  </Choose>
+  <Import Project="$(FSharpTargetsPath)" />
+  <ItemGroup>
+    <Compile Include="GildedRoseTest.fs" />
+    <None Include="packages.config" />
+  </ItemGroup>
+  <ItemGroup>
+    <Reference Include="ApprovalTests">
+      <HintPath>..\packages\ApprovalTests.3.0.10\lib\net40\ApprovalTests.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="ApprovalUtilities">
+      <HintPath>..\packages\ApprovalUtilities.3.0.10\lib\net45\ApprovalUtilities.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="ApprovalUtilities.Net45">
+      <HintPath>..\packages\ApprovalUtilities.3.0.10\lib\net45\ApprovalUtilities.Net45.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="mscorlib" />
+    <Reference Include="FSharp.Core, Version=$(TargetFSharpCoreVersion), Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="nunit.framework">
+      <HintPath>..\packages\NUnit.2.6.4\lib\nunit.framework.dll</HintPath>
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Numerics" />
+    <ProjectReference Include="..\GildedRose\GildedRose.fsproj">
+      <Name>GildedRose</Name>
+      <Project>{2660ef56-b4c1-4dcf-b106-278211bd26c6}</Project>
+      <Private>True</Private>
+    </ProjectReference>
+  </ItemGroup>
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>
\ No newline at end of file
diff --git a/fsharp/GildedRose.Tests/GildedRoseTest.fs b/fsharp/GildedRose.Tests/GildedRoseTest.fs
new file mode 100644
index 00000000..d29ed6d6
--- /dev/null
+++ b/fsharp/GildedRose.Tests/GildedRoseTest.fs
@@ -0,0 +1,32 @@
+module GildedRoseTest
+
+open GildedRose
+open System
+open System.IO
+open System.Text
+open NUnit.Framework
+open System.Collections.Generic
+open ApprovalTests
+open ApprovalTests.Reporters
+
+[<TestFixture>]
+type GildedRoseTest () as this =
+    [<Test>] member this.Foo ()=
+        let Items = new List<Item>()  
+        Items.Add({Name = "foo"; SellIn = 0; Quality = 0})
+        let app = new GildedRose(Items)
+        app.UpdateQuality()
+        Assert.AreEqual("fixme", Items.[0].Name)
+
+[<TestFixture>]
+[<UseReporter(typeof<ApprovalTests.Reporters.NUnitReporter>)>]
+type ApprovalTest () as this =
+    [<Test>] member this.ThirtyDays ()=
+        let fakeoutput = new StringBuilder()
+        Console.SetOut(new StringWriter(fakeoutput))
+        Console.SetIn(new StringReader("a\n"))
+
+        main Array.empty<string>
+        let output = fakeoutput.ToString()
+        Approvals.Verify(output)
+        ()
\ No newline at end of file
diff --git a/fsharp/GildedRose.Tests/packages.config b/fsharp/GildedRose.Tests/packages.config
new file mode 100644
index 00000000..eff071b2
--- /dev/null
+++ b/fsharp/GildedRose.Tests/packages.config
@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8"?>
+<packages>
+  <package id="ApprovalTests" version="3.0.10" targetFramework="net45" />
+  <package id="ApprovalUtilities" version="3.0.10" targetFramework="net45" />
+  <package id="NUnit" version="2.6.4" targetFramework="net45" />
+</packages>
\ No newline at end of file
diff --git a/fsharp/GildedRose.sln b/fsharp/GildedRose.sln
new file mode 100644
index 00000000..027a29bf
--- /dev/null
+++ b/fsharp/GildedRose.sln
@@ -0,0 +1,28 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio 2013
+VisualStudioVersion = 12.0.40629.0
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "GildedRose", "GildedRose\GildedRose.fsproj", "{2660EF56-B4C1-4DCF-B106-278211BD26C6}"
+EndProject
+Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "GildedRose.Tests", "GildedRose.Tests\GildedRose.Tests.fsproj", "{9F9D20E1-CFC0-442C-870A-76E5ABF0E7FE}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{2660EF56-B4C1-4DCF-B106-278211BD26C6}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{2660EF56-B4C1-4DCF-B106-278211BD26C6}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{2660EF56-B4C1-4DCF-B106-278211BD26C6}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{2660EF56-B4C1-4DCF-B106-278211BD26C6}.Release|Any CPU.Build.0 = Release|Any CPU
+		{9F9D20E1-CFC0-442C-870A-76E5ABF0E7FE}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{9F9D20E1-CFC0-442C-870A-76E5ABF0E7FE}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{9F9D20E1-CFC0-442C-870A-76E5ABF0E7FE}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{9F9D20E1-CFC0-442C-870A-76E5ABF0E7FE}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal
diff --git a/fsharp/GildedRose/App.config b/fsharp/GildedRose/App.config
new file mode 100644
index 00000000..8e156463
--- /dev/null
+++ b/fsharp/GildedRose/App.config
@@ -0,0 +1,6 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<configuration>
+    <startup> 
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
+    </startup>
+</configuration>
\ No newline at end of file
diff --git a/fsharp/GildedRose/GildedRose.fs b/fsharp/GildedRose/GildedRose.fs
new file mode 100644
index 00000000..f14f4cc9
--- /dev/null
+++ b/fsharp/GildedRose/GildedRose.fs
@@ -0,0 +1,63 @@
+module GildedRose
+
+open System.Collections.Generic
+
+type Item = { Name: string; SellIn: int; Quality: int }
+
+type GildedRose(items:IList<Item>) as this =
+    let Items = items
+
+    member this.UpdateQuality() =
+        for i = 0 to Items.Count - 1 do
+            if Items.[i].Name <> "Aged Brie" && Items.[i].Name <> "Backstage passes to a TAFKAL80ETC concert" then
+                if Items.[i].Quality > 0 then
+                    if Items.[i].Name <> "Sulfuras, Hand of Ragnaros" then
+                        Items.[i] <- { Items.[i] with Quality = (Items.[i].Quality - 1) } 
+            else
+               if Items.[i].Quality < 50 then
+                    Items.[i] <- { Items.[i] with Quality = (Items.[i].Quality + 1) } 
+                    if Items.[i].Name = "Backstage passes to a TAFKAL80ETC concert" then
+                        if Items.[i].SellIn < 11 then
+                            if Items.[i].Quality < 50 then
+                                Items.[i] <- { Items.[i] with Quality = (Items.[i].Quality + 1) } 
+                        if Items.[i].SellIn < 6 then
+                            if Items.[i].Quality < 50 then
+                                Items.[i] <- { Items.[i] with Quality = (Items.[i].Quality + 1) } 
+            if Items.[i].Name <> "Sulfuras, Hand of Ragnaros" then                 
+                Items.[i] <- { Items.[i] with SellIn  = (Items.[i].SellIn - 1) } 
+            if Items.[i].SellIn < 0 then
+                if Items.[i].Name <> "Aged Brie" then
+                    if Items.[i].Name <> "Backstage passes to a TAFKAL80ETC concert" then
+                        if Items.[i].Quality > 0 then
+                            if Items.[i].Name <> "Sulfuras, Hand of Ragnaros" then
+                                Items.[i] <- { Items.[i] with Quality   = (Items.[i].Quality  - 1) } 
+                    else
+                        Items.[i] <- { Items.[i] with Quality   = (Items.[i].Quality  - Items.[i].Quality) } 
+                else
+                    if Items.[i].Quality < 50 then
+                        Items.[i] <- { Items.[i] with Quality   = (Items.[i].Quality + 1) }  
+        ()
+
+[<EntryPoint>]
+let main argv = 
+    printfn "OMGHAI!"
+    let Items = new List<Item>()
+    Items.Add({Name = "+5 Dexterity Vest"; SellIn = 10; Quality = 20})
+    Items.Add({Name = "Aged Brie"; SellIn = 2; Quality = 0})
+    Items.Add({Name = "Elixir of the Mongoose"; SellIn = 5; Quality = 7})
+    Items.Add({Name = "Sulfuras, Hand of Ragnaros"; SellIn = 0; Quality = 80})
+    Items.Add({Name = "Sulfuras, Hand of Ragnaros"; SellIn = -1; Quality = 80})
+    Items.Add({Name = "Backstage passes to a TAFKAL80ETC concert"; SellIn = 15; Quality = 20})
+    Items.Add({Name = "Backstage passes to a TAFKAL80ETC concert"; SellIn = 10; Quality = 49})
+    Items.Add({Name = "Backstage passes to a TAFKAL80ETC concert"; SellIn = 5; Quality = 49})
+    Items.Add({Name = "Conjured Mana Cake"; SellIn = 3; Quality = 6})
+
+    let app = new GildedRose(Items)
+    for i = 0 to 30 do
+        printfn "-------- day %d --------" i
+        printfn "name, sellIn, quality"
+        for j = 0 to Items.Count - 1 do
+             printfn "%s, %d, %d" Items.[j].Name Items.[j].SellIn Items.[j].Quality
+        printfn ""
+        app.UpdateQuality()
+    0 
\ No newline at end of file
diff --git a/fsharp/GildedRose/GildedRose.fsproj b/fsharp/GildedRose/GildedRose.fsproj
new file mode 100644
index 00000000..520dda6e
--- /dev/null
+++ b/fsharp/GildedRose/GildedRose.fsproj
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>2660ef56-b4c1-4dcf-b106-278211bd26c6</ProjectGuid>
+    <OutputType>Exe</OutputType>
+    <RootNamespace>GildedRose</RootNamespace>
+    <AssemblyName>GildedRose</AssemblyName>
+    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
+    <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <TargetFSharpCoreVersion>4.3.1.0</TargetFSharpCoreVersion>
+    <Name>GildedRose</Name>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <Optimize>false</Optimize>
+    <Tailcalls>false</Tailcalls>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DefineConstants>DEBUG;TRACE</DefineConstants>
+    <WarningLevel>3</WarningLevel>
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DocumentationFile>bin\Debug\GildedRose.XML</DocumentationFile>
+    <Prefer32Bit>true</Prefer32Bit>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <DebugType>pdbonly</DebugType>
+    <Optimize>true</Optimize>
+    <Tailcalls>true</Tailcalls>
+    <OutputPath>bin\Release\</OutputPath>
+    <DefineConstants>TRACE</DefineConstants>
+    <WarningLevel>3</WarningLevel>
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DocumentationFile>bin\Release\GildedRose.XML</DocumentationFile>
+    <Prefer32Bit>true</Prefer32Bit>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="mscorlib" />
+    <Reference Include="FSharp.Core, Version=$(TargetFSharpCoreVersion), Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+      <Private>True</Private>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Numerics" />
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="App.config" />
+    <Compile Include="GildedRose.fs" />
+  </ItemGroup>
+  <PropertyGroup>
+    <MinimumVisualStudioVersion Condition="'$(MinimumVisualStudioVersion)' == ''">11</MinimumVisualStudioVersion>
+  </PropertyGroup>
+  <Choose>
+    <When Condition="'$(VisualStudioVersion)' == '11.0'">
+      <PropertyGroup Condition="Exists('$(MSBuildExtensionsPath32)\..\Microsoft SDKs\F#\3.0\Framework\v4.0\Microsoft.FSharp.Targets')">
+        <FSharpTargetsPath>$(MSBuildExtensionsPath32)\..\Microsoft SDKs\F#\3.0\Framework\v4.0\Microsoft.FSharp.Targets</FSharpTargetsPath>
+      </PropertyGroup>
+    </When>
+    <Otherwise>
+      <PropertyGroup Condition="Exists('$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)\FSharp\Microsoft.FSharp.Targets')">
+        <FSharpTargetsPath>$(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion)\FSharp\Microsoft.FSharp.Targets</FSharpTargetsPath>
+      </PropertyGroup>
+    </Otherwise>
+  </Choose>
+  <Import Project="$(FSharpTargetsPath)" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>
\ No newline at end of file