From a2243a035b52c6d85d6a2d9331d69a7d3ebc64de Mon Sep 17 00:00:00 2001
From: Matei Adriel <rafaeladriel11@gmail.com>
Date: Sun, 15 Dec 2019 14:55:46 +0200
Subject: [PATCH] fsharp(ygosim): feat: added a basic helper to set an element
 by index in a list

Signed-off-by: prescientmoon <git@moonythm.dev>
---
 fsharp/ygosim/src/Utils.fs  | 7 +++++++
 fsharp/ygosim/ygosim.fsproj | 1 +
 2 files changed, 8 insertions(+)
 create mode 100644 fsharp/ygosim/src/Utils.fs

diff --git a/fsharp/ygosim/src/Utils.fs b/fsharp/ygosim/src/Utils.fs
new file mode 100644
index 0000000..f241924
--- /dev/null
+++ b/fsharp/ygosim/src/Utils.fs
@@ -0,0 +1,7 @@
+module Utils
+
+module List =
+    let setIndex index value list =
+        List.mapi (fun previous i ->
+            if i = index then value
+            else previous)
diff --git a/fsharp/ygosim/ygosim.fsproj b/fsharp/ygosim/ygosim.fsproj
index 740adef..c11ddef 100644
--- a/fsharp/ygosim/ygosim.fsproj
+++ b/fsharp/ygosim/ygosim.fsproj
@@ -5,6 +5,7 @@
     <TargetFramework>netcoreapp3.0</TargetFramework>
   </PropertyGroup>
   <ItemGroup>
+    <Compile Include="src/Utils.fs" />
     <Compile Include="src/Card.fs" />
     <Compile Include="src/Board.fs" />
     <Compile Include="src/Program.fs" />