Tulis program yang menampilkan pada layar jumlah pembagi angka (1 ≤ N ≤ 100) yang dimasukkan oleh pengguna dalam kisaran 1 hingga N.

Ini adalah OEIS A000203 .

Contoh:

Input : 7

7 / 1 = 7
7 / 7 = 1

7 + 1 = 8

Output: 8

Input: 15

15 / 1 = 15
15 / 3 = 5
15 / 5 = 3
15 / 15 = 1

15 + 5 + 3 + 1 = 24

Output: 24

Input: 20

20 / 1 = 20
20 / 2 = 10
20 / 4 = 5
20 / 5 = 4
20 / 10 = 2
20 / 20 = 1

20 + 10 + 5 + 4 + 2 + 1 = 42

Output: 42

Input: 1

1 / 1 = 1

Output: 1

Input: 5

5 / 1 = 5
5 / 5 = 1

5 + 1 = 6

Output: 6

05AB1E , 2 byte

ÑO

Cobalah online!

Bagaimana?

Ñ    Divisors
 O   Sum

x86-64 Kode Mesin, 23 byte

89 F9 89 FE EB 0D 89 F8 99 F7 F1 85 D2 99 0F 44 D1 01 D6 E2 F1 96 C3

Byte kode di atas mendefinisikan fungsi yang menerima integer tunggal, N, dan mengembalikan jumlah kelipatannya sebagai hasilnya.

Parameter tunggal dilewatkan dalam EDIregister, konsisten dengan System V AMD64 ABI (seperti yang digunakan pada sistem * nix-style). Hasilnya dikembalikan dalam EAXregister, seperti semua konvensi pemanggilan x86.

Algoritma ini sangat mudah, mirip dengan banyak kiriman lainnya dalam bahasa lain. Kami mengulang N kali, setiap kali menghitung modulo dan menambahkannya ke total berjalan kami.

Mnemonik perakitan tidak dikumpulkan:

; unsigned SumOfMultiples(unsigned N  /* (EDI) */)
    mov     ecx, edi      ; make copy of input N, to be used as our loop counter
    mov     esi, edi      ; make copy of input N, to be used as our accumulator
    jmp     CheckEnd      ; jump directly to 'CheckEnd'
AddModulo:
    mov     eax, edi      ; make copy of input N, to be used as input to DIV instruction
    cdq                   ; short way of setting EDX to 0, based on EAX
    div     ecx           ; divide EDX:EAX by ECX, placing remainder in EDX
    test    edx, edx      ; test remainder, and set ZF if it is zero
    cdq                   ; again, set EDX to 0, without clobbering flags
    cmovz   edx, ecx      ; set EDX to ECX only if remainder was zero (EDX = ZF ? 0 : ECX)
    add     esi, edx      ; add EDX to accumulator
CheckEnd:
    loop    AddModulo     ; decrement loop counter (ECX), and keep looping if it != 0
    xchg    eax, esi      ; move result from accumulator (ESI) into EAX
    ret                   ; return, with result in EAX

Cobalah online!

Sepertinya memang ada cara untuk membuatnya lebih pendek, tapi aku tidak bisa melihatnya. Komputasi modulo pada x86 membutuhkan sedikit kode, karena Anda melakukannya menggunakan instruksi DIV(atau IDIV), dan keduanya menggunakan register input tetap (EDX dan EAX), nilai-nilai yang menjadi musnah (karena mereka menerima hasil, sisanya dan bagi hasil, masing-masing).

Satu-satunya trik nyata di sini adalah yang golf standar:

• Saya telah menyusun kode dengan cara yang agak tidak biasa sehingga saya dapat menggunakan LOOPinstruksi gaya CISC , yang pada dasarnya hanya kombinasi DEC+ JNZdengan ECXregister sebagai operan implisit.
• Saya menggunakan XCHGdi akhir bukan MOVkarena yang pertama memiliki 1-byte encoding khusus ketika EAXadalah salah satu operan.
• Saya gunakan CDQuntuk nol EDXdalam persiapan untuk divisi, meskipun untuk divisi tanpa tanda tangan Anda biasanya hanya akan nol menggunakan XOR. Namun, XORselalu 2 byte, sementara CDQhanya 1 byte. Saya menggunakan CDQlagi untuk kedua kalinya di dalam loop ke nol EDX, sebelum CMOVZinstruksi. Ini berfungsi karena saya dapat dijamin bahwa hasil bagi divisi (in EAX) selalu tidak ditandatangani, jadi perpanjangan tanda masuk EDXakan ditetapkan EDXsama dengan 0.

C (gcc), 45 byte

i,s;f(n){for(s=i=n;--i;)s+=n%i?0:i;return s;}

Cobalah online!

Japt , 3 byte

â)x

Cobalah online!

Brachylog , 2 byte

f+

Cobalah online!

Penjelasan

f       Factors
 +      Sum

Mathematica, 14 byte

Tr@Divisors@#&   

atau jawaban oleh @Loki

Mathematica, 17 byte

