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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
#!/usr/bin/env raku
# :vim ft=raku sw=4 expandtab # 🦋 ∅ ≡ ∩ ≢ ∈ «  » ∴
use v6.d;
use Test;
=begin comment
207-1: Keyboard Word Submitted by: Mohammad S Anwar
Given an array of words, print all the words in the given array that can
be types using alphabet on only one row of the keyboard.
Let us assume the keys are arranged as below:
Row 1: qwertyuiop
Row 2: asdfghjkl
Row 3: zxcvbnm
Example 1
Input: @words = ("Hello","Alaska","Dad","Peace")
Output: ("Alaska","Dad")
Example 2
Input: @array = ("OMG","Bye")
Output: ()
=end comment
my @Test =
[ ["Hello","Alaska","Dad","Peace"], ["Alaska","Dad"].Set ],
[ ["Hello","Alaska","Dad","Peace"], ["Dad","Alaska"].Set ],
[ ["Try","Daff","XXX"], ["Try","Daff","XXX"].Set ],
[ ["OMG","Bye"], [].Set ],
[ ["were","tort","yup","trey","popeye","pout","we",
"you","i","rue","quiet","etiquette","tire","retort",
"wet", "wry","rye", "trope","yet",],
["were","tort","yup","trey","popeye","pout","we",
"you","i","rue","quiet","etiquette","tire","retort",
"wet", "wry","rye", "trope","yet",].Set ],
[ ["tie","rotor","op","worry","queue","or","try","type","True",
"out","iop","write","put","rw","ro","quit","top","tree",
"as","has","add","trie"],
["tie","rotor","op","worry","queue","or","try","type","True",
"out","iop","write","put","rw","ro","quit","top","tree",
"as","has","add","trie"].Set ],
;
my @T-keyboard-live =
['qwer', 'tyuiop', 'asd', 'fghjkl', 'zxc',' vbnm'], ['a','b'],
['qwertyuiop', 'asdfghjkl', 'zxcvbnm'], ['a',],
['qwertyuiopasdfghjklzxcvbnm'],
;
my @T-keyboard-die =
[,].Array, ['qwe', 'asd', '', 'zxc'],
['qawe', 'asd', 'zxc'], ['qwe', 'asd', 'zxec'],
['qwe', 'axsd', '', 'zxc'],
;
plan @Test + @T-keyboard-die + @T-keyboard-die;
my @qwerty-def = 'qwertyuiop', 'asdfghjkl', 'zxcvbnm';
# Keyboard convert and validate.
sub keyboard-valid( @kb-def where * !~~ Empty --> Array) {
my @kr = @kb-def.map: *.lc.comb.Set;
for ^@kr -> $me {
for ^@kr -> $other {
next if $me == $other;
if (@kr[$me] ∩ @kr[$other] ≢ Empty )
or (@kr[$me] ≡ Empty.Set)
or ( @kr[$other] ≡ Empty.Set)
{
die 'Bad keyboard: empty line or shared keys.'; # ??? rules
} } }
@kr;
}
sub filter-one-row-words( @word, @key-row-def --> Set) {
my @one-row-word = gather for @word -> $w {
if $w.lc.comb.Set ⊆ @key-row-def.any {
take $w;
next;
} }
@one-row-word.Set;
}
for @T-keyboard-live -> @t {
lives-ok { keyboard-valid @t }, 'live';
}
for @T-keyboard-die -> @t {
dies-ok { keyboard-valid @t }, 'die';
}
my @kr = keyboard-valid( @qwerty-def);
for @Test -> (@in, $exp) {
my $got = filter-one-row-words( @in, @kr);
is-deeply $got, $exp, "$got"
}
done-testing;
my @array = 'Raku','do', 'does', 'any', "tie","rotor","worry",
"queue","or","try","type","True", 'when','error',
"out","write","put",'for',"rw","ro","quit","tree",
"as","has","add","trie", 'once';
my $set = filter-one-row-words( @array, @kr);
say "\nInput: @array = (@array.sort())";
say " Output: ", $set.keys.sort;
exit;
|
