Mercurial > octave
view test/bug-53579.tst @ 31543:72ef3d097059
tsearchn.m: Speed up performance (bug #63376)
tsearchn.m: Eliminate a subfunction and inline its contents,
eliminate ones() and replace with broadcasting, add input validation,
pass to a faster compiled function tsearch() where possible,
expand documentation. Cumulative speedup is some 20%.
author | Arun Giridhar <arungiridhar@gmail.com> |
---|---|
date | Fri, 25 Nov 2022 11:31:47 -0500 |
parents | 34617dd78f02 |
children | 332a6ccac881 |
line wrap: on
line source
%!function [raa, rbb, igaa, igbb] = sub1 (aa, bb) %! global aa bb %! aa = 1; %! raa = aa; %! rbb = bb; %! igaa = isglobal ("aa"); %! igbb = isglobal ("bb"); %!endfunction %!test <*53579> %! global aa bb %! assert (isglobal ("aa")); %! assert (isglobal ("bb")); %! aa = 3; %! xx = 5; %! [raa, rbb, igaa, igbb] = sub1 (aa, xx); %! assert (raa, 1); %! assert (rbb, []); %! assert (igaa); %! assert (igbb); %! assert (xx, 5); %! clear -global aa bb; # cleanup after test