Mercurial > octave-nkf
view test/nest/recursive_nest.m @ 20176:42bb3a776c9f stable rc-4-0-0-4
maint: Bump version number for 4.0.0-rc4.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Tue, 28 Apr 2015 12:17:57 -0400 |
parents | be18c9e359bf |
children |
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