summary refs log tree commit diff stats
path: root/tests/tpos.nim
diff options
context:
space:
mode:
Diffstat (limited to 'tests/tpos.nim')
-rwxr-xr-xtests/tpos.nim29
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