#!/usr/bin/perl -w
use strict;
use mapcar;

main( @ARGV );
exit( 0 );

BEGIN {
    my @freq;
    my $max= 0;
    my @f= (0,1,2);
    sub freq {
        my( $n )= @_;
        while(  @freq < $n  ) {
            push @freq, [@f];
            @f= mapcar { $_[0]+$_[1] } [@f,$f[-1]], [0,@f];
        }
        return $freq[$n-1];
    }
}

sub odds {
    my( $m, $n )= @_;
    ( $m, $n )= ( $n, $m )   if  $n < $m;
    my @Fm= @{ freq($m) };
    my @Fn= @{ freq($n) };
    my( $win, $lose, $draw )= ( 0, 0, 0 );
    for my $i (  0..$m  ) {
        my $f= $Fm[$i+1] - $Fm[$i];
        $win += $f * $Fn[$i];
        $draw += $f * ($Fn[$i+1]-$Fn[$i]);
        $lose += $f * ($Fn[-1]-$Fn[$i+1]);
    }
    $lose += $Fm[-1] * ( $Fn[-1] - $Fn[$n+1] );
    my $tot= $win + $draw + $lose;
    die "Broken"   if  $tot != $Fm[-1]*$Fn[-1];
    return $win/$tot, $draw/$tot, $lose/$tot;
}

sub main {
    die "Usage: $0 max\n"   unless  1 == @ARGV;
    my( $max )= @_;
    for my $n ( 1..$max  ) {
        for my $m (  1..$n  ) {
            my $line= sprintf
              "%2d,%2d: %19.17f %19.17f %19.17f\n",
              $m,$n,odds($m,$n);
            $line =~ s#(?<=\d)(0+ )# " " x length($1) #ge;
            $line =~ s#(?<=\d)0+$##;
            print $line;
        }
        print $/;
    }
}