johntyree

<hiptobecubic> @src Maybe
<lambdabot> data Maybe a = Nothing | Just a
<hiptobecubic> @src Monad
<lambdabot> class  Monad m  where
<lambdabot>     (>>=)       :: forall a b. m a -> (a -> m b) -> m b
<lambdabot>     (>>)        :: forall a b. m a -> m b -> m b
<lambdabot>     return      :: a -> m a
<lambdabot>     fail        :: String -> m a
<hiptobecubic> @src [] (>>)
<lambdabot> xs >> ys      = concatMap (const ys) xs

zipcode

import scala.collection.mutable.Queue

object Brainfuck {
  def main(args: Array[String]) {
    val code = io.Source.fromFile("src.txt") filter ("[]<>.,+-" contains _) toSeq

    exec(code)
  }

  def exec(code: Seq[Char]) {