User:Michiexile/MATH198/Lecture 3
From HaskellWiki
Michiexile (Talk | contribs) |
Michiexile (Talk | contribs) |
||
(13 intermediate revisions by one user not shown) | |||
Line 1: | Line 1: | ||
− | |||
− | |||
These notes cover material dispersed in several places of Awodey. The definition of a functor is on page 8. More on functors and natural transformations comes in sections 7.1-7.2, 7.4-7.5, 7.7-7.10. | These notes cover material dispersed in several places of Awodey. The definition of a functor is on page 8. More on functors and natural transformations comes in sections 7.1-7.2, 7.4-7.5, 7.7-7.10. | ||
Line 19: | Line 17: | ||
* <math>F_1(gf) = F_1(g)F_1(f)</math> | * <math>F_1(gf) = F_1(g)F_1(f)</math> | ||
− | ''Note'': We shall | + | ''Note'': We shall frequently use <math>F</math> in place of <math>F_0</math> and <math>F_1</math>. The context should suffice to tell you whether you are mapping an object or a morphism at any given moment. |
+ | |||
+ | On Wikipedia: [http://en.wikipedia.org/wiki/Functor] | ||
=====Examples===== | =====Examples===== | ||
Line 38: | Line 38: | ||
One example of particular interest to us is the category Hask. A functor in Hask is something that takes a type, and returns a new type. Not only that, we also require that it takes arrows and return new arrows. So let's pick all this apart for a minute or two. | One example of particular interest to us is the category Hask. A functor in Hask is something that takes a type, and returns a new type. Not only that, we also require that it takes arrows and return new arrows. So let's pick all this apart for a minute or two. | ||
− | Taking a type and returning a type means that you are really building a polymorphic type class: you have a family of types parametrized by some type variable. For each type <hask>a</hask>, the functor < | + | Taking a type and returning a type means that you are really building a polymorphic type class: you have a family of types parametrized by some type variable. For each type <hask>a</hask>, the functor <hask>data F a = ...</hask> will produce a new type, <hask>F a</hask>. This, really, is all we need to reflect the action of <math>F_0</math>. |
− | The action of <math>F_1</math> in turn is recovered by requiring the parametrized type <hask>F a</hask> to implement the <hask>Functor</hask> ''typeclass''. This typeclass requires you to implement a function <hask>fmap::(a -> b) -> F a -> F b</hask>. This function, as the signature indicates, takes a function <hask>f :: a -> b</hask> and returns a new function <hask>fmap f :: F a -> F b</hask>. | + | The action of <math>F_1</math> in turn is recovered by requiring the parametrized type <hask>F a</hask> to implement the <hask>Functor</hask> ''typeclass''. This typeclass requires you to implement a function <hask>fmap ::i (a -> b) -> F a -> F b</hask>. This function, as the signature indicates, takes a function <hask>f :: a -> b</hask> and returns a new function <hask>fmap f :: F a -> F b</hask>. |
The rules we expect a Functor to obey seem obvious: translating from the categorical intuition we arrive at the rules | The rules we expect a Functor to obey seem obvious: translating from the categorical intuition we arrive at the rules | ||
Line 97: | Line 97: | ||
To see this, recall the category <math>Monoid</math>, where each object is a monoid, and each arrow is a monoid homomorphism. We can form a one-object category out of each monoid, and the method to do this is functorial - i.e. does the right thing to arrows to make the whole process a functor. | To see this, recall the category <math>Monoid</math>, where each object is a monoid, and each arrow is a monoid homomorphism. We can form a one-object category out of each monoid, and the method to do this is functorial - i.e. does the right thing to arrows to make the whole process a functor. | ||
− | Specifically, if <math>h:M\to N</math> is a monoid homomorphism, we create a new functor <math>C(h):C(M)\to C(N)</math> by setting <math>C(h) | + | Specifically, if <math>h:M\to N</math> is a monoid homomorphism, we create a new functor <math>C(h):C(M)\to C(N)</math> by setting <math>C(h)_0(*) = *</math> and <math>C(h)_1(m) = h(m)</math>. This creates a functor from <math>Monoid</math> to <math>Cat</math>. The domain can be further restricted to a full subcategory <math>OOC</math> of <math>Cat</math>, consisting of all the 1-object categories. We can also define a functor <math>U:OOC\to Monoid</math> by <math>U(C) = C_1</math> with the monoidal structure on <math>U(C)</math> given by the composition in <math>C</math>. For an arrow <math>F:A\to B</math> we define <math>U(F) = F_1</math>. |
These functors take a monoid, builds a one-object category, and hits all of them; and takes a one-object category and builds a monoid. Both functors respect the monoidal structures - yet these are not an isomorphism pair. The clou here is that our construction of <math>C(M)</math> from <math>M</math> requires us to choose something for the one object of the category. And choosing different objects gives us different categories. | These functors take a monoid, builds a one-object category, and hits all of them; and takes a one-object category and builds a monoid. Both functors respect the monoidal structures - yet these are not an isomorphism pair. The clou here is that our construction of <math>C(M)</math> from <math>M</math> requires us to choose something for the one object of the category. And choosing different objects gives us different categories. | ||
Line 121: | Line 121: | ||
'''Proposition''' Given two categories <math>C,D</math> the collection of all functors <math>C\to D</math> form a category <math>Func(C,D)</math> with objects functors and morphisms natural transformations between these functors. | '''Proposition''' Given two categories <math>C,D</math> the collection of all functors <math>C\to D</math> form a category <math>Func(C,D)</math> with objects functors and morphisms natural transformations between these functors. | ||
+ | Note that this allows us to a large degree to use functors to define entities we may otherwise have defined using large and involved definitions. Doing this using the categorical language instead mainly gives us a large number of facts for free: we don't have to verify, say, associativity of composition of functors if we already know them to be functors. | ||
+ | |||
+ | '''Example''' Recall our original definition of a graph as two collections and two maps between them. We can define a category GraphS: | ||
+ | :[[Image:ArightrightarrowsB.gif|A two right arrows B]] | ||
+ | with the two arrows named <math>s</math> and <math>t</math>. It is a finite category with 2 objects, and 4 arrows. | ||
+ | Now, a ''small graph'' can be defined to be just a Functor <math>GraphS \to Set</math>. | ||
+ | |||
+ | In order to define more intricate structures this way, say Categories, or algebraic structures, we'd need more tools - which we shall find in later lectures. This approach to algebraic definition develops into an area called Sketch theory. | ||
+ | |||
+ | The idea, there, is that theories are modelled by specific categories - such as <math>GraphS</math> above, and actual instances of the objects they model appear as functors. | ||
+ | |||
+ | With this definition, since a graph is just a functor <math>GraphS \to Set</math>, and we get graph homomorphisms ''for free'': a graph homomorphism is just a natural transformation. | ||
+ | |||
+ | And anything we can prove about functors and natural transformations thus immediately gives a corresponding result for graphs and graph homomorphisms. | ||
+ | |||
+ | On Wikipedia, see: [http://en.wikipedia.org/wiki/Natural_transformation]. Sketch theory, alas, has a painfully incomplete Wikipedia article. | ||
===Properties of functors=== | ===Properties of functors=== | ||
Line 126: | Line 142: | ||
The process of forming homsets within a category <math>C</math> gives, for any object <math>A</math>, two different functors <math>Hom(A,-)</math>: <math>X\mapsto Hom(A,X)</math> and <math>Hom(-,A): X\mapsto Hom(X,A)</math>. Functoriality for <math>Hom(A,-)</math> is easy: <math>Hom(A,f)</math> is the map that takes some <math>g:A\to X</math> and transforms it into <math>fg:A\to Y</math>. | The process of forming homsets within a category <math>C</math> gives, for any object <math>A</math>, two different functors <math>Hom(A,-)</math>: <math>X\mapsto Hom(A,X)</math> and <math>Hom(-,A): X\mapsto Hom(X,A)</math>. Functoriality for <math>Hom(A,-)</math> is easy: <math>Hom(A,f)</math> is the map that takes some <math>g:A\to X</math> and transforms it into <math>fg:A\to Y</math>. | ||
− | Functoriality for <math>Hom(-,A)</math> is more involved. We can view this as a functor either from <math>C^op</math>, or as a different kind of functor. If we just work with <math>C^op</math>, then no additional definitions are needed - but we need an intuition for the dual categories. | + | Functoriality for <math>Hom(-,A)</math> is more involved. We can view this as a functor either from <math>C^{op}</math>, or as a different kind of functor. If we just work with <math>C^{op}</math>, then no additional definitions are needed - but we need an intuition for the dual categories. |
Alternatively, we introduce a new concept of a contravariant functor. A contravariant functor <math>F:C\to D</math> is some map of categories, just like a functor is, but such that <math>F(1[X]) = 1[F(X)]</math>, as usual, but such that for a <math>f:A\to B</math>, the functor image is some <math>F(f):F(B)\to F(A)</math>, and the composition is <math>F(gf) = F(f)F(g)</math>. The usual kind of functors are named ''covariant''. | Alternatively, we introduce a new concept of a contravariant functor. A contravariant functor <math>F:C\to D</math> is some map of categories, just like a functor is, but such that <math>F(1[X]) = 1[F(X)]</math>, as usual, but such that for a <math>f:A\to B</math>, the functor image is some <math>F(f):F(B)\to F(A)</math>, and the composition is <math>F(gf) = F(f)F(g)</math>. The usual kind of functors are named ''covariant''. | ||
Line 139: | Line 155: | ||
Note that a full subcategory is a subcategory so that the embedding functor is both full and faithful. | Note that a full subcategory is a subcategory so that the embedding functor is both full and faithful. | ||
+ | |||
+ | See also entries in the list of Types of Functors on the Wikipedia page for Functors [http://en.wikipedia.org/wiki/Functor]. | ||
====Preservation and reflection==== | ====Preservation and reflection==== | ||
Line 161: | Line 179: | ||
A functor <math>F:C\to D</math> is ''representative'' if every object in <math>D</math> is isomorphic to some <math>F(X)</math> for <math>X\in C_0</math>. | A functor <math>F:C\to D</math> is ''representative'' if every object in <math>D</math> is isomorphic to some <math>F(X)</math> for <math>X\in C_0</math>. | ||
− | |||
− | |||
− | |||
− | |||
− | |||
===Homework=== | ===Homework=== | ||
− | + | Complete homework is by 4 out of 9 complete solutions. Partial credit will be given. | |
− | + | ||
− | + | # Show that the category of vectorspaces is equivalent to the category with objects integers and arrows matrices. | |
− | + | # Prove the propositions in the section on natural transformations. | |
− | + | # Prove that <hask>listToMaybe :: [a] -> Maybe a</hask> is a natural transformation from the list functor to the maybe functor. Is <hask>catMaybes</hask> a natural transformation? Between which functors? | |
− | + | # Find two more natural transformations defined in the standard Haskell library. Find one polymorphic function that is not a natural transformation. | |
− | + | # Write a functor instance for <hask>data F a = F (Int -> a)</hask> | |
+ | # Write a functor instance for <hask>data F a = F ((Int -> a) -> Int)</hask> | ||
+ | # Write a natural transformation from <hask>Maybe a</hask> to <hask>Either () a</hask>. Is this a natural isomorphism? If so, what is its inverse? If not, why not? | ||
+ | # Write a natural transformation from <hask>[a]</hask> to <hask>(Maybe a, Maybe a)</hask>. Is this a natural isomorphism? If so, what is its inverse? If not, why not? | ||
+ | # * Recall that a category is called ''discrete'' if it has no arrows other than the identities. Show that a small category <math>A</math> is discrete if and only if every set function <math>A_0\to B_0</math>, for every small category <math>B</math>, is the object part of a unique functor <math>A\to B</math>. Analogously, we define a small category <math>B</math> to be indiscrete if for every small category <math>A</math>, every set function <math>A_0\to B_0</math> is the object part of a unique functor <math>A\to B</math>. Characterise indiscrete categories by the objects and arrows they have. | ||
+ | # * We could write a pretty printer, or XML library, using the following data type as the core data type: | ||
<haskell> | <haskell> | ||
− | data ML a = Tag a (ML a) | + | data ML a = Tag a (ML a) | |
− | Str String | + | Str String | |
− | Seq [ML a] | | + | Seq [ML a] | |
Nil | Nil | ||
</haskell> | </haskell> | ||
:With this, we can use a specific string-generating function to generate the tagged marked up text, such as, for instance: | :With this, we can use a specific string-generating function to generate the tagged marked up text, such as, for instance: | ||
<haskell> | <haskell> | ||
− | prettyprint (Tag | + | prettyprint (Tag tag ml) = "<" ++ show tag ++ ">" ++ prettyprint ml ++ "</" ++ show tag ++ ">" |
prettyprint (Str s) = s | prettyprint (Str s) = s | ||
prettyprint (Seq []) = "" | prettyprint (Seq []) = "" | ||
Line 192: | Line 210: | ||
:Write an instance of Functor that allows us to apply changes to the tagging type. Then, using the following tagging types: | :Write an instance of Functor that allows us to apply changes to the tagging type. Then, using the following tagging types: | ||
<haskell> | <haskell> | ||
− | data HTMLTag = HTML | BODY | P | | + | data HTMLTag = HTML | BODY | P | H1 | CLASS String deriving (Show) |
− | data XMLTag = DOCUMENT | HEADING | + | data XMLTag = DOCUMENT | HEADING | TEXT deriving (Show) |
</haskell> | </haskell> | ||
:write a function <hask>htmlize :: ML XMLTag -> ML HTMLTag</hask> and use it to generate a html document out of: | :write a function <hask>htmlize :: ML XMLTag -> ML HTMLTag</hask> and use it to generate a html document out of: | ||
Line 201: | Line 219: | ||
Tag HEADING | Tag HEADING | ||
String "Nobel prize for chromosome find", | String "Nobel prize for chromosome find", | ||
− | Tag | + | Tag TEXT |
String "STOCKHOLM (Reuters) - Three Americans won the Nobel prize for medicine on Monday for revealing the existence and nature of telomerase, an enzyme which helps prevent the fraying of chromosomes that underlies aging and cancer.", | String "STOCKHOLM (Reuters) - Three Americans won the Nobel prize for medicine on Monday for revealing the existence and nature of telomerase, an enzyme which helps prevent the fraying of chromosomes that underlies aging and cancer.", | ||
Tag TEXT | Tag TEXT | ||
Line 216: | Line 234: | ||
String "The Chief Executive of Britain's Medical Research Council said the discovery of telomerase had spawned research of 'huge importance' to the world of science and medicine.", | String "The Chief Executive of Britain's Medical Research Council said the discovery of telomerase had spawned research of 'huge importance' to the world of science and medicine.", | ||
Tag TEXT | Tag TEXT | ||
− | String "'Their research on chromosomes helped lay the foundations of future work on cancer, stem cells and even human aging, areas that continue to be of huge importance,' Sir Leszek Borysiewicz said in a statement." | + | String "'Their research on chromosomes helped lay the foundations of future work on cancer, stem cells and even human aging, areas that continue to be of huge importance,' Sir Leszek Borysiewicz said in a statement." |
+ | ] | ||
</haskell> | </haskell> |
Latest revision as of 01:21, 8 October 2009
These notes cover material dispersed in several places of Awodey. The definition of a functor is on page 8. More on functors and natural transformations comes in sections 7.1-7.2, 7.4-7.5, 7.7-7.10.
Contents |
[edit] 1 Functors
We've spent quite a bit of time talking about categories, and special entities in them - morphisms and objects, and special kinds of them, and properties we can find.
And one of the main messages visible so far is that as soon as we have an algebraic structure, and homomorphisms, this forms a category. More importantly, many algebraic structures, and algebraic theories, can be captured by studying the structure of the category they form.
So obviously, in order to understand Category Theory, one key will be to understand homomorphisms between categories.
[edit] 1.1 Homomorphisms of categories
A category is a graph, so a homomorphism of a category should be a homomorphism of a graph that respect the extra structure. Thus, we are led to the definition:
Definition A functor from a category C to a category D is a graph homomorphism F_{0},F_{1} between the underlying graphs such that for every object :
- F_{1}(gf) = F_{1}(g)F_{1}(f)
Note: We shall frequently use F in place of F_{0} and F_{1}. The context should suffice to tell you whether you are mapping an object or a morphism at any given moment.
On Wikipedia: [1]
[edit] 1.1.1 Examples
A homomorphism of monoids is a functor of the corresponding one-object categories . The functor takes the single object to the single object, and acts on morphisms by F(g) = f(g).
A homomorphism of posets is a functor of the corresponding category. We have if , so if then .
If we pick some basis for every vector space, then this gives us a functor F from Vect to the category with objects integers and morphisms matrices by:
- F_{0}(V) = dimV
- F_{1}(f) is the matrix representing f in the matrices chosen.
This example relies on the axiom of choice.
[edit] 1.2 Interpreting functors in Haskell
One example of particular interest to us is the category Hask. A functor in Hask is something that takes a type, and returns a new type. Not only that, we also require that it takes arrows and return new arrows. So let's pick all this apart for a minute or two.
Taking a type and returning a type means that you are really building a polymorphic type class: you have a family of types parametrized by some type variable. For each typeThe rules we expect a Functor to obey seem obvious: translating from the categorical intuition we arrive at the rules
- andfmap id = id
- fmap (g . f) = fmap g . fmap f
data Boring a = Boring instance Functor Boring where fmap f = const Boring
data List a = Nil | Cons a (List a) instance Functor List where fmap f Nil = Nil fmap f (Cons x lst) = Cons (f x) (fmap f lst) data Maybe a = Nothing | Just a instance Functor Maybe where fmap f Nothing = Nothing fmap f (Just x) = Just (f x) data Either b a = Left b | Right a instance Functor (Either b) where fmap f (Left x) = Left x fmap f (Right y) = Right (f y) data LeafTree a = Leaf a | Node [LeafTree a] instance Functor LeafTree where fmap f (Node subtrees) = Node (map (fmap f) subtrees) fmap f (Leaf x) = Leaf (f x) data NodeTree a = Leaf | Node a [NodeTree a] instance Functor NodeTree where fmap f Leaf = Leaf fmap f (Node x subtrees) = Node (f x) (map (fmap f) subtrees)
[edit] 2 The category of categories
We define a category Cat by setting objects to be all small categories, and arrows to be all functors between them. Being graph homomorphisms, functors compose, their composition fulfills all requirements on forming a category. It is sometimes useful to argue about a category CAT of all small and most large categories. The issue here is that allowing opens up for set-theoretical paradoxes.
[edit] 2.1 Isomorphisms in Cat and equivalences of categories
The definition of an isomorphism holds as is in Cat. However, isomorphisms of categories are too restrictive a concept.
To see this, recall the category Monoid, where each object is a monoid, and each arrow is a monoid homomorphism. We can form a one-object category out of each monoid, and the method to do this is functorial - i.e. does the right thing to arrows to make the whole process a functor.
Specifically, if is a monoid homomorphism, we create a new functor by setting C(h)_{0}( * ) = * and C(h)_{1}(m) = h(m). This creates a functor from Monoid to Cat. The domain can be further restricted to a full subcategory OOC of Cat, consisting of all the 1-object categories. We can also define a functor by U(C) = C_{1} with the monoidal structure on U(C) given by the composition in C. For an arrow we define U(F) = F_{1}.
These functors take a monoid, builds a one-object category, and hits all of them; and takes a one-object category and builds a monoid. Both functors respect the monoidal structures - yet these are not an isomorphism pair. The clou here is that our construction of C(M) from M requires us to choose something for the one object of the category. And choosing different objects gives us different categories.
Thus, the composition CU is not the identity; there is no guarantee that we will pick the object we started with in the construction in C. Nevertheless, we would be inclined to regard the categories Monoid and OOC as essentially the same. The solution is to introduce a different kind of sameness: Definition A functor is an equivalence of categories if there is a functor and:
- A family of isomorphisms in C indexed by the objects of C, such that for every arrow .
- A family of isomorphisms in D indexed by the objects of D, such that for every arrow .
The functor G in the definition is called a pseudo-inverse of F.
[edit] 2.2 Natural transformations
The families of morphisms required in the definition of an equivalence show up in more places. Suppose we have two functors and . Definition A natural transformation is a family of arrows indexed by the objects of A such that for any arrow in (draw diagram)
The commutativity of the corresponding diagram is called the naturality condition on α, and the arrow αa is called the component of the natural transformation α at the object a.
Given two natural transformations and , we can define a composition componentwise as .
Proposition The composite of two natural transformations is also a natural transformation.
Proposition Given two categories C,D the collection of all functors form a category Func(C,D) with objects functors and morphisms natural transformations between these functors.
Note that this allows us to a large degree to use functors to define entities we may otherwise have defined using large and involved definitions. Doing this using the categorical language instead mainly gives us a large number of facts for free: we don't have to verify, say, associativity of composition of functors if we already know them to be functors.
Example Recall our original definition of a graph as two collections and two maps between them. We can define a category GraphS:
with the two arrows named s and t. It is a finite category with 2 objects, and 4 arrows. Now, a small graph can be defined to be just a Functor .
In order to define more intricate structures this way, say Categories, or algebraic structures, we'd need more tools - which we shall find in later lectures. This approach to algebraic definition develops into an area called Sketch theory.
The idea, there, is that theories are modelled by specific categories - such as GraphS above, and actual instances of the objects they model appear as functors.
With this definition, since a graph is just a functor , and we get graph homomorphisms for free: a graph homomorphism is just a natural transformation.
And anything we can prove about functors and natural transformations thus immediately gives a corresponding result for graphs and graph homomorphisms.
On Wikipedia, see: [2]. Sketch theory, alas, has a painfully incomplete Wikipedia article.
[edit] 3 Properties of functors
The process of forming homsets within a category C gives, for any object A, two different functors Hom(A, − ): and . Functoriality for Hom(A, − ) is easy: Hom(A,f) is the map that takes some and transforms it into .
Functoriality for Hom( − ,A) is more involved. We can view this as a functor either from C^{op}, or as a different kind of functor. If we just work with C^{op}, then no additional definitions are needed - but we need an intuition for the dual categories.
Alternatively, we introduce a new concept of a contravariant functor. A contravariant functor is some map of categories, just like a functor is, but such that F(1[X]) = 1[F(X)], as usual, but such that for a , the functor image is some , and the composition is F(gf) = F(f)F(g). The usual kind of functors are named covariant.
A functor is faithful if the induced mapping
is injective for all .
A functor is full if the induced mapping
is surjective for all .
Note that a full subcategory is a subcategory so that the embedding functor is both full and faithful.
See also entries in the list of Types of Functors on the Wikipedia page for Functors [3].
[edit] 3.1 Preservation and reflection
We say that a functor preserves a property P, if whenever P holds in the category C, it does so for the image of F in D.
Thus, the inclusion functor for the category of finite sets into the category of sets preserves both monomorphisms and epimorphisms. Indeed, these properties, in both categories, correspond to injective and surjective functions, respectively; and a surjective (injective) function of finite sets is still surjective (injective) when considered for sets in general.
As another example, consider the category 2 given by , with the single non-identity arrow named f. All arrows in this category are both monomorphic and epimorphic. We can define a functor through , and f mapping to the set function that takes all elements to the value 3. The resulting constant map F(f) is neither epic nor monic, while the morphism f is both.
However, there are properties that functors do preserve:
Proposition Every functor preserves isomorphisms.
Proof Suppose is an isomorphism with inverse f^{ − 1}. Then F(f) has inverse F(f^{ − 1}). Indeed, F(f)F(f^{ − 1}) = F(ff^{ − 1}) = F(1_{Y}) = 1_{F(Y)} and F(f^{ − 1})F(f) = F(f^{ − 1}f) = F(1_{X}) = 1_{F(X)}. QED
We say that a functor reflects a property P, if whenever F(f) has that property, so does f.
A functor is representative if every object in D is isomorphic to some F(X) for .
[edit] 4 Homework
Complete homework is by 4 out of 9 complete solutions. Partial credit will be given.
- Show that the category of vectorspaces is equivalent to the category with objects integers and arrows matrices.
- Prove the propositions in the section on natural transformations.
- Prove that is a natural transformation from the list functor to the maybe functor. IslistToMaybe :: [a] -> Maybe aa natural transformation? Between which functors?catMaybes
- Find two more natural transformations defined in the standard Haskell library. Find one polymorphic function that is not a natural transformation.
- Write a functor instance for data F a = F (Int -> a)
- Write a functor instance for data F a = F ((Int -> a) -> Int)
- Write a natural transformation from toMaybe a. Is this a natural isomorphism? If so, what is its inverse? If not, why not?Either () a
- Write a natural transformation from to[a]. Is this a natural isomorphism? If so, what is its inverse? If not, why not?(Maybe a, Maybe a)
- * Recall that a category is called discrete if it has no arrows other than the identities. Show that a small category A is discrete if and only if every set function , for every small category B, is the object part of a unique functor . Analogously, we define a small category B to be indiscrete if for every small category A, every set function is the object part of a unique functor . Characterise indiscrete categories by the objects and arrows they have.
- * We could write a pretty printer, or XML library, using the following data type as the core data type:
data ML a = Tag a (ML a) | Str String | Seq [ML a] | Nil
- With this, we can use a specific string-generating function to generate the tagged marked up text, such as, for instance:
prettyprint (Tag tag ml) = "<" ++ show tag ++ ">" ++ prettyprint ml ++ "</" ++ show tag ++ ">" prettyprint (Str s) = s prettyprint (Seq []) = "" prettyprint (Seq (m:ms)) = prettyprint m ++ "\n" ++ prettyprint (Seq ms) prettyprint Nil = ""
- Write an instance of Functor that allows us to apply changes to the tagging type. Then, using the following tagging types:
data HTMLTag = HTML | BODY | P | H1 | CLASS String deriving (Show) data XMLTag = DOCUMENT | HEADING | TEXT deriving (Show)
- write a function and use it to generate a html document out of:htmlize :: ML XMLTag -> ML HTMLTag
Tag DOCUMENT Seq [ Tag HEADING String "Nobel prize for chromosome find", Tag TEXT String "STOCKHOLM (Reuters) - Three Americans won the Nobel prize for medicine on Monday for revealing the existence and nature of telomerase, an enzyme which helps prevent the fraying of chromosomes that underlies aging and cancer.", Tag TEXT String "Australian-born Elizabeth Blackburn, British-born Jack Szostak and Carol Greider won the prize of 10 million Swedish crowns ($1.42 million), Sweden's Karolinska Institute said.", Tag TEXT String "'The discoveries ... have added a new dimension to our understanding of the cell, shed light on disease mechanisms, and stimulated the development of potential new therapies,' it said.", Tag TEXT String "The trio's work laid the foundation for studies that have linked telomerase and telomeres -- the small caps on the end of chromosomes -- to cancer and age-related conditions.", Tag TEXT String "Work on the enzyme has become a hot area of drug research, particularly in cancer, as it is thought to play a key role in allowing tumor cells to reproduce out of control.", Tag TEXT String "One example, a so-called therapeutic vaccine that targets telomerase, in trials since last year by drug and biotech firms Merck and Geron, could yield a treatment for patients with tumors including lung and prostate cancer.", Tag TEXT String "The Chief Executive of Britain's Medical Research Council said the discovery of telomerase had spawned research of 'huge importance' to the world of science and medicine.", Tag TEXT String "'Their research on chromosomes helped lay the foundations of future work on cancer, stem cells and even human aging, areas that continue to be of huge importance,' Sir Leszek Borysiewicz said in a statement." ]