C(49, 7)

gistfile1.pl

sub r { int(rand(49)) }
$n1 = r();
do { $n2 = r(); } until ($n2 != $n1);
do { $n3 = r(); } until ($n3 != $n1 && $n3 != $n2);
do { $n4 = r(); } until ($n4 != $n1 && $n4 != $n2 && $n4 != $n3);
do { $n5 = r(); } until ($n5 != $n1 && $n5 != $n2 && $n5 != $n3 && $n5 != $n4);
do { $n6 = r(); } until ($n6 != $n1 && $n6 != $n2 && $n6 != $n3 && $n6 != $n4 && $n6 != $n5);
do { $n7 = r(); } until ($n7 != $n1 && $n7 != $n2 && $n7 != $n3 && $n7 != $n4 && $n7 != $n5 && $n7 != $n6);
print "$n1 $n2 $n3 $n4 $n5 $n6 $n7\n";