From 52ac93c46e9f52798a2c4e472c29cc8f131e2bdd Mon Sep 17 00:00:00 2001 From: Matthias Wisniowski Date: Fri, 11 May 2012 10:33:20 +0200 Subject: =?UTF-8?q?Methoden-namen=20lt=20lva=20seite=20angepasst.=20Angabe?= =?UTF-8?q?=20f=C3=BCr=206?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- AufgabeFFP5.hs | 8 ++++---- AufgabeFFP6.pdf | Bin 0 -> 37916 bytes 2 files changed, 4 insertions(+), 4 deletions(-) create mode 100644 AufgabeFFP6.pdf diff --git a/AufgabeFFP5.hs b/AufgabeFFP5.hs index 78ed0fe..430fb22 100644 --- a/AufgabeFFP5.hs +++ b/AufgabeFFP5.hs @@ -97,18 +97,18 @@ divideAndConquer indiv solve divide combine initPb = dAC initPb -- 4. ------------------------------------------------------------------------------- -miIndiv :: [a] -> Bool +mi_indiv :: [a] -> Bool miIndiv a = length a <= 1 -miSolve :: (Ix a, Show a) => (b -> Bool) -> [(a,b)] -> [(a,b)] +mi_solve :: (Ix a, Show a) => (b -> Bool) -> [(a,b)] -> [(a,b)] miSolve wf [(a,b)] | wf b = [(a,b)] | otherwise = [] -miDivide :: [a] -> [[a]] +mi_divide :: [a] -> [[a]] miDivide (x:xs) = [[x], xs] -miCombine :: [a] -> [[a]] -> [a] +mi_combine :: [a] -> [[a]] -> [a] miCombine _ [] = error "No matching index" miCombine a (x:xs) | null x = miCombine a xs diff --git a/AufgabeFFP6.pdf b/AufgabeFFP6.pdf new file mode 100644 index 0000000..0fe111b Binary files /dev/null and b/AufgabeFFP6.pdf differ -- cgit v1.2.3