เขียนโปรแกรมที่แสดงบนหน้าจอผลรวมของตัวหารของตัวเลข (1 ≤ N entered 100) ที่ป้อนโดยผู้ใช้ในช่วง 1 ถึง N

นี่คือOEIS A000203

ตัวอย่าง:

อินพุต : 7

7 / 1 = 7
7 / 7 = 1

7 + 1 = 8

ผลลัพธ์: 8

อินพุต: 15

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

15 + 5 + 3 + 1 = 24

ผลลัพธ์: 24

อินพุต: 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

เอาท์พุต: 42

อินพุต: 1

1 / 1 = 1

ผลลัพธ์: 1

อินพุต: 5

5 / 1 = 5
5 / 5 = 1

5 + 1 = 6

ผลลัพธ์: 6

05AB1E , 2 ไบต์

ÑO

ลองออนไลน์!

อย่างไร?

Ñ    Divisors
 O   Sum

x86-64 รหัสเครื่อง 23 ไบต์

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

ไบต์ของรหัสข้างต้นกำหนดฟังก์ชั่นที่รับจำนวนเต็มเดียว, N, และส่งกลับผลรวมของทวีคูณของมันเป็นผล

พารามิเตอร์เดียวถูกส่งผ่านในEDIรีจิสเตอร์ซึ่งสอดคล้องกับ System V AMD64 ABI (ตามที่ใช้กับระบบสไตล์ * nix) ผลลัพธ์จะถูกส่งกลับในEAXรีจิสเตอร์เช่นเดียวกับอนุสัญญาการเรียก x86 ทั้งหมด

อัลกอริทึมเป็นสิ่งที่ตรงไปตรงมามากเช่นเดียวกับข้อเสนออื่น ๆ ในภาษาอื่น ๆ เราวนรอบ N ครั้งแต่ละครั้งที่คำนวณโมดูโลและเพิ่มเข้าไปในผลรวมการวิ่งของเรา

คำย่อของชุดประกอบ Ungolfed:

; 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

ลองออนไลน์!

ดูเหมือนว่าควรมีวิธีทำให้สั้นลง แต่ฉันมองไม่เห็น การคำนวณแบบโมดูโลบน x86 ใช้รหัสค่อนข้างน้อยเนื่องจากคุณใช้คำสั่งDIV(หรือIDIV) และทั้งคู่ใช้การลงทะเบียนอินพุตคงที่ ( EDXและEAX) ค่าที่ได้รับการอุดตัน (เพราะพวกเขาได้รับผลลัพธ์ส่วนที่เหลือและ ความฉลาดทางตามลำดับ)

เทคนิคจริงเท่านั้นที่นี่เป็นสนามกอล์ฟมาตรฐานสวย:

• ฉันได้จัดทำโค้ดในลักษณะที่ผิดปกติเพื่อให้ฉันสามารถใช้LOOPคำสั่งแบบ CISC ซึ่งเป็นเพียงการรวมกันของDEC+ JNZกับการECXลงทะเบียนเป็นตัวถูกดำเนินการโดยปริยาย
• ฉันใช้XCHGท้ายที่สุดแทนที่จะเป็นMOVเพราะอดีตมีการเข้ารหัส 1 ไบต์พิเศษเมื่อEAXเป็นหนึ่งในตัวถูกดำเนินการ
• ผมใช้CDQเป็นศูนย์การในการเตรียมการสำหรับการแบ่งแม้สำหรับส่วนที่ไม่ได้ลงชื่อที่คุณจะปกติเพียงเป็นศูนย์โดยใช้EDX XORอย่างไรก็ตามXORมีขนาด 2 ไบต์เสมอในขณะที่CDQมีเพียง 1 ไบต์ ฉันใช้CDQอีกเป็นครั้งที่สองภายในของลูปเป็นศูนย์EDXก่อนCMOVZคำสั่ง สิ่งนี้ทำงานได้เพราะฉันสามารถรับประกันได้ว่าผลหารของหาร (ในEAX) นั้นไม่ได้ลงนามเสมอดังนั้นการเพิ่มส่วนขยายสัญญาณเข้าEDXจะEDXเท่ากับ 0

