🦡

Joe Hillenbrand joehillen

🦡

A full-stack software engineer with a passion for type-safe, fault-tolerant, distributed systems. I often specialize in IaC and DevOps.

joehillen / server.hs

Last active December 21, 2024 10:16

A re-implementation of Simon Marlow's Async Haskell Chat Server using Conduits

	{-# LANGUAGE OverloadedStrings, RecordWildCards, LambdaCase #-}

	import Conduit
	import Data.Conduit
	import Data.Conduit.Network
	import qualified Data.ByteString.Char8 as BS
	import Data.Conduit.TMChan
	import Text.Printf (printf)
	import Control.Concurrent.STM
	import qualified Data.Map as Map

joehillen / spellchecker_trie.py

Created July 11, 2013 08:08

A slightly better spellchecker using a Trie.

	#!/usr/bin/env python
	# -- coding: utf-8 --

	"""
	Written by Joe Hillenbrand <[email protected]> 2012

	All rights reserved!
	"""

	import sys

joehillen / bad_spellcheckers.py

Created July 11, 2013 07:40

A crappy spellchecker implementation I wrote for a job interview. I didn't get the job =P

	#!/usr/bin/env python
	# -- coding: utf-8 --

	"""
	Written by Joe Hillenbrand <[email protected]> 2012

	All rights reserved!
	"""

	import string

joehillen / throttle.hs

Created June 5, 2013 23:27 — forked from roman/throttle.hs

	import Control.Concurrent (forkIO, killThread,
	threadDelay, newEmptyMVar,
	tryTakeMVar, putMVar)
	import Control.Monad (void, forever)
	import Control.Concurrent.STM (atomically)
	import Control.Monad.Trans (MonadIO(..))
	import Control.Monad.Trans.Resource (MonadResource, allocate)
	import Data.Conduit (GInfConduit, awaitE)

	throttle :: (MonadResource m) => Int -> GInfConduit a m a