gistfile1.erl

simple_test() ->
    {ok, EC} = erasuerl:new(),
    {ok, Bin} = file:read_file("/usr/share/dict/words"),
    {MD, KBins, MBins} = erasuerl:encode(EC, Bin),
    [K1, K2, K3, K4, K5, K6, K7, K8, K9] = KBins,
    [M1, M2, M3, M4] = MBins,
    KBins2 = [undefined, undefined, undefined, K4, K5, K6, K7, K8, K9],
    MBins2 = [undefined, M2, M3, M4],
    Bin = iolist_to_binary(erasuerl:decode(EC, MD, KBins2, MBins2)).