Update exercise1.hs

Queston 1 C update