diff options
Diffstat (limited to 'ws2015/FFP')
-rw-r--r-- | ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs b/ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs index eaa09c7..df5de5a 100644 --- a/ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs +++ b/ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs | |||
@@ -106,7 +106,7 @@ testb1 = testT2 == (fmap even testT1) | |||
106 | 106 | ||
107 | {- | 107 | {- |
108 | fmap ist hier identisch zu (.) | 108 | fmap ist hier identisch zu (.) |
109 | λ ((\a -> (a, a)) `fmap` (\i -> i + 2)) 2 | 109 | λ ((\a -> (a, a)) `fmap` (+ 2)) 2 |
110 | (4,4) | 110 | (4,4) |
111 | -} | 111 | -} |
112 | 112 | ||
@@ -151,11 +151,6 @@ alleVariablen' = "" : [v : p | p <- alleVariablen', v <- vars] | |||
151 | where | 151 | where |
152 | vars = ['a', 'b', 'c', 'd'] | 152 | vars = ['a', 'b', 'c', 'd'] |
153 | 153 | ||
154 | alleVariablen'' :: [String] | ||
155 | alleVariablen'' = [v : p | p <- "" : alleVariablen'', v <- vars] | ||
156 | where | ||
157 | vars = ['a', 'b', 'c', 'd'] | ||
158 | |||
159 | -- Zum Testen: | 154 | -- Zum Testen: |
160 | check l x = (map length . groupBy ((==) `on` length)) (take x l) | 155 | check l x = (map length . groupBy ((==) `on` length)) (take x l) |
161 | 156 | ||