Tulis algoritma perkalian tercepat (terbaik-O besar) dan terkecil untuk bilangan bulat positif, tanpa menggunakan operator perkalian. Anda hanya diperbolehkan penambahan, pengurangan, fungsi logis (DAN, ATAU, XOR, BUKAN), bit shift, bit rotate, bit flip / set / clear dan bit test. Program Anda harus mampu mengalikan angka 16-bit untuk menghasilkan hasil 32-bit. Ambil input pada stdin, dipisahkan dengan koma, spasi atau baris baru (pilihan Anda), tetapi jelaskan bagaimana cara memasukkan data.

Contoh input / output:

734 929
681886

C, 84 83 78 Karakter

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

Dalam bentuk yang lebih mudah dibaca

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

Algoritma ini lebih dikenal sebagai Multiplikasi Ethiopia atau Perkalian Petani Rusia. Berikut algoritmanya:

1. Biarkan dua angka yang akan dikalikan menjadi a dan b.
2. Jika a nol maka hancurkan dan cetak hasilnya.
3. Jika a aneh maka tambahkan b ke hasilnya.
4. Setengah, Ganda b. Goto Langkah 2.

APL (5)

Mengambil input pada input standar yang dipisahkan oleh baris baru.

+/⎕⍴⎕

Golfscript - 12 karakter

~0\{1$+}*\;

Harap dicatat bahwa di *sini bukan operator perkalian, ini bukan operator pengulangan, lihat penggunaan kedua di sini .

Golfscript - 27 karakter

Penggandaan petani. Ada * pertama di sana adalah kalikan, tetapi hanya dengan 0 atau 1

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

Di sini, pada 31 karakter yang tidak berlipat ganda sama sekali

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

Python, 64 karakter

Mungkin bukan yang paling efisien (atau yang paling sesuai, tapi saya "menambahkan", bukan?):

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

Ruby, 30

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

Berdasarkan jawaban GigaWat .

Golfscript - 43

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

Implementasi multiplikasi petani . Saya pikir saya mungkin bisa bermain golf lagi nanti.

J, 18 17 karakter

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

Input harus dipisahkan dengan ruang.

Python, juga 64 karakter

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

VBA, 70 karakter

Ini sebenarnya cukup lambat untuk jumlah besar, tetapi kecil. Saya berhasil meningkatkan ukuran kode sambil meningkatkan kecepatan. Waktu perhitungan bervariasi, tergantung pada posisi argumen - bukan hanya ukuran. (Yaitu 1000, 5000 menghitung dalam waktu sekitar 4 detik sementara 5000, 1000 menghitung dalam waktu sekitar 19). Karena OP mendaftar cepat dan kecil, saya pikir saya akan memilih yang ini. Input adalah dua arg numerik, dipisahkan koma.

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

Versi yang lebih panjang ini ( 103 karakter ) akan memastikan ini berjalan dengan lebih cepat dari dua pengaturan yang mungkin:

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 karakter

Ini adalah pertanyaan lama, tetapi Perl perlu diwakili:

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

(Ini adalah algoritma binary; Selain iterasi lebih kecil tetapi cara terlalu membosankan.)

Program ini mencakup fitur yang tidak disengaja: jika baris input Anda berisi angka ketiga, program akan benar-benar menghitung A * B + C.

Variasi dalam Scala, dioptimalkan untuk ukuran: 48 karakter

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

dioptimalkan untuk kecepatan sedikit:

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) 
}

Saya menukar (a, b) jika (a> b), untuk mencapai tujuan lebih cepat. Perbedaannya adalah 11 hingga 20 langkah, saat memanggil mul (1023,31), dibandingkan dengan menghilangkan baris kode itu.

golf: 95 karakter:

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

Ruby, 35 karakter

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

Ini adalah program , yang mengambil input dan output, bukan hanya fungsi.

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

Ruby, 35 byte

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

Pemakaian: x([123, 456]) #=> 56088

Mungkin bisa dipersingkat jika angka-angka dibaca dari ARGV, tetapi mengeluh tentang mereka menjadi format yang salah (string, bukan int). Setiap saran akan sangat bagus.

Mathematica 12

Berikut ini jumlah #2instance dari #1.

Kode

#1~Sum~{#2}&

Pemakaian

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

(* out *)

681886

9 karakter?

Jika parameter Program, a, b, dapat digunakan untuk input, hasil yang sama dapat dicapai dengan 9 karakter .

a~Sum~{b}

VB11, 101 Chars

   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)))