diff options
| author | manuel <manuel@mausz.at> | 2012-05-15 12:03:00 +0200 |
|---|---|---|
| committer | manuel <manuel@mausz.at> | 2012-05-15 12:03:00 +0200 |
| commit | db599b959d959d6087986a8730658598abaac0a8 (patch) | |
| tree | 2291a88e0fc24331901a6a6232ed7029205608e2 /AufgabeFFP6.hs | |
| parent | 2b60ad48698a93bbabeb91835a7b0dbb8c1e2293 (diff) | |
| download | ffp-db599b959d959d6087986a8730658598abaac0a8.tar.gz ffp-db599b959d959d6087986a8730658598abaac0a8.tar.bz2 ffp-db599b959d959d6087986a8730658598abaac0a8.zip | |
make filter in transform a bit nicer
Diffstat (limited to 'AufgabeFFP6.hs')
| -rw-r--r-- | AufgabeFFP6.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/AufgabeFFP6.hs b/AufgabeFFP6.hs index a8f78a3..dba6043 100644 --- a/AufgabeFFP6.hs +++ b/AufgabeFFP6.hs | |||
| @@ -129,7 +129,7 @@ transform :: (W -> (F, W, [G])) -> W -> ((F, W, [G]), [W]) | |||
| 129 | transform fun w = ((f, w, g'), map (eval f) g') | 129 | transform fun w = ((f, w, g'), map (eval f) g') |
| 130 | where | 130 | where |
| 131 | (f, w, g) = fun w | 131 | (f, w, g) = fun w |
| 132 | g' = filter (\g'' -> check_divByZero f g'') g | 132 | g' = filter (check_divByZero f) g |
| 133 | 133 | ||
| 134 | -- take those, where the entry in the result list corresponds to | 134 | -- take those, where the entry in the result list corresponds to |
| 135 | filt :: (W -> ((F, W, [G]), [W]) ) -> W -> [G] | 135 | filt :: (W -> ((F, W, [G]), [W]) ) -> W -> [G] |