diff options
| -rw-r--r-- | AufgabeFFP5.hs | 8 | ||||
| -rw-r--r-- | AufgabeFFP6.pdf | bin | 0 -> 37916 bytes |
2 files changed, 4 insertions, 4 deletions
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 | |||
| 97 | -- 4. | 97 | -- 4. |
| 98 | ------------------------------------------------------------------------------- | 98 | ------------------------------------------------------------------------------- |
| 99 | 99 | ||
| 100 | miIndiv :: [a] -> Bool | 100 | mi_indiv :: [a] -> Bool |
| 101 | miIndiv a = length a <= 1 | 101 | miIndiv a = length a <= 1 |
| 102 | 102 | ||
| 103 | miSolve :: (Ix a, Show a) => (b -> Bool) -> [(a,b)] -> [(a,b)] | 103 | mi_solve :: (Ix a, Show a) => (b -> Bool) -> [(a,b)] -> [(a,b)] |
| 104 | miSolve wf [(a,b)] | 104 | miSolve wf [(a,b)] |
| 105 | | wf b = [(a,b)] | 105 | | wf b = [(a,b)] |
| 106 | | otherwise = [] | 106 | | otherwise = [] |
| 107 | 107 | ||
| 108 | miDivide :: [a] -> [[a]] | 108 | mi_divide :: [a] -> [[a]] |
| 109 | miDivide (x:xs) = [[x], xs] | 109 | miDivide (x:xs) = [[x], xs] |
| 110 | 110 | ||
| 111 | miCombine :: [a] -> [[a]] -> [a] | 111 | mi_combine :: [a] -> [[a]] -> [a] |
| 112 | miCombine _ [] = error "No matching index" | 112 | miCombine _ [] = error "No matching index" |
| 113 | miCombine a (x:xs) | 113 | miCombine a (x:xs) |
| 114 | | null x = miCombine a xs | 114 | | null x = miCombine a xs |
diff --git a/AufgabeFFP6.pdf b/AufgabeFFP6.pdf new file mode 100644 index 0000000..0fe111b --- /dev/null +++ b/AufgabeFFP6.pdf | |||
| Binary files differ | |||
