function [p,i] =computer_play (p)
    if bitxor(bitxor(p(1),p(2)),p(3))==0
%         p=[p1 p2 p3];
        i=find(p);
        i=i(1);
        p(i)=p(i)-1;
    else
        for i=1:3
            if p(i)==0          %
                continue        %
            end                 %
            for j=1:p(i)
                if bitxor(bitxor(p(1),p(2)),p(3))==0
                    return
                else
                    p(i)=p(i)-1;
                end
            end
            if bitxor(bitxor(p(1),p(2)),p(3))==0 
                return                              
            else
                p(i)=p(i)+j;
            end                                     
        end
    end
end