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
|
' Challenge 099
'
' TASK #1 � Pattern Match
' Submitted by: Mohammad S Anwar
' You are given a string $S and a pattern $P.
'
' Write a script to check if given pattern validate the entire string.
' Print 1 if pass otherwise 0.
'
' The patterns can also have the following characters:
'
' ? - Match any single character.
' * - Match any sequence of characters.
' Example 1:
' Input: $S = "abcde" $P = "a*e"
' Output: 1
' Example 2:
' Input: $S = "abcde" $P = "a*d"
' Output: 0
' Example 3:
' Input: $S = "abcde" $P = "?b*d"
' Output: 0
' Example 4:
' Input: $S = "abcde" $P = "a*c?e"
' Output: 1
function match(s as string, p as string) as boolean
dim i as integer
do
if s="" and p="" then ' string and pattern finished
match=true
exit function
elseif s="" or p="" then ' string or pattern finished
match=false
exit function
elseif left(p,1)="?" then ' match any character
s=mid(s,2)
p=mid(p,2)
elseif left(p,1)="*" then ' match any sub-sequence
p=mid(p,2)
for i=1 to len(s)
if match(mid(s,i), p) then
match=true
exit function
end if
next i
match=false
exit function
elseif left(s,1)<>left(p,1) then ' chars different
match=false
exit function
else
s=mid(s,2)
p=mid(p,2)
end if
loop
end function
' main
if match(command(1), command(2)) then
print "1"
else
print "0"
end if
|
