32 lines
597 B
R
32 lines
597 B
R
myunion <- function(A, B) {
|
|
stop("needs translation")
|
|
# function C = myunion(A,B)
|
|
# % MYUNION Union of two sets of positive integers (much faster than built-in union)
|
|
# % C = myunion(A,B)
|
|
|
|
# if isempty(A)
|
|
# ma = 0;
|
|
# else
|
|
# ma = max(A);
|
|
# end
|
|
|
|
# if isempty(B)
|
|
# mb = 0;
|
|
# else
|
|
# mb = max(B);
|
|
# end
|
|
|
|
# if ma==0 & mb==0
|
|
# C = [];
|
|
# elseif ma==0 & mb>0
|
|
# C = B;
|
|
# elseif ma>0 & mb==0
|
|
# C = A;
|
|
# else
|
|
# %bits = sparse(1, max(ma,mb));
|
|
# bits = zeros(1, max(ma,mb));
|
|
# bits(A) = 1;
|
|
# bits(B) = 1;
|
|
# C = find(bits);
|
|
# end
|
|
}
|