Mercurial > octave

view test/nest/persistent_nest.m @ 22761:708a4fcb7382 stable release-4-2-0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Version 4.2.0 released. * configure.ac: Bump version to 4.2.0. (OCTAVE_PATCH_VERSION): Set to 0. (OCTAVE_RELEASE_DATE): Update.
author John W. Eaton <jwe@octave.org>
date Sun, 13 Nov 2016 10:20:59 -0500
parents be18c9e359bf
children fc4bb4bd1d5e
line wrap: on
line source

# persistent_nest
function y = persistent_nest ()
  persistent x = 0;
  g;
  y = x;

  function g
    x = x + 1;
  end
end