function [ nowy, R ] = Horner( w, d )
nowy = w(1);
for i = 2:size(w)(2)-1
  nowy(i) = nowy(i-1)*d + w(i);
  end
  R = nowy(size(w)(2)-1)*d + w(size(w)(2));
end

%!test
%! W = [2,0,-4,1,-2,5];
%! B = 2;
%! assert(Horner(W,B),[2,4,4,9,16],[37])