#!/usr/bin/env perl
use strict;
use warnings;
use Test::More;
use Text::Quantize;
my $output = Text::Quantize::quantize([26, 24, 51, 77, 21]);
is_deeply($output, <<'OUT');
value ------------- Distribution ------------- count
8 | 0
16 |@@@@@@@@@@@@@@@@@@@@@@@@ 3
32 |@@@@@@@@ 1
64 |@@@@@@@@ 1
128 | 0
OUT
done_testing;