Solution

scalarMult(_,[],[]).
scalarMult(N,[InHead|InTail],[OutHead|OutTail]) :-
              OutHead is N * InHead,
              scalarMult(N,InTail,OutTail).
    

Back to the exercise.