#!/usr/bin/perl

use strict;
use warnings;

my $iterations = 0;
my $comparators = 0;
my %data = ();

while (<>)
{
	chomp;
	my ($x, $y) = split;

	$iterations += $y;
	$comparators += ($x * $y);
	$data{$x} = $y;
}

print "# Iterations: $iterations\n";
printf "# Average: %.6f\n", $comparators / $iterations;
for (sort { $a <=> $b } (keys %data))
{
	printf "%-4i %.6f\n", $_, 100.0 * $data{$_} / $iterations;
}