gatlin

1c1
< Article I
---
> Article I Name, Purpose, and Offices
3c3,4
< Name, Purpose, and Offices
---
> Section 1 Name
> The name of the corporation is Community Housing Expansion of Austin, Hereinafter called the Corporation.
5c6,7

gatlin

It's said that all Haskell programmers eventually write a blog post explaining
Monads. Today I fulfill my destiny. The basic format is ripped from "Learn You A
Haskell For Great Good," but these are my own crappy examples.

This blog post is literate Haskell; you can get it
[here](https://gist.github.com/4145341). You can import it into ghci and type
the functions to see their output (`ghci monads.lhs`). For this to work, we'll
need to import one module for use later:

> import Control.Applicative

gatlin

Untitled language

The goal of this language is to include all the things I like and to build them axiomatically. The core language has:

• it's a lisp, so it has s-exprs
• fexprs, with vau, wrap, and unwrap
• lexical scope; expressions can mutate immediate lexical environment under TBD conditions
• no shared state
• primitive integer, floating point, boolean, and unicode types

gatlin

perl -MCrypt::XkcdPassword -E 'say Crypt::XkcdPassword->make_password'

gatlin

{-
  This is a simple simulation of OT with Cloud in which all slaves generate
  and apply random operations. It should work in theory. In practice, however
  I wasn't apply to test it because my installation of distributed-process is
  apparently broken. Specifically, `spawn` doesn't seem to work (I tested it
  with some examples from the Well-Typed blog).

  This code depends on https://github.com/timjb/haskell-operational-transformation.
-}

gatlin

#include <iostream>

using namespace std;

/***
 * Humanoid
 * An abstract base class for other lifeforms
 */
class Humanoid {
protected:

gatlin

alias isgd="perl -MWWW::Shorten::IsGd -le 'print makeashorterlink shift'"

gatlin

all:    sexp

sexp:	sexp.y	sexp.l
	yacc -d sexp.y
	lex sexp.l
	gcc -o sexp lex.yy.c y.tab.c -ly -ll

clean:
	rm -rf *.{c,o,h}
	rm sexp

gatlin

module Main where

import System.Environment

main :: IO ()
main = getArgs >>= parse >>= display . roundMoney . charge

charge :: Fractional a => a -> a
charge = (/ 0.971) . (+ 0.3)

gatlin

Writing a billing system in Haskell, using Stripe and Heroku
===

*This post is written in literate Haskell, meaning the source can be turned
into a blogpost or a working program. You can view the [source][source].

[source]: https://gist.github.com/gatlin/7754289

Normally clients pay me with checks, but recently one informed me that they
really really really like *really really* super prefer some kind of online