Symbol Newtona: Różnice pomiędzy wersjami
| [wersja przejrzana] | [wersja nieprzejrzana] |
Usunięta treść Dodana treść
→Obliczanie symbolu Newtona: dodanie rekurencyjnej wersji prologowej |
|||
Linia 142:
WspNewtonaRek := WspNewtonaRek( n-1, k-1 ) + WspNewtonaRek( n-1, k );
end;
</pre>
Implementacja rekurencyjna bez użycia silni w [[Prolog (język programowania)|Prologu]]:
<pre>
symbolnewtona(N, K, fail) :- K > N, !.
symbolnewtona(K, K, 1) :- !.
symbolnewtona(N, 0, 1) :- !.
symbolnewtona(N, K, X) :- N1 is N-1, K1 is K-1, symbolnewtona(N1, K1, X1), symbolnewtona(N1, K, X2), X is X1 + X2, !.
</pre>
| |||