C (gcc), 45 ไบต์

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

ลองออนไลน์!

Japt , 3 ไบต์

â)x

ลองออนไลน์!

Brachylogขนาด 2 ไบต์

f+

ลองออนไลน์!

คำอธิบาย

f       Factors
 +      Sum

Mathematica ขนาด 14 ไบต์

Tr@Divisors@#&   

หรือคำตอบโดย @Loki

Mathematica ขนาด 17 ไบต์

DivisorSum[#,#&]&

C, C ++, C #, D, Java, 65 62 ไบต์

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

สิ่งนี้ใช้ได้กับภาษาการเขียนโปรแกรมทั้ง 5 ภาษาเพราะมีความคล้ายคลึงกัน

การเพิ่มประสิทธิภาพ C, C ++ และ D: 62 60 ไบต์

ใน C ++ และ D, จำนวนเต็มแปลงโดยปริยายเป็น booleans (Zero => false, ไม่ใช่ Zero => true) ดังนั้นคุณไม่จำเป็นต้องมี !=0

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

การปรับให้เหมาะสม D: ระบบเทมเพลต golfy, 55 ไบต์

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

รหัสที่จะทดสอบ :

ค :

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

ค# :

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

ชวา:

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 ไบต์

-1 ลาก่อนขอบคุณ Mr. Xcoder (เพราะฉันเก่งภาษาของตัวเอง)

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

นี่คือฟังก์ชั่น ( $เริ่มฟังก์ชั่นใน Shnap)

ลองออนไลน์!

คำอธิบาย:

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

ไม่ใช่การแข่งขัน 19 ไบต์

หลังจากการอัปเดตหลายภาษาตอนนี้สามารถลดลงเหลือ 19 ไบต์

$n=>sum(factors(n))

ลองออนไลน์!

Python ขนาด 44 ไบต์

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

• ขอบคุณสตีเฟ่นบันทึก 1 ไบต์ด้วยการลบช่องว่าง
• ขอบคุณ Jonathan Frech ให้บันทึกอีก 1 ไบต์ด้วยการเปลี่ยนถ้าคูณ

J, 23 ไบต์

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

ลองออนไลน์!

สำหรับแฟน ๆ เจมีวิธีการแก้ปัญหา 13 ไบต์ฉลาด : >:@#.~/.~&.q:แต่เนื่องจากมันไม่ได้เป็นสิ่งประดิษฐ์ของฉันฉันไม่ได้โพสต์เป็นคำตอบอย่างเป็นทางการของฉัน

โซลูชันของฉันเองเพียงแค่กรอง 1..n ค้นหาตัวหารแล้วหาผลรวม ปมของมันคือส้อม dyadic

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

โปรดทราบว่าในบริบทนี้]คือ 1..n และ[เป็น n เอง ดังนั้น]|[สิ่งที่เหลืออยู่เมื่อทำการหารแต่ละองค์ประกอบของ 1..n เป็น n และ=&0บอกคุณว่ามันเท่ากับ 0

Java (OpenJDK 8) , 53 51 ไบต์

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

ลองออนไลน์!

Haskellขนาด 30 ไบต์

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

ลองออนไลน์!

MATL , 6 ไบต์

t:\~fs

ลองออนไลน์!

-4 ไบต์ต้องขอบคุณ @LuisMendo

10 ไบต์

โซลูชันก่อนหน้าของฉันโดยใช้ลูป

:"G@\~@*vs

ลองออนไลน์!

3 ไบต์

การใช้งานในตัว

Z\s

ลองออนไลน์!

Javascript, 54 44 ไบต์

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

บันทึก 10 ไบต์ขอบคุณShaggy

ลองออนไลน์!

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 ไบต์

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

ลองออนไลน์!

คำอธิบาย:

_{ล้าสมัยแล้วจากการปรับปรุง}

หัวใจของอัลกอริทึมคือ:

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

นั่นคือการดัดแปลงใน mod ที่จะให้เราMถ้ามันเป็นปัจจัยNและ0อื่น ๆ รหัสเต็มอยู่ด้านล่าง

((({})<>) 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 ไบต์

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

ลองออนไลน์!

ส่งคืน1x1เมทริกซ์

คำนวณ!N%%xแผนที่องค์ประกอบdของ1:Nโดย:d->(1 if d divides N, 0 otherwise)

จากนั้นx%*%x!N%%xเป็นผลิตภัณฑ์แมทริกซ์ของ1:Nซึ่งส่งผลให้ผลรวมของxที่เป็น!N%%x 1เรียบร้อย! ในทางเทคนิคแล้วพอร์ตของคำตอบอ็อกเทฟของ Luis Mendo แต่ฉันเห็นเพียงว่าหลังจากฉันคิดถึงสิ่งนี้

หมายเลขR + 14 ไบต์

numbers::Sigma

ลองออนไลน์!

JavaScript ขนาด 31 ไบต์

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

Pari / GP 5 ไบต์

sigma

ลองออนไลน์!

Python 2 , 41 ไบต์

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

ลองออนไลน์!

VBA (Excel) 73 ไบต์

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 ไบต์

s*M{yP

ลองที่นี่!

Pyth ไม่ได้มีอุปกรณ์สำหรับตัวหารดังนั้นฉันคิดว่ามันสมเหตุสมผล

คำอธิบาย

s * M {yP - โปรแกรมเต็มรูปแบบพร้อมอินพุตโดยนัย

     P - ปัจจัยสำคัญของการป้อนข้อมูล
    y - ขุมพลังของปัจจัยสำคัญ
   {- ซ้ำซ้อน
 * M - แผนที่พร้อมการคูณ
s - ผลรวม
          - แสดงผลลัพธ์โดยนัย

ป.ร. ให้ไว้20เช่นนี้เป็นสิ่งที่โปรแกรมของเราไม่หลังจากที่แต่ละคำแนะนำ:

• 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.

โอห์ม v2 , 2 ไบต์

VΣ

ลองออนไลน์!

นี่เป็นสิ่งที่ตรงไปตรงมา:

V - ตัวหาร
 Σ - ผลรวม

Husk , 5 ไบต์

ṁΠuṖp

ลองออนไลน์!

อย่างไร?

ṁΠuṖp - โปรแกรมเต็มอินพุตโดยปริยาย

     p - ปัจจัยสำคัญ
    Ṗ - Powerset
   u - ลบรายการที่ซ้ำกัน
ṁΠ - รับผลิตภัณฑ์ของแต่ละรายการผลรวมและผลลัพธ์โดยปริยาย

ขอบคุณ Zgarb สำหรับคำแนะนำในการแชท!

อ็อกเทฟ 20 ไบต์

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

ลองออนไลน์!

RProgN 2 , 2 ไบต์

ƒ+

อธิบาย

ƒ+
ƒ   # Factorize
 +  # Sum

เล็กน้อย แต่รู้สึกว่าจำเป็นต้องโพสต์

ลองออนไลน์!

Perl 5 , 35 + 1 (-p) = 36 ไบต์

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

ลองออนไลน์!

ยูทิลิตี Bash + GNU, 36

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

ลองมันออนไลน์

Pure Bash, 41

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

ลองมันออนไลน์

ครั้งแรกที่ฉันลองคำตอบการขยาย bash แฟนซี แต่มันก็นานกว่าการวนซ้ำแบบง่าย ๆ ข้างบน:

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

เพิ่ม ++ , 9 ไบต์

D,f,@,dFs

ลองออนไลน์!

ฉันมาถึงที่นี่สายเกินไป สิ่งนี้จะกำหนดฟังก์ชั่นที่ได้รับปัจจัย

QBICขนาด 17 ไบต์

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

คำอธิบาย

[:|      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 ไบต์

dΣ

ลองออนไลน์!

ตรงไปตรงมาสวย:

dΣ - โปรแกรมเต็มรูปแบบ

d - ตัวหาร
 Σ - ผลรวม