From e5b9ed70c6dfda42e90953d04827c7b6179326a6 Mon Sep 17 00:00:00 2001
From: Matei Adriel <rafaeladriel11@gmail.com>
Date: Sun, 15 Dec 2019 15:24:27 +0200
Subject: [PATCH] fsharp(ygosim): feat: added a helper to turn a list to
indices and another one to check if a list contains an index
Signed-off-by: prescientmoon <git@moonythm.dev>
---
fsharp/ygosim/src/Utils.fs | 3 +++
1 file changed, 3 insertions(+)
diff --git a/fsharp/ygosim/src/Utils.fs b/fsharp/ygosim/src/Utils.fs
index dbf2036..74c8dff 100644
--- a/fsharp/ygosim/src/Utils.fs
+++ b/fsharp/ygosim/src/Utils.fs
@@ -9,6 +9,9 @@ module List =
let (.->) = setIndex
+ let toIndices list = List.mapi (fun i _ -> i) list
+ let containsIndex index list = index >= 0 && index < List.length list
+
module Lens =
open FSharpPlus.Lens