Skip to content

Instantly share code, notes, and snippets.

View mitchellwrosen's full-sized avatar

Mitchell Dalvi Rosen mitchellwrosen

View GitHub Profile

Keybase proof

I hereby claim:

  • I am mitchellwrosen on github.
  • I am mitchellsalad (https://keybase.io/mitchellsalad) on keybase.
  • I have a public key whose fingerprint is 3690 8209 3820 4AE4 DE6C 458C ADEE B819 CFC3 B7BE

To claim this, I am signing this object:

@mitchellwrosen
mitchellwrosen / brainfuck.hs
Last active August 29, 2015 14:21
Brainfuck interpreter
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE TemplateHaskell #-}
module Brainfuck where
import Control.Lens
import Control.Monad.Except
module SendMoreMoney where
import Control.Monad
import Control.Monad.Trans.State
digits :: [Int]
digits = [0..9]
select :: StateT [a] [] a
select = StateT go
@mitchellwrosen
mitchellwrosen / explore.hs
Last active August 29, 2015 14:20
Haskell source explorer aide
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
module Main where
import Control.Monad
import Control.Monad.Writer
import Data.List
@mitchellwrosen
mitchellwrosen / send-more-money.hs
Last active August 29, 2015 14:20
send + more = money
{-# LANGUAGE TupleSections #-}
module Main where
import Control.Applicative
import Control.Monad
import Control.Monad.Trans.State
import Data.List ((\\), transpose)
import Data.Map (Map)
import qualified Data.Map as M