Mercurial > octave

view test/nest/recursive_nest2.m @ 32060:1203a2d81a42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add BIST tests for Matlab compatibility for functions which accept negative dimensions. * data.cc (Fones, Finf, Feps, Feye): Add BIST test for negative dimensions. * rand.cc (Frand): Add BIST test for negative dimensions. * ov-cell.cc (Fcell): Add BIST test for negative dimensions.
author Rik <rik@octave.org>
date Wed, 26 Apr 2023 16:26:32 -0700
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