Mercurial > octave
view test/nest/recursive_nest.m @ 28207:ab60e78d235c
maint: merge stable to default.
author | Rik <rik@octave.org> |
---|---|
date | Sat, 11 Apr 2020 16:06:19 -0700 |
parents | be18c9e359bf |
children | c68b077c8fd6 |
line wrap: on
line source
# recursive_nest.m function x = recursive_nest () global recursive_nest_inc = 1 x = 5; f (20); function f (n) if n > 0 x = x + recursive_nest_inc; f (n - 1); end endfunction endfunction