#! /usr/bin/perl

$M = 20;
$D = 20;

# compile file

if (-e "arrangements")
{
    print "arrangements already exists\n";
}
else
{
    system "g++ arrangements.cc -o arrangements";
}

# generate all arrangements

for ($m = 0; $m <= $M; $m++)
{
    for ($d = 0; $d <= $D; $d++)
    {
        $mfile = "m$m\d$d";

        print "checking $mfile ... \n";

        if (-e $mfile)
        {
            print "$mfile already exists\n";
        }
        else
        {
            system "arrangements $m $d";
        }
    }
}