21 lines
417 B
Plaintext
21 lines
417 B
Plaintext
test: procedure options (main);
|
|
|
|
M: procedure (n) returns (fixed) recursive; /* 8/1/2010 */
|
|
declare n fixed;
|
|
if n <= 0 then return (0);
|
|
else return ( n - F(M(n-1)) );
|
|
end M;
|
|
|
|
F: procedure (n) returns (fixed) recursive;
|
|
declare n fixed;
|
|
if n <= 0 then return (1);
|
|
else return ( n - M(F(n-1)) );
|
|
end F;
|
|
|
|
declare i fixed;
|
|
|
|
do i = 1 to 15;
|
|
put skip list ( F(i), M(i) );
|
|
end;
|
|
end test;
|