Mercurial > octave
view test/bug-52851/script1.m @ 31230:6646f2b5a3d1
lcm.m: Emit warnings when results not exact (Bug #32924)
author | Arun Giridhar <arungiridhar@gmail.com> |
---|---|
date | Sat, 17 Sep 2022 04:22:38 -0400 |
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);