Mercurial > octave
view test/nest/recursive_nest2.m @ 31199:8bd9b64aeb01
maint: Merge stable to default.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Wed, 24 Aug 2022 17:19:26 +0200 |
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