Skip to content

Instantly share code, notes, and snippets.


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 /
Last active Aug 29, 2015
Benchmark interpreters written in OCaml
* opam install bench
* ocamlfind ocamlopt -package unix,bench -linkpkg && ./a.out
type binop = Add | Sub | Mul | Div
type expr =
| Const of int
| VarX
jj-issuu /
Created Jan 14, 2014
OCaml AVL tree
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.