mirror of
https://github.com/nim-lang/Nim.git
synced 2025-12-30 09:54:49 +00:00
36 lines
569 B
Nim
36 lines
569 B
Nim
discard """
|
|
file: "tpos.nim"
|
|
output: "6"
|
|
"""
|
|
# 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 = "hello"
|
|
var s = "world hello"
|
|
write(stdout, mypos(sub, s))
|
|
#OUT 6
|
|
|
|
|