as-pattern and list pattern matching question

Question

Exercise 2 of this pdf reads:

Once we have the digits in the proper order, we need to double every other one. Define a function doubleEveryOther ::