#!/usr/bin/perl -w
use strict;
use lib '.';
use common;
my $c = {
'red' => int rand 256,
'green' => int rand 256,
'blue' => int rand 256,
};
common::convertsRGBtoCIELAB($c);
print "";
print "\n";
my $results;
$results->{0} = "$c->{red}, $c->{green}, $c->{blue}";
for (0..1000) {
my $s = {
'red' => int rand 256,
'green' => int rand 256,
'blue' => int rand 256,
};
common::convertsRGBtoCIELAB($s);
my $r = sqrt(($s->{'red'}-$c->{'red'})**2+($s->{'green'}-$c->{'green'})**2+($s->{'blue'}-$c->{'blue'})**2);
$results->{$r} = "$s->{red}, $s->{green}, $s->{blue}";
}
foreach (sort { 0+$a <=> 0+$b } keys %$results) {
print "$_
\n";
}