乗算演算子を使用せずに、正の整数に対して最速（最高のbig-O）および最小の乗算アルゴリズムを記述します。加算、減算、論理関数（AND、OR、XOR、NOT）、ビットシフト、ビットローテーション、ビットフリップ/セット/クリア、ビットテストのみが許可されています。プログラムは、32ビットの結果を生成するために16ビットの数値を乗算できる必要があります。コンマ、スペース、または改行（選択）で区切られた標準入力で入力を受け取りますが、データの入力方法を明確にします。

入力/出力の例：

734 929
681886

C、84 83 78文字

m;main(a,b){for(scanf("%d%d",&a,&b);a;b+=b)a&1?m+=b:0,a>>=1;printf("%d\n",m);}

より読みやすい形式で

m;main(a,b)
{
    scanf("%d%d",&a,&b);
    while (a)
    {
        if (a&1)
           m+=b;
        a>>=1;
        b+=b;
    }
    printf("%d\n",m);
}

このアルゴリズムは、エチオピアの乗算またはロシアの農民の乗算としてよく知られています。アルゴリズムは次のとおりです。

1. 乗算する2つの数値をaとbとします。
2. aがゼロの場合、結果を分割して出力します。
3. aが奇数の場合、結果にbを追加します。
4. ハーフa、ダブルb。ステップ2に進みます。

APL（5）

改行で区切られた標準入力で入力を受け取ります。

+/⎕⍴⎕

Golfscript-12文字

~0\{1$+}*\;

ことに注意してください*ここではない乗算演算子は、それが二次利用を参照して、代わりに繰り返し演算子です、ここ。

Golfscript-27文字

農民の掛け算。最初に*があり、乗算がありますが、0または1のみです

~2base-1%{1&\..+\@*}%{+}*\;

これは31文字でオンで、まったく乗算されません。

~2base-1%{1&\..+\[0\]@=}%{+}*\;

Python、64文字

おそらく最も効率的ではありません（または最も準拠していますが、私は「追加」しています）。

a=int(raw_input())
print sum(a for i in range(int(raw_input())))

Ruby、30

->(a){Array.new(*a).inject:+}

GigaWatの回答に基づいています。

Golfscript-43

~\:@;0 1{.3$&{\@+\}{}if@@+:@;.+.3$>!}do;\;

農民の乗算の実装。あとでゴルフできるかも。

J、18 17文字

+/({.${:)".1!:1]3

入力はスペースで区切る必要があります。

Python、64文字

m=lambda x,n:0 if n==0 else x+m(x,n-1);print m(input(),input())

VBA、70文字

これは実際には多数の場合は非常に遅いですが、小さいです。スピードを改善しながらコードサイズを改善することができました。計算時間は、サイズだけでなく、引数の位置によって異なります。（つまり、1000、5000は約4秒で計算され、5000、1000は約19秒で計算されます）OPは高速と小型の両方をリストしているので、私はこれでうまくいくと考えました。入力は、カンマで区切られた2つの数値引数です。

Sub i(j,k)
For m=1 To j:n=n & String(k," "):Next
MsgBox Len(n)
End Sub

この長いバージョン（103文字）は、2つの可能な配置のうちの速い方で実行できるようにします。

Sub i(j,k)
If j<k Then a=j:b=k Else b=j:a=k
For m=1 To a:n=n & String(b," "):Next
MsgBox Len(n)
End Sub

Perl：52文字

これは古い質問ですが、Perlを表す必要があります。

perl -pl '($m,$n,$_)=split;$_+=$m&1&&$n,$m>>=1,$n<<=1while$m'

（これはバイナリアルゴリズムである。反復添加は小さいが、方法は、退屈します。）

このプログラムには意図しない機能が含まれています。入力行に3番目の数値が含まれている場合、プログラムは実際にA * B + Cを計算します。

サイズに最適化されたScalaのバリエーション：48文字

def m(a:Int,b:Int):Int=if(b==1)a else a+m(a,b-1)

少し速度を最適化：

def mul (a:Int, b:Int) : Int = {
  print (".")
  if (a == 1) b
  else if (a > b) mul (b, a)
  else if (a % 2 == 0) mul (a >> 1, b << 1) 
  else b + mul (a - 1, b) 
}

（a> b）の場合、（a、b）を交換して、より早く最後に​​到達します。mul（1023,31）を呼び出すと、そのコード行を省略した場合と比較して、11〜20ステップ異なります。

ゴルフ：95文字：

def m(a:Int,b:Int):Int=if(a==1)b
else if(a>b)m(b,a)
else if(a%2==0)m(a>>1,b<<1)
else b+m(a-1,b)

K、18 16

{#,/(!y),\:/:!x}

。

k){#,/(!y),\:/:!x}[4;20]
80
k){#,/(!y),\:/:!x}[13;21]
273
k){#,/(!y),\:/:!x}[3;6]
18

ルビー、35文字

p $*.map!(&:to_i).pop*$*.inject(:+)

これは、単なる関数ではなく、入出力を行うプログラムです。

.-(~/virt)-----------------------------------------------------------------------------------------------------------------------------------------------------(ice@distantstar)-
`--> wc -c golf.rb         
35 golf.rb
.-(~/virt)-----------------------------------------------------------------------------------------------------------------------------------------------------(ice@distantstar)-
`--> ruby ./golf.rb 734 929
681886

Ruby、35バイト

def x(a)Array.new(*a).inject :+end

使用法： x([123, 456]) #=> 56088

数値がARGVから読み取られる場合はおそらく短くなる可能性がありますが、それらが間違った形式（intではなく文字列）であるという不満があります。どんな提案も素晴らしいでしょう。

Mathematica 12

以下は、の#2インスタンスを合計したものです#1。

コード

#1~Sum~{#2}&

使用法

#1~Sum~{#2} &[734, 929]

(* out *)

681886

9文字？

プログラム・パラメータが、場合はa、b入力のために使用することができる、同じ結果を用いて達成することができる9つの文字。

a~Sum~{b}

VB11、101文字

   Dim m As Func(Of Integer, Integer, Integer, Integer) = Function(a, b, t) If(a = 0, t, m(a >> 1, b << 1, t + If(a Mod 2 = 1, b, 0)))