Initial import

tests/tpos.nim

@@ -0,0 +1,32 @@
+# test this particular function
+
+import
+  io
+
+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