use strict; use warnings; use feature 'say';
use Path::Tiny;
use Algorithm::Permute;
use Number::Format 'format_number';
use List::Util 'uniq';
use Getopt::Long;

my @dl;
my @tl;
my $dw;
my $tw;
my $debug;

GetOptions(
    'dl=i' => \@dl,
    'tl=i' => \@tl,
    'dw'   => \$dw,
    'tw'   => \$tw,
    'v'    => \$debug,
);

my $input       = shift or die 'Died: No input!';
my $length      = length $input;
my @input_chars = split '', $input;

my $words_file  = '/usr/share/dict/words';
my %words       = map { $_ => 1 } path( $words_file )->lines({chomp => 1});

my %worth = (
    a => 1, b => 3,  c => 3, d => 2, e => 1,
    f => 4, g => 2,  h => 4, i => 1, j => 8,
    k => 5, l => 1,  m => 3, n => 1, o => 1,
    p => 3, q => 10, r => 1, s => 1, t => 1,
    u => 1, v => 2,  w => 2, x => 8, y => 4, z => 10,
);

my @partials;

for (1 .. $length) {
    my $P = Algorithm::Permute->new( \@input_chars, $_ );
    
    while (my @res = $P->next) {
        push @partials, join '', @res;
    }
}

@partials = uniq @partials;

say sprintf 'Found %s 1-%s letter strings in %s.',
            format_number(scalar @partials), $length, $input;

my %found = map { $_ => calc_score($_) } grep { $words{$_} } @partials ;

say sprintf 'Found %s words in %s.', format_number(scalar keys %found), $input;

for ( sort { $found{$b} <=> $found{$a} } keys %found ) {
    say "$_ : $found{$_}";
    last if not $debug;
}

###############

sub calc_score {
    my $word = shift;
    my $val;
    $val += $worth{$_} for split '', $word;

    $val += 50 if length $word == 7;

    return $val + calc_bonus($word, $val);
}

sub calc_bonus {
    my ($word, $val) = @_;
    my @chars = split '', $word;

    my $bonus = 0;

    for (@dl) {
        $bonus += $worth{ $chars[$_ - 1] } if $chars[$_ - 1];
    }

    for (@tl) {
        $bonus += 2 * $worth{ $chars[$_ - 1] } if $chars[$_ - 1];
    }

    $bonus += $val if $dw;
    $bonus += 2 * $val if $tw;

    return $bonus;
}

__END__