17 lines
567 B
Text
17 lines
567 B
Text
|
$ 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;
|