19 lines
299 B
Text
19 lines
299 B
Text
function r = F(n)
|
|
for i = 1:length(n)
|
|
if (n(i) == 0)
|
|
r(i) = 1;
|
|
else
|
|
r(i) = n(i) - M(F(n(i)-1));
|
|
endif
|
|
endfor
|
|
endfunction
|
|
|
|
function r = M(n)
|
|
for i = 1:length(n)
|
|
if (n(i) == 0)
|
|
r(i) = 0;
|
|
else
|
|
r(i) = n(i) - F(M(n(i)-1));
|
|
endif
|
|
endfor
|
|
endfunction
|