-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