Aufgabe 5, 4. Almost done, except testing errors

1 files changed, 19 insertions, 0 deletions

diff --git a/AufgabeFFP5.hs b/AufgabeFFP5.hs
index c528be4..3fb926c 100644
--- a/AufgabeFFP5.hs
+++ b/AufgabeFFP5.hs
@@ -97,3 +97,22 @@ divideAndConquer indiv solve divide combine initPb = dAC initPb
 -- 4.
 -------------------------------------------------------------------------------
 
+miIndiv :: [a] -> Bool
+miIndiv a = length a <= 1
+
+miSolve :: (Ix a, Show a) => (b -> Bool) -> [(a,b)] -> [(a,b)]
+miSolve wf [(a,b)]
+  | wf b = [(a,b)]
+  | otherwise = []
+  
+miDivide :: [a] -> [[a]]
+miDivide (x:xs) = [[x], xs]
+
+miCombine :: [a] -> [[a]] -> [a]
+miCombine _ [] = error "No matching index"
+miCombine a (x:xs)
+  | null x = miCombine a xs
+  | otherwise = [head x]
+  
+minIndex :: (Ix a, Show a) => Array a b -> (b -> Bool) -> a
+minIndex a wf = fst $ head $ divideAndConquer miIndiv (miSolve wf) miDivide miCombine $ assocs a
\ No newline at end of file