使用map将列表中的元素替换为(x-y)*(x-y)，其中y是初始元素

I have a bit of homework to do and I am a complete newbie to Haskell. The question I am having trouble with is to write a function which when given an integer I have a bit of homework to do and I am a compl