12 lines
505 B
Plaintext
12 lines
505 B
Plaintext
/* Let s be one string, t be the other that might exist within s. */
|
|
/* 8-1-2011 */
|
|
k = index(s, t);
|
|
if k = 0 then put skip edit (t, ' is nowhere in sight') (a);
|
|
else if k = 1 then
|
|
put skip edit (t, ' starts at the beginning of ', s) (a);
|
|
else if k+length(t)-1 = length(s) then
|
|
put skip edit (t, ' is at the end of ', s) (a);
|
|
else put skip edit (t, ' is within ', s) (a);
|
|
|
|
if k > 0 then put skip edit (t, ' starts at position ', k) (a);
|