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
|
#!/usr/bin/env lua
local t1 = {}
t1.DEFAULT_INPUT = {'abcde', 'a*e'}
--[[
-- Lua does not have a built-in globbing function, but there are 3rd party
-- libraries. Instead we will simply stick to the task's description of the
-- two wild characters and no escape mechanism. We can accomplish that pretty
-- easily with Lua's patterns, which have a small number of special characters
-- to escape and straight-forward translations of the wild characters.
--]]
function t1.pattern_match(s, p)
local specials = '^[%^%$%(%)%%%.%[%]%+%-]$'
local pats = {'^'}
for c in p:gmatch('.') do
if c == '?' then
table.insert(pats, '.')
elseif c == '*' then
table.insert(pats, '.+')
elseif c:match(specials) then
table.insert(pats, '%' .. c)
else
table.insert(pats, c)
end
end
table.insert(pats, '$')
local luapat = table.concat(pats)
return s:match(luapat)
end
function t1.run(args)
local s, p
if #args > 0 then
s, p = args[1], args[2]
else
s, p = table.unpack(t1.DEFAULT_INPUT)
end
if t1.pattern_match(s, p) then
print(1)
else
print(0)
end
end
return t1
|
