Product of columns selected by starts_with()

Question

I am wondering if there is an efficient way or alternative way to compute the row wise product of a selection of columns in dplyr format. I know one way to do it (see below), bu