40 lines
690 B
Plaintext
40 lines
690 B
Plaintext
$ include "seed7_05.s7i";
|
|
|
|
const func integer: m (in integer: n) is forward;
|
|
|
|
const func integer: f (in integer: n) is func
|
|
result
|
|
var integer: res is 0;
|
|
begin
|
|
if n = 0 then
|
|
res := 1;
|
|
else
|
|
res := n - m(f(n - 1));
|
|
end if;
|
|
end func;
|
|
|
|
const func integer: m (in integer: n) is func
|
|
result
|
|
var integer: res is 0;
|
|
begin
|
|
if n = 0 then
|
|
res := 0;
|
|
else
|
|
res := n - f(m(n - 1));
|
|
end if;
|
|
end func;
|
|
|
|
const proc: main is func
|
|
local
|
|
var integer: i is 0;
|
|
begin
|
|
for i range 0 to 19 do
|
|
write(f(i) lpad 3);
|
|
end for;
|
|
writeln;
|
|
for i range 0 to 19 do
|
|
write(m(i) lpad 3);
|
|
end for;
|
|
writeln;
|
|
end func;
|