less abstract implementation

jmagaram · Mar 27, 2024 · c6f27a6 · c6f27a6
1 parent 1f9f833
commit c6f27a6
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/src/Seq.res b/src/Seq.res
@@ -931,4 +931,15 @@ let chunkBySize = (xx, length) => {
   )
 }
 
-let at = (xx, inx) => xx->indexed->findMap(((item, i)) => i == inx ? Some(item) : None)
+let at = (xx, inx) => {
+  let rec go = (xx, inxCurrent) =>
+    switch xx->next {
+    | End => None
+    | Next(x, xx) =>
+      switch inxCurrent == inx {
+      | true => Some(x)
+      | false => go(xx, inxCurrent + 1)
+      }
+    }
+  go(xx, 0)
+}