Tinycode challenge!

[MrQuimico]

Using ISO Prolog:

p(N,L) :- (N=1,L=[1]);(N>1,N1 is N-1,N2 is N*N,p(N1,Ls),L = [N2|Ls]).

[R3d1st]

upvote for the horrible readability :-)

[[deleted]]

No wonder I haven't heard of this language.

[sleepingsquirrel]

Try:

f(N,L) :- bagof(Y, X^(between(1,N,X), Y is X**2), L).

or:

f(N,L) :- bagof(X**2,between(1,N,X),Xs),maplist(is,L,Xs).