Code:
const Doub *xa = &xx[jl], *ya = &yy[jl];
...
j = (Int)(pp % nhash);
...
Int k = ng ? garbg[--ng] : nn++ ;
...
for (;;) {
for (i=1;i<=n;i++) x[i]=xold[i]+alam*p[i];
*f=(*func)(x);
if (alam < alamin)
for (i=1;i<=n;i++) x[i]=xold[i];
*check=1;
return;
} else if (*f <= fold+ALF*alam*slope) return;
...
k = ng ? garbg[--ng] : nn++ ;
k != -1; k = next[k])
...
y=ya[ns--];
...
y += (dy=(2*(ns+1) < (mm-m) ? c[ns+1] : d[ns--]));
...
So etwas habe ich in meinen C++-Jahren geliebt. Ich musste mich bei der Rückkehr zu Pascal damals extrem umstellen
