From 753e45b3d5f5e3ad2bd083ee753f72973e74502f Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Wed, 4 Nov 2015 18:49:35 +0100 Subject: removed broken solution & pointlessly pointless --- ws2015/FFP/blaetter/03/FFP_U03_Funktoren.hs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'ws2015') 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) {- fmap ist hier identisch zu (.) - λ ((\a -> (a, a)) `fmap` (\i -> i + 2)) 2 + λ ((\a -> (a, a)) `fmap` (+ 2)) 2 (4,4) -} @@ -151,11 +151,6 @@ alleVariablen' = "" : [v : p | p <- alleVariablen', v <- vars] where vars = ['a', 'b', 'c', 'd'] -alleVariablen'' :: [String] -alleVariablen'' = [v : p | p <- "" : alleVariablen'', v <- vars] - where - vars = ['a', 'b', 'c', 'd'] - -- Zum Testen: check l x = (map length . groupBy ((==) `on` length)) (take x l) -- cgit v1.2.3