make tests green

This commit is contained in:
Araq 2014-08-31 15:15:26 +02:00
commit 30823c1ce3
44 changed files with 415 additions and 403 deletions

View file

@ -14,10 +14,10 @@ proc mypos(sub, s: string, start: int = 0): int =
if i >= N:
result = -1
else:
while True:
while true:
if s[i] == sub[j]:
Inc(i)
Inc(j)
inc(i)
inc(j)
else:
i = i - j + 1
j = 0