Encore un test un peu gore, désolé...

「これから俺の言う話は全部冗談ですから、本気にしないで下さい。」

http://wikiprejudices.org/, http://www.⁂.com
Tiens, c'est marrant, ça : [google]spartaaaaaaaaaaaaaaaaaans[/google]

cornacchia(p)=
{
  if(kronecker(-d,p)!=1,return(0),
  x=lift(sqrt(Mod(-d,p)));
  if(x<=p/2,x=p-x);
  z=p%x;
  until(x^2<p && p<=y^2,
    if(x!=0,w=x%z,w=0); y=x; x=z; z=w;);
  if(issquare((p-x^2)/d,&v),return([x,v]),0);
  );
}

Bref...