Subfactorial FIXED by zubenalt

-module m.
-export [m/0].
m()->io:format("1\n0\n"),s(2,0,1).
s(51,_,_)->ok;s(N,I,J)->M=(N-1)*(I+J),io:format("~p~n",[M]),s(N+1,M,I).

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page