From 78636495692cc41761ad58f10b4479b6f06bdbaf Mon Sep 17 00:00:00 2001 From: Mart Lubbers Date: Sat, 25 Apr 2015 12:18:42 +0200 Subject: finally, week2 done:) --- fp2/week2/mart/oldold/old/Map.icl | 19 ------------------- 1 file changed, 19 deletions(-) delete mode 100644 fp2/week2/mart/oldold/old/Map.icl (limited to 'fp2/week2/mart/oldold/old/Map.icl') diff --git a/fp2/week2/mart/oldold/old/Map.icl b/fp2/week2/mart/oldold/old/Map.icl deleted file mode 100644 index d248c66..0000000 --- a/fp2/week2/mart/oldold/old/Map.icl +++ /dev/null @@ -1,19 +0,0 @@ -implementation module Map - -//import BinTree -import StdMaybe -import StdList - -class Map c :: (a -> b) (c a) -> c b - -instance Map [] where - Map f [] = [] - Map f [x:xs] = [f x: Map f xs] - -instance Map Maybe where - Map f Nothing = Nothing - Map f (Just x) = Just (f x) - -//instance Map Tree where -// Map f Leaf = Leaf -// Map f (Node x l r) = Node (f x) (mapTree f l) (mapTree f r) -- cgit v1.2.3