DivisorSum[#,#&]&

C, C ++, C #, D, Java, 65 62 byte

int d(int n){int s=0,i=1;for(;i<=n;++i)s+=n%i>0?0:i;return s;}

Ini bekerja di semua 5 bahasa pemrograman tesis karena kesamaan.

Optimasi C, C ++ dan D: 62 60 byte

Dalam C ++ dan D, integer dikonversi secara implisit menjadi boolean (Nol => salah, Bukan Nol => benar), jadi Anda tidak perlu memiliki !=0

int d(int n){int s=0,i=1;for(;i<=n;++i)s+=n%i?0:i;return s;}

D optimasi: sistem template golf, 55 byte

T d(T)(T n){T s,i=1;for(;i<=n;++i)s+=n%i?0:i;return s;}

Kode untuk diuji :

C:

printf("%d %d %d %d %d", d(7), d(15), d(20), d(1), d(5));

C ++:

std::cout << d(7) << ' ' << d(15) << ' ' << d(20) << ' ' << d(1) << ' ' << d(5);

C #:

class FindSum
{
    int d(int n) { int s = 0, i = 1; for (; i <= n; ++i) s += n % i > 0 ? 0 : i; return s; }

    static void Main(string[] args)
    {
        var f = new FindSum();
        Console.WriteLine(string.Format("{0}, {1}, {2}, {3}, {4}", f.d(7), f.d(15), f.d(20), f.d(1), f.d(5)));
    }
}

D:

writeln(d(7));
writeln(d(15));
writeln(d(20));
writeln(d(1));
writeln(d(5));

Jawa:

public class FindSum {
    int d(int n){int s=0,i=1;for(;i<=n;++i)s+=n%i>0?0:i;return s;}

    public static void main(String[] args) {
        FindSum f = new FindSum();
        System.out.println(String.format("%d, %d, %d, %d, %d", f.d(7), f.d(15), f.d(20), f.d(1), f.d(5)));
    }
}

Shnap , 44 43 byte

-1 sampai jumpa terima kasih kepada Tn. Xcoder (lol saya kalah dalam bahasa saya sendiri)

 $n return:{s=0for d:range(n+1)if n%d<1s+=d}

Ini adalah fungsi ( $memulai fungsi dalam Shnap).

Cobalah online!

Penjelasan:

$ n                        //Start function with parameter n
    return: {              //Technically, we are returning a scope-block, which evaluates to the last statement run
        s = 0              //Our result
        for d : range(n+1) //For each value in the iterator range(n+1)
            if n % d < 1  // If n is divisible by d
                s += d     // Add d to the sum
                           // Since (s += d) returns (s + d), and a scope-block returns the last run statement, this will be the last statement and equal to our result
    }

Tidak bersaing, 19 byte

Setelah banyak pembaruan bahasa, ini sekarang dapat dikurangi menjadi 19 byte:

$n=>sum(factors(n))

Cobalah online!

Python, 44 byte

lambda k:sum(i*(k%i<1)for i in range(1,1+k))

• Berkat Stephen, simpan 1 byte dengan menghapus spasi.
• Terima kasih kepada Jonathan Frech, simpan 1 byte lagi dengan mengubah jika akan berlipat ganda.

J, 23 byte

[:+/](([:=&0]|[)#])1+i.

Cobalah online!

Untuk penggemar J, ada solusi 13 byte yang pintar : >:@#.~/.~&.q:tapi karena itu bukan penemuan saya, saya tidak mempostingnya sebagai jawaban resmi saya.

Solusi saya sendiri cukup menyaring 1..n, menemukan pembagi, lalu menjumlahkannya. Inti dari itu adalah garpu diad

](([:=&0]|[)#])

Perhatikan bahwa dalam konteks ini ]adalah 1..n, dan [adalah n itu sendiri. Karenanya ]|[adalah sisa ketika membagi setiap elemen dari 1..n menjadi n, dan =&0memberi tahu Anda jika mereka sama dengan 0.

Java (OpenJDK 8) , 53 51 byte

n->{int s=0,i=0;for(;i++<n;)s+=n%i<1?i:0;return s;}

Cobalah online!

Haskell , 30 byte

f n=sum[i|i<-[1..n],n`mod`i<1]

Cobalah online!

MATL , 6 byte

t:\~fs

Cobalah online!

-4 byte terima kasih kepada @LuisMendo

10 byte

Solusi saya sebelumnya menggunakan loop

:"G@\~@*vs

Cobalah online!

3 byte

Menggunakan built-in

Z\s

Cobalah online!

Javascript, 54 44 byte

n=>[...Array(x=n)].reduce(y=>y+!(n%x)*x--,0)

Disimpan 10 byte berkat Shaggy

Cobalah online!

const f = n=>[...Array(x=n)].reduce(y=>y+!(n%x)*x--,0)

console.log(f(7))
console.log(f(15))
console.log(f(20))
console.log(f(1))
console.log(f(5))

Brain-Flak , 96 byte

((({})<>){<(([()]{})){<>(({})(<()>))<>{(({})){({}[()])<>}{}}{}<>([{}()]({})){((<{}{}>))}}{}>{}})

Cobalah online!

Penjelasan:

_{Sekarang ketinggalan jaman dengan perbaikan.}

Inti dari algoritma ini adalah:

({}(<>))<>{(({})){({}[()])<>}{}}{}<>([{}()]({})) turns |N, M...| into |N mod M, M...|
{((<{}{}>))} if the top of stack is not zero, replace it and the second with zero

Itu adalah modifikasi pada mod yang akan memberi kita Mjika itu adalah faktor Ndan 0sebaliknya. Kode lengkapnya ada di bawah ini.

((({})<>) place input, N on both stacks
{ Loop to find factors
 <
  (([()]{})) Decrement and Duplicate; get next factor to check
  { if not zero
   (<>({})<>) Copy N from other stack
   ({}(<>))<>{(({})){({}[()])<>}{}}{}<>([{}()]({})){((<{}{}>))} Code explained above
  }
  {} drop the zero
 >
 {} add the factor
}) push the sum

R , 31 26 byte

function(N)(x=1:N)%*%!N%%x

Cobalah online!

Mengembalikan 1x1matriks.

Menghitung !N%%xpeta elemen ddari 1:Noleh:d->(1 if d divides N, 0 otherwise)

Maka x%*%x!N%%xadalah produk matriks 1:Nyang hasil dalam jumlah xmana !N%%xadalah 1. Rapi! Secara teknis pelabuhan Luis Mendo jawaban Oktaf tetapi saya hanya melihat itu setelah saya memikirkan hal ini.

Angka R +, 14 byte

numbers::Sigma

Cobalah online!

JavaScript, 31 byte

f=(n,i=n)=>i&&!(n%i)*i+f(n,i-1)

Pari / GP , 5 byte

sigma

Cobalah online!

Python 2 , 41 byte

f=lambda n,i=1:i<=n and(n%i<1)*i+f(n,i+1)

Cobalah online!

VBA (Excel), 73 byte

a=Cells(1,1)
x=1
While x<=a
If a Mod x = 0 Then b=b+x
x=x+1
Wend
MsgBox b

Pyth , 6 byte

s*M{yP

Coba di sini!

Pyth tidak memiliki built-in untuk pembagi, jadi saya pikir ini masuk akal.

Penjelasan

s * M {yP - Program lengkap dengan input implisit.

     P - Faktor utama input.
    y - Kekuatan dari faktor utamanya.
   {- Deduplicate.
 * M - Peta dengan perkalian.
s - Jumlah.
          - Secara implisit menampilkan hasilnya.

Mengingat 20, misalnya, inilah yang dilakukan program kami setelah setiap instruksi:

• P: [2, 2, 5].

• y: [[], [2], [2], [5], [2, 2], [2, 5], [2, 5], [2, 2, 5]].

• {: [[], [2], [5], [2, 2], [2, 5], [2, 2, 5]].

• *M: [1, 2, 5, 4, 10, 20].

• s: 42.

Ohm v2 , 2 byte

VΣ

Cobalah online!

Ini cukup jelas:

V - Pembagi.
 Σ - Jumlah

Sekam , 5 byte

ṁΠuṖp

Cobalah online!

Bagaimana?

ṁΠuṖp - Program lengkap, input implisit.

     p - Faktor prima.
    Ṗ - Powerset.
   u - Hapus duplikat.
ṁΠ - Dapatkan produk dari setiap daftar, jumlah dan output secara implisit.

Terima kasih kepada Zgarb untuk sarannya dalam obrolan!

Oktaf , 20 byte

@(n)~mod(n,t=1:n)*t'

Cobalah online!

RProgN 2 , 2 byte

ƒ+

Dijelaskan

ƒ+
ƒ   # Factorize
 +  # Sum

Sepele, tetapi merasa perlu diposting.

Cobalah online!

Perl 5 , 35 + 1 (-p) = 36 byte

$\+=($n%$_==0)&&$_ for 1..($n=$_)}{

Cobalah online!

Utilitas Bash + GNU, 36

bc<<<`seq -f"n=%g;a+=n*!$1%%n;" $1`a

Cobalah online .

Pure Bash, 41

for((;++i<=$1;a+=$1%i?0:i))
{
:
}
echo $a

Cobalah online .

Saya pertama kali mencoba jawaban ekspansi bash mewah, tetapi akhirnya lebih panjang dari loop sederhana di atas:

echo $[$(eval echo +\\\(n={1..$1},$1%n?0:n\\\))]

Tambahkan ++ , 9 byte

D,f,@,dFs

Cobalah online!

Saya jelas terlambat sampai di sini. Ini mendefinisikan fungsi yang mendapatkan faktor, lalu menjumlahkannya.

QBIC , 17 byte

[:|~b%a|\p=p+a}?p

Penjelasan

[:|      FOR a = 1; a <= b (read from cmd line); a++
~b%a|    IF b modulo a has a remainder THEN - empty block - 
\p=p+a   ELSE add divisor 'a' to running total 'p'
}        END IF, NEXT
?p       PRINT p

Gaia , 2 byte

dΣ

Cobalah online!

Cukup mudah:

dΣ - Program lengkap.

d - Pembagi.
 Σ - Jumlah