function [p,i] =computer_play (p)
    if bitxor(bitxor(p(1),p(2)),p(3))==0
        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