Select Code to Download

# Find how close each letter is to half of the total word possibilitie
+s to ensure maximum gain every guess after being sorted
foreach my $occur (keys %alphabet) {
...
say $_ foreach @narrowed; # Word list
say $#narrowed + 1;
say sort { $alphabet{$a} <=> $alphabet{$b} } keys %alphabet; # Sort as
+cendingly; whichever letter is closest to 0, i.e., and therefore whic
+hever letter will eliminate the most words.

$ perl hangman.pl "_ _ _ _ _ _ _ _" ""
_ _ _ _ _ _ _ _
...
phonetic
4
wraxdjyukhgftienvmslcpqbzo