Mercurial > octave

view test/bug-61105/nested_test_1.m @ 30239:120e878f343f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
mkdir.m: issue a warning if DIR already exists (bug #61338) * mkdir.m: When nargout==0, check status message and report a warning if "directory exists" message found.
author Rik <rik@octave.org>
date Wed, 13 Oct 2021 08:05:14 -0700
parents 55eeb7f0850b
children
line wrap: on
line source

function r = nested_test_1 (val)
  a = 3;
  b = 5;
  c = 7;
  function r = f1 (f, x)
    r = f(x) + a;
  endfunction
  function r = f2 (y)
    function r2 = f3 (z)
      r2 = z^2 + b*y;
    endfunction
    r = f1 (@f3, y) + c;
  endfunction
  r = f2 (val);
endfunction