bin/jotto.pl


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/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/^(\w{0,4}|\w{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";