|
|
От: |
Mamut
|
http://dmitriid.com |
| Дата: | 22.12.10 09:48 | ||
| Оценка: | |||
M>>factorial( N ) ->
M>> factorial( N, 1 ).
M>>% tail-recursive:
M>>factorial( 0, Product ) ->
M>> Product;
M>>factorial( N, Product ) ->
M>> factorial( N - 1, N * Product ).
M>>PC_>Sum:=1
PC_>Sum*=(I<1048576?I)
PC_>
I и J это счетчики, от нуля до хз сколько.
