Excluded Digits from vector

vector=[1 2 5 13 55 23 15],excluded dig=5 then out=[1 2 13 23] ,another example vector=[3 24 7 9 18 55 67 71],excluded dig=7 then out=[3 24 9 18 55]

[the cyclist]

I posted this as a Cody problem . As you may know, Cody rewards brevity of code over all other things.

Answer 1

[the cyclist]

I expect there is a much cleaner method, but here is one that works:

vector = [1 2 5 13 55 23 15];
exDigit = 5;

v = vector;
hasDigit = false(1,numel(v));

while max(v>=1)
    hasDigit = hasDigit | mod(v,10)==exDigit;
    v = floor(v/10);
end

new_vector = vector(not(hasDigit))

Answer 2

[Guillaume]

str2num(regexprep(num2str(vector), sprintf('\\<\\d*%d\\d*\\>', digit), ''))

Is a neat one liner but may not be faster than the cyclist answer due to the conversion to/from string and the use of regular expression.

[Pierre Benoit]

Yeah, I used a similar method and found that his method was around 330 times faster.

[Guillaume]

Another potential method, faster than regexp but still slower than the cyclist's:

vector(arrayfun(@(n) all(num2str(n)-'0' ~= digit), vector))

[the cyclist]

I stole this solution and posted it to Cody. As I write this, it is the leader.

[Guillaume]

What? No fair! I should so rightly be the leader! ;)

Ha! Beaten with a variant on my regexp one-line :)

Answer 3

[the cyclist]

Here is a solution that came out of Cody. The inputs to the function are the vector v and the excluded digit d.

function ans = digitRemove(v,d)

I = [];

for i = 1 : length(v)
    if ~any(ismember( num2str(v(i)) - '0' , d))
        I = [I i];
    end
end

v(I);
end