Mercurial > octave
view test/nest/recursive_nest2.m @ 28202:6c88000fed48 stable
add test files accidentally omitted from previous change 7567413e7246
* test/nest/script_nest_2.m, test/nest/script_nest_script_2.m:
New files.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Sat, 11 Apr 2020 08:19:45 -0400 |
parents | 683f9c39da06 |
children | c68b077c8fd6 |
line wrap: on
line source
# recursive_nest2.m function x = recursive_nest2 () x = B (20); function v = B (n) Y = 0; BB (n); C; v = Y; function BB (m) if m > 0 Y = Y + 1; BB(m - 1); C; end endfunction endfunction function C Y = 0; endfunction endfunction