Select Code to Download

#!/usr/bin/perl
# Todo:
...

say $_ foreach @narrowed; # Word list
say sort { $alphabet{$b} <=> $alphabet{$a} } keys %alphabet; # Most co
+mmon letter, including ones already guessed

$ perl hangman.pl "e _ _ e _ _ _ _" ""
e _ _ e _ _ _ _
...
exterior
external
ensdtcxrlpimagohbvwyufzjkq

$ perl hangman.pl "e _ _ e _ _ _ _" "n"
e _ _ e _ _ _ _
...
expertly
exterior
etdxscrpilagmwybouhfzjknvq

$ perl hangman.pl "e _ _ e _ t _ _" "n"
e _ _ e _ t _ _
...
expected
expertly
tecxdpilryufwajkhgnvmsqbzo

$ perl hangman.pl "e _ _ e _ t _ _" "nx"
e _ _ e _ t _ _
...
effected
eutectic
teciduflwraxjykhgnvmspqbzo

$ perl hangman.pl "e _ _ e _ t i _" "nx"
e _ _ e _ t i _
...
eclectic
eutectic
tieculwraxdjykhgfnvmspqbzo

$ perl hangman.pl "e _ _ e _ t i _" "nxu"
e _ _ e _ t i _
n|x|u
eclectic
tielcwraxdjyukhgfnvmspqbzo