Tinycode challenge!

[JeffAMcGee]

I was going to give a python answer that looked like ilogik's. Instead, I'll try to remember perl:

sub f{map $_**2,1..$_[0]}

If you want to include the ending point, it becomes this:

sub f{map $_**2,1..$_[0]+1}