#! /usr/bin/perl

$L = 20;
$D = 20;

# compile file

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

# generate all chain frequencies

for ($l = 1; $l <= $L; $l++)
{
    for ($d = 1; $d <= $D; $d++)
    {
        for ($f = 0.05; $f <= 1.0; $f += 0.05)
        {
            $m = $l * $d * $f;

            print "l=$l d=$d f=$f m=$m, ...\n";

            if ($m < 1 || $m > 20)
            {
                print "skipping\n";
                next;
            }
         

            $lfile = "L$l"."d$d"."f$f";
            $sfile = "S:L$l"."d$d"."f$f";

            print "checking $sfile ... \n";
            
            if (-e $sfile)
            {
                print "$sfile already exists\n";
            }
            else
            {
                system "chains $l $d $f; rm -f $lfile";
            }
        }
    }
}