select the symbolic terms of an array

Question

is it possible to extract the symbolic variables from an array ?. For example:

s = {(1+0.1I)a*b*c,4*a*b*c,(0.5-2i)*j*k^3,0.88*b*d^2}

I would like to have another array that contains only the different symbolic terms, like this:

ss = {a*b*c,b*d^2,j*k^3}

After that, I would like to identify the position of each term

Thanks

Answer 1

Clear["Global`*"]

s = {(1 + 0.1 I) a*b*c, 4*a*b*c, (0.5 - 2 i)*j*k^3, 0.88*b*d^2};

ss = s /. {Complex[_, _] :> 1, Plus[_, __] :> 1,
    a_?NumericQ * z_ :> z} // Union

(* {a b c, b d^2, j k^3} *)

Position[s, #*_] & /@ ss

(* {{{1}, {2}}, {{4}}, {{3}}} *)