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
|
#!/usr/bin/env julia
#=
--------------------------------------
AUTHOR: Robert DiCicco
DATE : 2023-03-06
Challenge 207 Keyboard Word ( Julia )
--------------------------------------
=#
using Printf
rows = ["qwertyuiop", "asdfghjkl", "zxcvbnm"]
words = ["Hello", "Alaska", "Dad", "Peace"], ["OMG", "Bye"]
flag = 0
function CheckLetters(w)
ln = length(w)
for j in 1:3
flag = 0
for x in 1:ln
if (occursin(w[x], rows[j]))
else
flag = 1
end
end
if (flag == 0)
@printf("\t%s\n",w)
flag = 0
end
end
end
for wds in words
@printf("Input: @words = %s\n",wds)
println("Output:")
ln = length(wds)
for j in 1:ln
CheckLetters(lowercase(wds[j]))
end
println(" ")
end
#=
--------------------------------------
SAMPLE OUTPUT
julia .\KeyboardWord.jl
Input: @words = ["Hello", "Alaska", "Dad", "Peace"]
Output:
alaska
dad
Input: @words = ["OMG", "Bye"]
Output:
--------------------------------------
=#
|
