P1 russische Bauernmultiplikation
2005-03-20 00:21
Anonymer User
rbm(F1,1,F1).
rbm(F1,F2,R) :- F2>1, odd(F2), F21 is F2-1,
rbm(F1,F21,R1), R is R1+F1.
rbm(F1,F2,R) :- F2>1, even(F2), F11 is F1*2,
F21 is F2/2, rmb(F11,F21,R).
rbm(F1,F2,R) :- F2>1, odd(F2), F21 is F2-1,
rbm(F1,F21,R1), R is R1+F1.
rbm(F1,F2,R) :- F2>1, even(F2), F11 is F1*2,
F21 is F2/2, rmb(F11,F21,R).
9 ?- rbm(4,7,X).
ERROR: Undefined procedure: rmb/3
ERROR: However, there are definitions for:
ERROR: rbm/3
Exception: (8) rbm(4, 7, _G253) ? abort