#!/usr/bin/perl

$max = 9;

sub rancmp { $comps++; return rand() <=> rand(); }; 

%map;

while (1) {
  @fodder = sort rancmp (1..$max);

  foreach (1..$max) {
    ++$map{$_}{$fodder[$_-1]};
  }

  $trials++;

  if ($trials % 100000 == 0) {
    print "$trials trials\n";
    print $comps/$trials, "\n";
    foreach $one (1..$max) {
      foreach $two (1..$max) {
        print " ", int($map{$one}{$two}/$trials*$max*100)/100;
      }
     print "\n";
    }
    print "\n";
  }
}