blob: 4d9f5091cd8be56bdfc5182dd6c972a991ffeaad (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
#!/usr/bin/env perl
use strict;
use warnings;
use Games::Word qw/shared_letters/;
use Games::Word::Wordlist;
my $wl = Games::Word::Wordlist->new('/usr/share/dict/words');
$wl->remove_words($wl->words_like(qr/^(.{0,4}|.{6,})$/));
$wl->remove_words($wl->words_like(qr/[^a-z]/));
my $word = $wl->random_word;
my $guesses = 0;
while (1) {
print "Guess a word: ";
my $guess = <>;
chomp $guess;
if ($guess eq '.') {
print "The word was $word\n";
exit;
}
if (length $guess != 5) {
print "Word must be 5 letters long.\n";
next;
}
if (!$wl->is_word($guess)) {
print "$guess is not a word.\n";
next;
}
$guesses++;
last if $guess eq $word;
my $correct = shared_letters $word, $guess;
printf "You got $correct letter%s correct.\n", $correct == 1 ? "" : "s";
}
print "You win in $guesses guesses!\n";
|