Skip to content

Instantly share code, notes, and snippets.

jj-issuu

Block or report user

Report or block jj-issuu

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
@jj-issuu
jj-issuu / eval.ml
Last active Aug 29, 2015
Benchmark interpreters written in OCaml
View eval.ml
(*
* opam install bench
* ocamlfind ocamlopt -package unix,bench -linkpkg eval.ml && ./a.out
*)
type binop = Add | Sub | Mul | Div
type expr =
| Const of int
| VarX
@jj-issuu
jj-issuu / avl.ml
Created Jan 14, 2014
OCaml AVL tree
View avl.ml
module AVL = struct
type height = int
type int = height
module Elt = Int32
type t = Leaf | Node of t * Elt.t * t * height
exception Impossible
let height = function
You can’t perform that action at this time.