diff options
Diffstat (limited to 'tests/tpos.nim')
-rwxr-xr-x | tests/tpos.nim | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/tests/tpos.nim b/tests/tpos.nim deleted file mode 100755 index 114d39c05..000000000 --- a/tests/tpos.nim +++ /dev/null @@ -1,29 +0,0 @@ -# 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 |