Mercurial > octave
view test/bug-52851/script1.m @ 31602:16fb0e3e6aab
maint: Merge stable to default.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 01 Dec 2022 15:04:44 -0500 |
parents | d45d1b4bb919 |
children |
line wrap: on
line source
1; %script identifier function r = caller (fun, num) persistent funarray if (isempty (fun)) r = funarray(num).fun (); else if (isempty (funarray)) funarray(1).fun = fun; else funarray(num).fun = fun; endif endif endfunction function r = computation () r = 1; endfunction caller (@computation, 1); r11 = caller ([], 1); function r = computation () r = 2; endfunction caller (@computation, 2); r21 = caller ([], 1); r22 = caller ([], 2);