evansb

#include <iostream>
#include <stdexcept>
#include <thread>

/* Thread guard is an RAII for thread that ensures
 * join is called when the function that creates
 * the thread goes out of scope.
*/
class ThreadGuard {

evansb

(* Tutorial 2 : Recursion & Higher-Order Functions *)

(*
    OCaml Reading Resources

    tutorial:
        http://ocaml.org/learn/tutorials/

    introduction:
        http://www.cs.jhu.edu/~scott/pl/lectures/caml-intro.html

evansb

import Control.Monad.State.Lazy
import Control.Monad.Error
import Control.Monad.Identity
import Control.Applicative

import Data.Char

-- Begin parser
type Parser a = StateT String (ErrorT String Identity) a

evansb

def ugly_pascal_triangle(level):
    table = []
    for row in range(level):
        for col in range(level):
            if row == 0:
                table.append([])
            if col == 0 or row == col:
                table[row].append(1)

evansb

import sys

DEBUG       = True
INFINITY    = 99999

def debug(var):
    if DEBUG:
        sys.stderr.write(repr(var) + "\n")

def make_adjacent(graph, people, paper):

evansb

TARGET=TARGET_NAME
CC=clang++
CFLAG=-Wall -O3 -g -DNDEBUG
SRC=$(shell find . -name *.cpp)
OBJ=${SRC:.cpp=.o}

all: $(OBJ) 
	./$(TARGET) $(TARGET).input $(TARGET).output
	diff $(TARGET).output $(TARGET).model

evansb

-- Try to guess what divide does!
divide:: (Integral a) => [a] -> [[a]]
divide = f1 . f2 where
    f1 = foldr f3 []
    f2 = map (:[])
    f3 x acc
        | null acc = x : acc
        | (head x * head (head acc)) > 0 = (x ++ head acc) : tail acc
        | otherwise = x : acc

evansb

data Tree a = Leaf
            | Node Integer (Tree a) a (Tree a)
            deriving (Show, Eq)

foldTree :: [a] -> Tree a
foldTree [] = Leaf
foldTree xs = Node height 
            (foldTree $ take half xs) 
        (xs !! half)
            (foldTree $ drop (half + 1) xs)

evansb

module Main where

import Data.Char
import Data.Map

-- Shunting - Yard algorithm for Reverse Polish Notation
data Token = Number Int | ParenOpen | ParenClose
             | AddOp | MulOp  | DivOp | SubOp
            deriving (Show, Eq)

evansb

// Crypt Kicker
// Evan Sebastian <evanlhoini@gmail.com>

#include <cstdio>
#include <iostream>
#include <stack>
#include <string>
#include <sstream>
#include <set>
#include <vector>