Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
24
Task/Nested-function/Seed7/nested-function.seed7
Normal file
24
Task/Nested-function/Seed7/nested-function.seed7
Normal file
|
|
@ -0,0 +1,24 @@
|
|||
$ include "seed7_05.s7i";
|
||||
|
||||
const func string: makeList (in string: separator) is func
|
||||
result
|
||||
var string: itemList is "";
|
||||
local
|
||||
var integer: counter is 1;
|
||||
|
||||
const func string: makeItem (in string: item) is func
|
||||
result
|
||||
var string: anItem is "";
|
||||
begin
|
||||
anItem := counter <& separator <& item <& "\n";
|
||||
incr(counter);
|
||||
end func
|
||||
|
||||
begin
|
||||
itemList := makeItem("first") & makeItem("second") & makeItem("third");
|
||||
end func;
|
||||
|
||||
const proc: main is func
|
||||
begin
|
||||
write(makeList(". "));
|
||||
end func;
|
||||
Loading…
Add table
Add a link
Reference in a new issue