Mercurial > hg > octave-lyh

comparison scripts/set/intersect.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 5edee330d4cb
children be55736a0783
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
59 c = c(ii,:); 59 c = c(ii,:);
60 else 60 else
61 c = [a(:); b(:)]; 61 c = [a(:); b(:)];
62 [c, ic] = sort (c); ## [a(:);b(:)](ic) == c 62 [c, ic] = sort (c); ## [a(:);b(:)](ic) == c
63 if (iscellstr (c)) 63 if (iscellstr (c))
64 ii = find (strcmp (c(1:end-1), c(2:end))); 64 ii = find (strcmp (c(1:end-1), c(2:end)));
65 else 65 else
66 ii = find (c(1:end-1) == c(2:end)); 66 ii = find (c(1:end-1) == c(2:end));
67 endif 67 endif
68 c = c(ii); 68 c = c(ii);
69 endif 69 endif
70 70
71 if (nargout > 1) 71 if (nargout > 1)