DeeNewcum/optimize_dfa

## optimize_dfa
#!/usr/bin/perl

    use strict;
    use warnings;

    use Regexp::Optimizer;

my @losers_minus_winners = qw[
    blaine breckinridge bryan cass clay cox davis dewey dole dukakis ford fremont
    goldwater gore greeley hancock hughes humphrey kerry king landon mccain
    mcclellan mcgovern mondale parker pinckney romney scott seymour smith stevenson
    tilden wilkie
];

# build the input regexp
my $re = '^!(' . join('|', @losers_minus_winners) . ')$';
        #die "$re\n";

# do DFA optimization
$re = Regexp::Optimizer->new->as_string(qr/$re/);

# do some superficial changes for presentation purposes
$re =~ s/^\(\?\^://;
$re =~ s/\)$//;
$re =~ s/\(\?:/(/g;

print "$re\n";
	#!/usr/bin/perl

	use strict;
	use warnings;

	use Regexp::Optimizer;

	my @losers_minus_winners = qw[
	blaine breckinridge bryan cass clay cox davis dewey dole dukakis ford fremont
	goldwater gore greeley hancock hughes humphrey kerry king landon mccain
	mcclellan mcgovern mondale parker pinckney romney scott seymour smith stevenson
	tilden wilkie
	];

	# build the input regexp
	my $re = '^!(' . join('\|', @losers_minus_winners) . ')$';
	#die "$re\n";

	# do DFA optimization
	$re = Regexp::Optimizer->new->as_string(qr/$re/);

	# do some superficial changes for presentation purposes
	$re =~ s/^\(\?\^://;
	$re =~ s/\)$//;
	$re =~ s/\(\?:/(/g;

	print "$re\n";