From 1bbc394c55332221798bd82a44c07caa24db9281 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Thu, 6 Dec 2018 22:10:37 +0100
Subject: ...

---
 src/shared/elm/Util/Array.elm | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

(limited to 'src/shared/elm/Util')

diff --git a/src/shared/elm/Util/Array.elm b/src/shared/elm/Util/Array.elm
index 362c924..26d13f6 100644
--- a/src/shared/elm/Util/Array.elm
+++ b/src/shared/elm/Util/Array.elm
@@ -6,6 +6,7 @@ module Util.Array exposing
       indexed_search
    )
 
+import List
 import Array
 
 update : (
@@ -36,5 +37,18 @@ filter_first fun array =
 
 indexed_search : (t -> Bool) -> (Array.Array t) -> (Maybe (Int, t))
 indexed_search fun array =
-   -- TODO
-   Nothing
+   (List.foldl
+      (\v res ->
+         (
+            case res of
+               (Just e) -> res
+               Nothing ->
+                  let (index, value) = v in
+                     if (fun value)
+                     then (Just v)
+                     else Nothing
+         )
+      )
+      Nothing
+      (Array.toIndexedList array)
+   )
-- 
cgit v1.2.3-70-g09d2