#!/usr/bin/env perl

use strict;
use warnings;

use Statistics::Histogram;

my $num_bins = 50;
my $use_linear_axes = 1;

srand(1234);

### Produce a lot of random numbers:
# 1) expecting a flat line (uniform distribution):
my @x = map { rand() } 1..1000000;

# 2) sum of two rand() to get larger random number
# - I am getting larger numbers and I am expecting a flat line.
# - you wanna bet?
my @y = map { rand()+rand() } 1..1000000;

# Now draw the histograms of obtained random numbers:
# 1) perl's rand is quite uniform, I see a flat line:
print Statistics::Histogram::get_histogram(\@x, $num_bins, $use_linear_axes);

# 2) !!ouch - that hurt !!
print Statistics::Histogram::get_histogram(\@y, $num_bins, $use_linear_axes);