Simplifying expression

Question

I have the following expression:

(1 - a) (H - 3 L*r + L)

and I would like to `simplify' this to

(1 - a) (H - L(3 r +1))

I thought that maybe Simplify or Collect could work, but to no avail.

What's the right function to achieve this?

Answer 1

You can map HornerForm to each factor:

expr = (1 - a) (H - 3 L*r + L); 

HornerForm /@ expr

(1 - a) (H + L (1 - 3 r))