このシーケンスはmodの合計であるため、「イエスシーケンス」と呼びます。</ pun>
このシーケンスでは、入力nよりも小さい正の整数mをすべて取得し、各mを法とするnの合計を取得します。言い換えると：
たとえば、用語14を使用します。
14 % 1 = 0
14 % 2 = 0
14 % 3 = 2
14 % 4 = 2
14 % 5 = 4
14 % 6 = 2
14 % 7 = 0
14 % 8 = 6
14 % 9 = 5
14 % 10 = 4
14 % 11 = 3
14 % 12 = 2
14 % 13 = 1
0+0+2+2+4+2+0+6+5+4+3+2+1=31
ここでの目標は、このシーケンスを実装する関数を作成することです。シーケンス用語（これは1から2 31までの正の整数になります）を唯一の入力とし、その用語の値を出力する必要があります。これはOEIS A004125です。
いつものように、標準的な抜け穴が適用され、バイト単位の最短回答が勝ちます！
回答:
n=>fors=~-i=1i<n)s+=n%i++
ナイーブな答えだけでうまくいくようです。
f(x)=\sum_{n=1}^xmod(x,n)
Desmosに貼り付けてから、を呼び出して実行しfます。
デスモスにペーストすると、ラテックスは次のようになります
ただし、グラフは次のようになります
ランダムに見え、あちこちで見えますが、それは整数のみをサポートしている結果です。
x=x³x\%S+
x=x³x\%S+
x= # Store the input in "x"
x # Push the input to the stack.
³x\% # Define a function which gets n%x
S # Create a stack from "x" with the previous function. Thus this gets the range from (1,x), and runs (i%x) on each element.
+ # Get the sum of this stack.
#import math
(_*)_a$/d<$1_>b$1a/(\d+)b/((?#input)%$1)+/\+a//u<#input
>a
sum(range(1,a)|a%i)whenf is*{n=0whenx is*{ifx>0{n=n+f%x x--}elseprintn}x=f}
%RS
説明
%RS
R Range(input) [1...n]
% Input (implicit) modulo [1...n]->[n%1,n%2...n%n]
S Sum of the above
t:\s
説明：
t % Duplicate input. Stack: {n, n}
: % Range 1...n. Stack: {n, [1...n]}
\ % Modulo. Stack: {[0,0,2,2,4,...]}
s % Sum. Implicitly display result.
range暗黙的に最初の引数を受け取り0ます。そのため、range(n)代わりに行うことでこれを2バイト短縮できます。
map38バイトの代わりにリスト内包表記を使用できます。オンラインで試してください！
ＩΣＥＮ﹪Ｉθ⊕ι
リンクは、コードの詳細バージョンへのリンクです。
Print(Cast(Sum(Map(InputNumber(),Modulo(Cast(q),++(i))))));
fn& =>let fun f 1a=a|f%a=f(% -1)(a+ &mod%)in f&0endゴルフをしていない：
fn n =>
let fun f 1 a = a
| f x a = f (x-1) (a + n mod x)
in
f n 0
endfn n=>foldl op+0(List.tabulate(n-1,fn i=>n mod(i+1)))説明：
List.tabulate整数xと関数fを取り、リストを生成します[f 0, f 1, ..., f(x-1)]。いくつかの数値が与えられた場合、ゼロによる除算を回避するためにwith および関数nを呼び出します。結果のリストはで合計されます。List.tabulaten-1fn i=>n mod(i+1)foldl op+0
-->）演算子を使用する場合。
Tr[#~Mod~Range@#]&
@Shaggyのおかげで1バイト節約
Æ%XÃx
Implicit: U = input number
Æ Create the range [0, U),
%XÃ mapping each item X to U%X. U%0 gives NaN.
x Sum, ignoring non-numbers.
Implicit: output result of last expression
ÎGIN%+
私の最初の05AB1Eプログラム;）
ところで私は2つの39を手に入れました。1つはJS6用、もう1つはPython用ですが、手遅れでした
説明：
ÎGIN%+
Î # Push 0, then input, stack = [(accumulator = 0), I]
G # For N in range(1, I), stack = [(accumulator)]
IN # Push input, then N, stack = [(accumulator), I, N]
% # Calculate I % N, stack = [(accumulator), I % N]
+ # Add the result of modulus to accumulator
L,RAdx$p@BcB%s
L, - Create a lambda function.
- Example argument: [7]
R - Range; STACK = [[1 2 3 4 5 6 7]]
A - Argument; STACK = [[1 2 3 4 5 6 7] 7]
d - Duplicate; STACK = [[1 2 3 4 5 6 7] 7 7]
x - Repeat; STACK = [[1 2 3 4 5 6 7] 7 [7 7 7 7 7 7 7]]
$p - Swap and pop; STACK = [[1 2 3 4 5 6 7] [7 7 7 7 7 7 7]]
@ - Reverse; STACK = [[7 7 7 7 7 7 7] [1 2 3 4 5 6 7]]
Bc - Zip; STACK = [[7 1] [7 2] [7 3] [7 4] [7 5] [7 6] [7 7]]
B% - Modulo each; STACK = [0, 1, 1, 3, 2, 1, 0]
s - Sum; STACK = [8]
@MickyTのおかげで-1バイト
WITH c AS(SELECT @ i UNION ALL SELECT i-1FROM c WHERE i>1)SELECT SUM(@%i)FROM c
@次のような名前の整数パラメータから入力を受け取ります。
DECLARE @ int = 14;
数字を生成するために共通テーブル式を使用1するがn。次に、そのcteを使用してモジュラスを合計します。
注：cteは;、前のステートメントとcteの間に必要です。私が見たほとんどのコード;は宣言の前に右を置きますが、この場合、入力ステートメントにバイトを入れることでバイトを保存できます（技術的にはコード自体が唯一のステートメントであるため）。
より少ない「SQL-y」の方法はわずか76バイトです。今回は入力変数の@i代わりになります@（1バイトを保存します）。これはwhileループを行うだけです。
DECLARE @ int=2,@o int=0WHILE @<@i BEGIN SELECT @o+=@i%@,@+=1 END PRINT @o
ΣṠM%ḣ
ΣṠM%ḣ -- implicit input x, example: 5
ṠM% -- map (mod x) over the following..
ḣ -- ..the range [1..x]: [5%1,5%2,5%3,5%4,5%5] == [0,1,2,1,0]
Σ -- sum: 0+1+2+1+0 == 4