#!/usr/bin/perl # by Bogart Salzberg, InkFist.Com
for (12345 .. 54321) {
print ++$count, "\t", $_, "\n" if /
([1-5])
(?!\1)([1-5])
(?!\1|\2)([1-5])
(?!\1|\2|\3)([1-5])
(?!\1|\2|\3|\4)([1-5])
/x;
}
_______________________________________________
Boston-pm mailing list
[email protected]
http://mail.pm.org/mailman/listinfo/boston-pm
