6.33 Making condition as pattern

By Bob Hanlon from math group:

Clear[x, $PrePrint] 
expr = {E^x, x, x^2, Log[x]}; 
Position[expr, _?( !PolynomialQ[#1, x] & ), 1] 
 
Out[146]= {{1}, {4}}