This package provides a simple way to generate Huffman trees based on the description of an emitter.
open Huffman
(* A simple emitter capable to emit characters 'a' 'b' or 'c' with frequencies .1, .2 and .7 *)
let emitter = ['a',0.1; 'b',0.2; 'c',0.7]
let _ = emitter |> huffman |> dump_as_dot "test.dot"The entry point of this library is the module: Huffman.