post(typoclassopedia): Applicative Laws

theme(monospace): use Mononoki for code

_includes/head.html

@@ -6,7 +6,7 @@
   <title>{% if page.title %}{{ page.title }}{% else %}{{ site.title }}{% endif %}</title>
   <meta name="description" content="{% if page.excerpt %}{{ page.excerpt | strip_html | strip_newlines | truncate: 160 }}{% else %}{{ site.description }}{% endif %}">
 
-  <link href="https://fonts.googleapis.com/css?family=Secular+One|Nunito|Ubuntu+Mono" rel="stylesheet"> 
+  <link href="https://fonts.googleapis.com/css?family=Secular+One|Nunito|Mononoki" rel="stylesheet"> 
   <link rel="stylesheet" href="{{ "/css/main.css" | prepend: site.baseurl }}">
   <link rel="canonical" href="{{ page.url | replace:'index.html','' | prepend: site.baseurl | prepend: site.url }}">
   <link rel="alternate" type="application/rss+xml" title="{{ site.title }}" href="{{ "/feed.xml" | prepend: site.baseurl | prepend: site.url }}" />

_posts/2017-09-27-typoclassopedia-exercise-answers.md

@@ -275,3 +275,55 @@ The Functor section links to [Category Theory](https://en.wikibooks.org/wiki/Has
     fmap (f . g) (Just x) = Just ((f . g) x) = Just (f (g x))
     fmap f (fmap g (Just x)) = Just (f (g x)) = Just ((f . g) x)
     ```
+    
+Applicative
+===========
+
+## Laws
+
+1. The identity law:
+   
+    ```haskell
+    pure id <*> v = v
+    ```
+
+2. Homomorphism:
+
+    ```haskell
+    pure f <*> pure x = pure (f x)
+    ```
+
+    Intuitively, applying a non-effectful function to a non-effectful argument in an effectful context is the same as just applying the function to the argument and then injecting the result into the context with pure.
+    
+3. Interchange:
+
+    ```haskell
+    u <*> pure y = pure ($ y) <*> u
+    ```
+
+    Intuitively, this says that when evaluating the application of an effectful function to a pure argument, the order in which we evaluate the function and its argument doesn't matter.
+    
+4. Composition:
+
+    ```haskell
+    u <*> (v <*> w) = pure (.) <*> u <*> v <*> w
+    ```
+
+    This one is the trickiest law to gain intuition for. In some sense it is expressing a sort of associativity property of (`<*>`). The reader may wish to simply convince themselves that this law is type-correct. 
+    
+### Exercises
+
+(Tricky) One might imagine a variant of the interchange law that says something about applying a pure function to an effectful argument. Using the above laws, prove that
+
+```haskell
+pure f <*> x = pure (flip ($)) <*> x <*> pure f
+```
+
+**Solution**:
+
+```haskell
+pure f <*> x = pure (($) f) <*> x -- identical
+pure f <*> x = pure ($) <*> pure f <*> x -- homomorphism
+pure f <*> x = pure (flip ($)) <*> x <*> pure f -- flip arguments
+```
+

_sass/_base.scss

@@ -224,7 +224,11 @@ pre {
     font-family: 'Ubuntu Light';
     src: url(fonts/Ubuntu-Light_gdi.woff);
 }
+//@font-face {
+    //font-family: 'Ubuntu Mono';
+    //src: url(fonts/UbuntuMono-Regular_gdi.woff);
+//}
 @font-face {
-    font-family: 'Ubuntu Mono';
-    src: url(fonts/UbuntuMono-Regular_gdi.woff);
+  font-family: Mononoki;
+  src: url(fonts/mononoki-Regular.woff);
 }

_sass/_syntax-highlighting.scss

@@ -5,7 +5,7 @@
 /* ----------------------------------------------------------*/
 
 pre, code {
-    font-family: 'Ubuntu Mono';
+    font-family: 'Mononoki';
     font-size: 11pt;
     overflow-x: auto;
 }
@@ -80,4 +80,4 @@ code {background: #fff; padding: 2px 4px; border-radius: 3px; border: 1px solid
 .highlight .vg { color: #c82829 } /* Name.Variable.Global */
 .highlight .vi { color: #c82829 } /* Name.Variable.Instance */
 .highlight .il { color: #f5871f } /* Literal.Number.Integer.Long */
-.highlight .lineno {user-select: none; -moz-user-select: none; -webkit-user-select: none;}
+.highlight .lineno {user-select: none; -moz-user-select: none; -webkit-user-select: none;}