langs a-z

Task/Ethiopian-multiplication/Pascal/ethiopian-multiplication.pascal

@@ -0,0 +1,32 @@
+program EthiopianMultiplication;
+
+  function Double(Number: Integer): Integer;
+  begin
+    Double := Number * 2
+  end;
+
+  function Halve(Number: Integer): Integer;
+  begin
+    Halve := Number div 2
+  end;
+
+  function Even(Number: Integer): Boolean;
+  begin
+    Even := Number mod 2 = 0
+  end;
+
+  function Ethiopian(NumberA, NumberB: Integer): Integer;
+  begin
+    Ethiopian := 0;
+    while NumberA >= 1 do
+	begin
+	  if not Even(NumberA) then
+	    Ethiopian := Ethiopian + NumberB;
+	  NumberA := Halve(NumberA);
+	  NumberB := Double(NumberB)
+	end
+  end;
+
+begin
+  Write(Ethiopian(17, 34))
+end.