From db599b959d959d6087986a8730658598abaac0a8 Mon Sep 17 00:00:00 2001 From: manuel Date: Tue, 15 May 2012 12:03:00 +0200 Subject: make filter in transform a bit nicer --- AufgabeFFP6.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'AufgabeFFP6.hs') 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]) transform fun w = ((f, w, g'), map (eval f) g') where (f, w, g) = fun w - g' = filter (\g'' -> check_divByZero f g'') g + g' = filter (check_divByZero f) g -- take those, where the entry in the result list corresponds to filt :: (W -> ((F, W, [G]), [W]) ) -> W -> [G] -- cgit v1.2.3