|
|||||||||
sub draw_board returns Str {
my $output = '';
for (0 .. (+@letters - 1)) -> $i {
if (@letters[$i] ~~ rx:perl5{[-.,\s]}) {
$output ~= @letters[$i];
@solution[$i] = @letters[$i];
}
elsif (@solution[$i] ne '') {
$output ~= @solution[$i];
}
else {
$output ~= '_';
}
}
return $output;
}
|
|||||||||
|
|||||||||