17 lines
567 B
Plaintext
17 lines
567 B
Plaintext
$ include "seed7_05.s7i";
|
|
|
|
const proc: main is func
|
|
local
|
|
var integer: position is 0;
|
|
begin
|
|
writeln(startsWith("abcd", "ab")); # write TRUE
|
|
writeln(endsWith("abcd", "zn")); # write FALSE
|
|
writeln(pos("abab", "bb") <> 0); # write FALSE
|
|
writeln(pos("abab", "ab") <> 0); # write TRUE
|
|
writeln(pos("abab", "bb")); # write 0
|
|
position := pos("abab", "ab");
|
|
writeln(position); # position is 1
|
|
position := pos("abab", "ab", succ(position));
|
|
writeln(position); # position is 3
|
|
end func;
|