Anonymous user
Ethiopian multiplication: Difference between revisions
→{{header|TUSCRIPT}}
(→{{header|PARI/GP}}: Marked incorrect.) |
|||
Line 2,304:
=={{header|TUSCRIPT}}==
<lang tuscript>
$$ MODE TUSCRIPT
Line 2,319 ⟶ 2,318:
SET sum=0
SECTION
SET even=MOD(nr1,2)
IF (even==0) THEN
Line 2,331 ⟶ 2,330:
ENDSECTION
SECTION halve_i
ENDSECTION
SECTION double_i
nr2=nr2*2
ENDSECTION
DO checkifeven
LOOP
DO halve_i
▲SET nr1=nr1/2, nr2=nr2*2
DO
DO checkifeven
IF (nr1==1) EXIT
ENDLOOP
Line 2,345 ⟶ 2,353:
Output:
<pre>
17 34 kept
8 68 struck
|