Ethiopian multiplication: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,714: / Line 1,714: @@
         temp := temp + plicand;
       end if;
+      exit when plier <= 1;
       plier := half(plier);
       plicand := double(plicand);
-      exit when plier <= 1;
     end loop;
-    temp := temp + plicand;
     return temp;