lukasvermeer · December 18, 2015 20:50 · lukasvermeer · Dec 18, 2015
diff --git a/combined_words.pl b/combined_words.pl
 use strict;
 use warnings;

 use Data::Dumper;

 open(W, "woorden.txt");
 my %w;
 while (my $line = <W>) {
    chomp($line);
    if (length $line == 4) {
        $w{lc($line)} = 1;
    }
    if (length $line == 7) {
        next unless substr($line,3,1) eq 'r';
        $w{lc($line)} = 1;
    }
 }
 close(W);

 for my $word (keys %w) {
    next unless length $word == 7;
    next unless $w{substr($word,0,4)};
    next unless $w{substr($word,3,4)};
    print $word. "\n";
 }
	use strict;
	use warnings;

	use Data::Dumper;

	open(W, "woorden.txt");
	my %w;
	while (my $line = <W>) {
	chomp($line);
	if (length $line == 4) {
	$w{lc($line)} = 1;
	}
	if (length $line == 7) {
	next unless substr($line,3,1) eq 'r';
	$w{lc($line)} = 1;
	}
	}
	close(W);

	for my $word (keys %w) {
	next unless length $word == 7;
	next unless $w{substr($word,0,4)};
	next unless $w{substr($word,3,4)};
	print $word. "\n";
	}