Tfe

Old stuff/Perl/loto.pl

#!/usr/bin/perl -w



for my $aa(1..45)
{
    for my $bb($aa+1..50)
    {
	for my $cc($bb+1..50)
	{
	    for my $dd($cc+1 .. 50)
	    {
		for my $ee($dd+1 ..50)
		{
		    for my $ff($ee+1 ..50)
		    {
			print "$aa $bb $cc $dd $ee $ff\n";
		    }
		}	    
	    }


	}
    }
}