Факториалы

[antilamer]

Тут вот ushastyi сетует, что, мол, факториал на J медленно считается, а на хаскеле быстро.

Ну и всё понятно - вон, сами посмотрите (и не спрашивайте, как я это нашёл).

XF2(jtxtymes){A z;I an,*av,c,d,e,i,j,m=XBASE,n,*v,wn,*wv,*zv;
RZ(a&&w);
an=AN(a); av=AV(a); c=av[an-1];
wn=AN(w); wv=AV(w); d=wv[wn-1];
if(!c||!d)R xzero;
if(c==XPINF||c==XNINF||d==XPINF||d==XNINF)R vci(0

Алгоритм-то неоптимальный!

Кстати, кто может разгадать, что это за алгоритм вообще?