use strict;

sub cmd {
	my $s = $_[0];
	print "$s\n";
	`$s`;
}

my @files = split( /\n/, `ls data/sorted_histograms` );

for my $file ( @files ) {
	$file =~ s/\.txt//;
	&cmd("mkdir -p data/color_dist/$file");
}

for my $file1 ( @files ) {
	$file1 =~ s/\.txt//;
	for my $file2 ( @files ) {
		$file2 =~ s/\.txt//;
		if ( $file1 <= $file2 ) {
			&cmd("./bin/color_dist $file1 $file2 >data/color_dist/$file1/$file1\_$file2.txt");
			if ( $file1 != $file2 ) {
				&cmd("cp data/color_dist/$file1/$file1\_$file2.txt data/color_dist/$file2/$file2\_$file1.txt");
			}
		}
	}
}