blob: 114d39c05a53c78a879f2eae9ba5eb521f1649bb (
plain) (
tree)
|
|
# test this particular function
proc mypos(sub, s: string, start: int = 0): int =
var
i, j, M, N: int
M = sub.len
N = s.len
i = start
j = 0
if i >= N:
result = -1
else:
while True:
if s[i] == sub[j]:
Inc(i)
Inc(j)
else:
i = i - j + 1
j = 0
if (j >= M) or (i >= N): break
if j >= M:
result = i - M
else:
result = -1
var sub = "hallo"
var s = "world hallo"
write(stdout, mypos(sub, s))
#OUT 6
|