11 lines
333 B
Text
11 lines
333 B
Text
$ include "seed7_05.s7i";
|
|
|
|
const proc: main is func
|
|
local
|
|
const string: stri is "upraisers";
|
|
begin
|
|
writeln("Full string: " <& stri);
|
|
writeln("Without first: " <& stri[2 ..]);
|
|
writeln("Without last: " <& stri[.. pred(length(stri))]);
|
|
writeln("Without both: " <& stri[2 .. pred(length(stri))]);
|
|
end func;
|