Mike Craig mkscrg

## gist:725879
"""
Arguments are the parameters of a deterministic finite automaton:
    q  -- states (list of strings)
    si -- input alphabet (list of characters)
    de -- transition function ((index of q),(index of si) --> (index of q))
    s  -- start state (index of q)
    f  -- accept states (list of (index of q))
Returns a generator function which takes a string and generates successive
states (indices of q) as the DFA runs on the string.
"""

## places_ex1.json
[
    {
        "tags": [
            "Others",
            "Tech startups",
            "Homes",
            "Offices",
            "Corporate office",
            "Work",
            "Services",

## places_ex2.json
[
    {
        "tags": [
            "Japanese restaurants",
            "Restaurant",
            "Sushi",
            "Bar",
            "Food",
            "Food & drink",
            "Japanese restaurant"

## places_ex3.json
{
    "tags": [
        "Japanese restaurants",
        "Restaurant",
        "Sushi",
        "Bar",
        "Food",
        "Food & drink",
        "Japanese restaurant"
    ],

## offers_ex1.json
[
    {
        "type": "event",
        "status": "active",
        "image_url": null,
        "expiration_date": "2011-10-01T13:00:00-07:00",
        "place": {
            "name": "Nelson Blue",
            "lon": -74.001573,
            "city": "New York",

## offers_ex2.json
{
    "type": "event",
    "status": "active",
    "image_url": "http://s3.amazonaws.com/prestigedevelopment/beta/offer_photos/4e5f502fceb01f000100139f.jpg?1314869295",
    "place": {
        "name": "Chelsea Piers - Pier 62",
        "lon": -74.005973,
        "city": "New York",
        "address": ", ",
        "postal_code": "",

## conctest.hs
import Control.Concurrent
import Control.Monad
import Data.Time.Clock.POSIX
import System.Environment

main :: IO ()
main = do
    -- setup
    n <- getArgs >>= return . read . head
    start <- newEmptyMVar

## .gitignore
cabal-dev/
dist/

## main.hs
{-# LANGUAGE OverloadedStrings #-}

module Main (main) where

import Control.Concurrent (forkIO)
import Control.Monad (unless)
import Data.ByteString.Char8 (pack)
import System.Environment (getArgs)
import System.Timeout (timeout)
import System.ZMQ3

## .gitignore
.idea/
*.iml
target/
	"""
	Arguments are the parameters of a deterministic finite automaton:
	q -- states (list of strings)
	si -- input alphabet (list of characters)
	de -- transition function ((index of q),(index of si) --> (index of q))
	s -- start state (index of q)
	f -- accept states (list of (index of q))
	Returns a generator function which takes a string and generates successive
	states (indices of q) as the DFA runs on the string.
	"""
	[
	{
	"tags": [
	"Others",
	"Tech startups",
	"Homes",
	"Offices",
	"Corporate office",
	"Work",
	"Services",
	[
	{
	"tags": [
	"Japanese restaurants",
	"Restaurant",
	"Sushi",
	"Bar",
	"Food",
	"Food & drink",
	"Japanese restaurant"
	[
	{
	"type": "event",
	"status": "active",
	"image_url": null,
	"expiration_date": "2011-10-01T13:00:00-07:00",
	"place": {
	"name": "Nelson Blue",
	"lon": -74.001573,
	"city": "New York",
	{
	"type": "event",
	"status": "active",
	"image_url": "http://s3.amazonaws.com/prestigedevelopment/beta/offer_photos/4e5f502fceb01f000100139f.jpg?1314869295",
	"place": {
	"name": "Chelsea Piers - Pier 62",
	"lon": -74.005973,
	"city": "New York",
	"address": ", ",
	"postal_code": "",
	import Control.Concurrent
	import Control.Monad
	import Data.Time.Clock.POSIX
	import System.Environment

	main :: IO ()
	main = do
	-- setup
	n <- getArgs >>= return . read . head
	start <- newEmptyMVar
	{-# LANGUAGE OverloadedStrings #-}

	module Main (main) where

	import Control.Concurrent (forkIO)
	import Control.Monad (unless)
	import Data.ByteString.Char8 (pack)
	import System.Environment (getArgs)
	import System.Timeout (timeout)
	import System.ZMQ3