Mercurial > hg > octave-lyh
diff scripts/set/intersect.m @ 10549:95c3e38098bf
Untabify .m scripts
author | Rik <code@nomad.inbox5.com> |
---|---|
date | Fri, 23 Apr 2010 11:28:50 -0700 |
parents | 5edee330d4cb |
children | be55736a0783 |
line wrap: on
line diff
--- a/scripts/set/intersect.m +++ b/scripts/set/intersect.m @@ -61,9 +61,9 @@ c = [a(:); b(:)]; [c, ic] = sort (c); ## [a(:);b(:)](ic) == c if (iscellstr (c)) - ii = find (strcmp (c(1:end-1), c(2:end))); + ii = find (strcmp (c(1:end-1), c(2:end))); else - ii = find (c(1:end-1) == c(2:end)); + ii = find (c(1:end-1) == c(2:end)); endif c = c(ii); endif