#!/usr/bin/env perl

use 5.010;
use strict;
use warnings;
use autodie;

die "Usage: $0 dictionary max_letters min_letters\n" unless @ARGV >= 2;
my ($DICT, $MAX, $MIN) = @ARGV;
$MIN //= 1;
my %dict_extract;

open my $fh, '<', $DICT;
while (<$fh>) {
    s/%?\r?\n?$//;
    next if length > $MAX;
    ++$dict_extract{+length}{join '' => sort split ''};
}
close $fh;

my $best_letters = '';
my $most_words = 0;

for my $letters (keys %{$dict_extract{$MAX}}) {
    my $count = get_count($letters, {});

    if ($most_words < $count) {
        $most_words = $count;
        $best_letters = $letters;
    }
}

say "Best: $best_letters - Count: $most_words";

sub get_count {
    my ($letters, $counted) = @_;

    return 0 if $counted->{$letters}++;

    my $len = length $letters;
    my $count = $dict_extract{$len}{$letters} // 0;

    if ($len > $MIN) {
        $count += get_count($_, $counted) for map {
            my @sub_string = split '', $letters;
            splice @sub_string, $_, 1;
            join '' => @sub_string;
        } 0 .. $len - 1;
    }

    return $count;
}