[半條龍]

A = [5 6 7 8 9;4 5 6 7 8;1 2 3 4 5;6 7 8 9 1;8 9 4 5 5;8 9 6 6 6;1 2 5 5 8;7 8 9 9 7;4 6 7 8 9;5 5 5 6 9;2 2 4 5 6;3 5 4 6 9;7 8 9 5 4;9 8 7 5 6;6 7 8 9 9;7 8 9 9 9;1 5 7 9 7;4 5 6 6 4];
B = [1;5;7];
C =[1001;1002;1003;2001;2002;2003;3001;3002;3003;4001;4003;5001;5003;6001;6002;6003;7001;7002];
n = floor(log10(C(1))) + 1;
num=mod(floor(C./10.^(n-1)),10);
D=A;
D(ismember(num,B),2:end)=0;