diff options
| author | Mart Lubbers | 2015-04-25 12:18:42 +0200 |
|---|---|---|
| committer | Mart Lubbers | 2015-04-25 12:18:42 +0200 |
| commit | 78636495692cc41761ad58f10b4479b6f06bdbaf (patch) | |
| tree | add78181b03a26e53e210eeea7f5278492218bd1 /fp2/week2/mart/oldold/old/Map.icl | |
| parent | Added Test (copy line from file to other file) (diff) | |
finally, week2 done:)
Diffstat (limited to 'fp2/week2/mart/oldold/old/Map.icl')
| -rw-r--r-- | fp2/week2/mart/oldold/old/Map.icl | 19 |
1 files changed, 0 insertions, 19 deletions
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)
|