Programmation GP
forvec
Au lieu de
s3(n)=
{
my(m=sqrtint(n));
for (i=1,m,
for (j=1,m,
for (k=1,m,
if (i^2+j^2+k^2==n,
return([i,j,k])))));
}
? s3(12345)
%2 = [4,77,80]