ユーザーが1〜Nの範囲で入力した数値（1≤N≤100）の約数の合計を画面に表示するプログラムを作成します。

これは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を受け入れ、その倍数の合計を結果として返す関数を定義します。

EDISystem V AMD64 ABI（* nixスタイルのシステムで使用される）と一致する単一のパラメーターがレジスターに渡されます。EAXすべてのx86呼び出し規約と同様に、結果はレジスタに返されます。

このアルゴリズムは非常に単純なものであり、他の言語での他の多くの提出物と同様です。モジュロを計算し、それを実行中の合計に追加するたびに、N回ループします。

非ゴルフアセンブリニーモニック：

; 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基本的にDEC+ JNZとECX暗黙的なオペランドとしてのレジスタの組み合わせであるCISCスタイルの命令を使用できるように、コードをやや珍しい方法で構造化しました。
• オペランドの1 つがの場合、前者は特別な1バイトエンコーディングを持っているため、XCHG代わりに最後に使用しています。MOVEAX
• 符号なし除算の場合、通常はaを使用してゼロにするだけですが、除算の準備ではCDQゼロを使用します。ただし、は常に2バイトですが、1バイトのみです。私は使用ゼロに再びループの二度目の内部を前に、命令。これが機能するのは、除算の商（）が常に符号なしであることが保証されるためです。したがって、への符号拡張は0に設定されます。EDXXORXORCDQCDQEDXCMOVZEAXEDXEDX

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

これは、類似性があるため、これらすべてのプログラミング言語で機能します。

C、C ++、およびDの最適化：62 60バイト

C ++およびDでは、整数は暗黙的にブール値に変換されます（ゼロ=> false、非ゼロ=> true）。したがって、 !=0

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

D最適化：ゴルフテンプレートシステム、55バイト

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

テストするコード：

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

Java：

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.

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

オンラインでお試しください！

Jファンの場合、巧妙な13バイトのソリューションがあります。>:@#.~/.~&.q:があり。しかし、それは私の発明ではなかったので、公式の回答として投稿していません。

私自身のソリューションは、単に1..nをフィルタリングし、除数を見つけて、それらを合計します。それの核心は二項フォークです

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

このコンテキストで]は1..nであり、[n自体であることに注意してください。したがって]|[、1..nの各要素をnに分割するときの剰余は、=&00に等しいかどうかを示します。

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

オンラインでお試しください！

@LuisMendoのおかげで-4バイト

10バイト

ループを使用した私の以前のソリューション

:"G@\~@*vs

オンラインでお試しください！

3バイト

組み込みの使用

Z\s

オンラインでお試しください！

Javascript、54 44バイト

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

Shaggyのおかげで10バイト節約

オンラインでお試しください！

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。きちんとした！技術的には、ルイスメンドーのオクターブ回答の移植版が、私はこのことを考えて初めてそれを見ました。

R +数字、14バイト

numbers::Sigma

オンラインでお試しください！

JavaScript、31バイト

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

パリ/ 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。

Ohm v2、2バイト

VΣ

オンラインでお試しください！

これはかなりまっすぐです：

V-除数。
 Σ-合計

殻、5バイト

ṁΠuṖp

オンラインでお試しください！

どうやって？

ṁΠuṖp-完全なプログラム、暗黙的な入力。

     p-素因数。
    Ṗ-パワーセット。
   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

オンラインでお試しください。

ピュアバッシュ、41

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

オンラインでお試しください。

最初に派手なbash展開の答えを試しましたが、上の単純なループよりも長くなりました：

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

Add ++、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

ガイア、2バイト

dΣ

オンラインでお試しください！

とても簡単です：

dΣ-完全なプログラム。

d-除数。
 Σ-合計