diff options
| author | Matthias Wisniowski <matthias.wisniowski@gmail.com> | 2012-05-11 10:33:20 +0200 |
|---|---|---|
| committer | Matthias Wisniowski <matthias.wisniowski@gmail.com> | 2012-05-11 10:33:20 +0200 |
| commit | 52ac93c46e9f52798a2c4e472c29cc8f131e2bdd (patch) | |
| tree | eef5edfdf50deb4b6896a73202faf38d673da98d /AufgabeFFP5.hs | |
| parent | 858b0cbc8800d695ddd3797d5eccd9a4205ecc5d (diff) | |
| download | ffp-52ac93c46e9f52798a2c4e472c29cc8f131e2bdd.tar.gz ffp-52ac93c46e9f52798a2c4e472c29cc8f131e2bdd.tar.bz2 ffp-52ac93c46e9f52798a2c4e472c29cc8f131e2bdd.zip | |
Methoden-namen lt lva seite angepasst. Angabe für 6
Diffstat (limited to 'AufgabeFFP5.hs')
| -rw-r--r-- | AufgabeFFP5.hs | 8 |
1 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 |