Mercurial > octave
view test/nest/recursive_nest2.m @ 31554:1d410367802c
maint: Merge stable to default.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Sat, 26 Nov 2022 18:51:28 +0100 |
parents | fc4bb4bd1d5e |
children |
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