view test/nest/persistent_nest.m @ 18980:50fccff7651c gui-release

maint: Periodic merge of stable to gui-release.
author John W. Eaton <jwe@octave.org>
date Sun, 03 Aug 2014 19:39:34 -0400
parents be18c9e359bf
children
line wrap: on
line source

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

  function g
    x = x + 1;
  end
end