27

Llamo a esta secuencia "la secuencia de Jesús", porque es la suma del mod . </pun>

Para esta secuencia, toma todos los enteros positivos m menos que la entrada n , y toma la suma de n módulo cada m . En otras palabras:

a_{n} = \sum_{m = 1}^{n - 1} n mod m

$a_n = \sum_{m=1}^{n-1}{n\bmod m}$

Por ejemplo, tome el término 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

Su objetivo aquí es escribir una función que implemente esta secuencia. Debería tomar el término de secuencia (este será un entero positivo de 1 a 2 ³¹ ) como la única entrada y generar el valor de ese término. Este es OEIS A004125 .

Como siempre, se aplican las lagunas estándar y gana la respuesta más corta en bytes.

code-golf sequence division

— Nissa
fuente

7

05AB1E , 3 bytes

L%O

Pruébalo en línea!

— Sr. Xcoder
fuente

8

Haskell , 22 bytes

f x=sum$mod x<$>[1..x]

Pruébalo en línea!

Explicación

Sí.

— ბიმო
fuente

55

Gran explicación

— Esolanging Fruit

7

Rubí , 28 27 23 bytes

-4 bytes gracias a @daniero.

->n{(1..n).sum{|i|n%i}}

Pruébalo en línea!

Rubí, 28 bytes.

f=->n{n>($.+=1)?n%$.+f[n]:0}

Pruébalo en línea!

— Jordán
fuente

6

Funky , 25 bytes

n=>fors=~-i=1i<n)s+=n%i++

Solo la respuesta ingenua parece funcionar.

Pruébalo en línea!

Desmos , 25 bytes.

f(x)=\sum_{n=1}^xmod(x,n)

Pega en Desmos, luego ejecútalo llamando f.

Cuando se pega en Desmos, el látex se ve así

Sin embargo, el gráfico parece

Aunque parece aleatorio y en todas partes, ese es el resultado de solo apoyar enteros.

RProgN 2 , 9 bytes

x=x³x\%S+

Explicado

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.

Pruébalo en línea!

ReRegex , 71 bytes

#import math
(_*)_a$/d<$1_>b$1a/(\d+)b/((?#input)%$1)+/\+a//u<#input
>a

Pruébalo en línea!

ARBLE , 19 bytes

sum(range(1,a)|a%i)

Pruébalo en línea!

Quizás más tarde , 56 bytes

whenf is*{n=0whenx is*{ifx>0{n=n+f%x x--}elseprintn}x=f}

Pruébalo en línea!

— Un taco
fuente

¿Terminarán las presentaciones a este desafío? Hasta ahora he estado recibiendo uno nuevo cada 40 minutos: P

— Nissa

@StephenLeppik Oh, todavía tengo más por venir, no te preocupes.

— ATaco

@StephenLeppik Prefiero no hacerlo, porque son de diversa calidad en varios idiomas.

— ATaco

@StephenLeppik Los he combinado para ti, de mala gana.

— ATaco

44

Por favor no hagas esto. Los idiomas separados, incluso los enfoques separados, deben ir en respuestas separadas.

— Dennis

5

Jalea , 3 bytes

%RS

Explicación

%RS
 R   Range(input)  [1...n]
%    Input (implicit) modulo [1...n]->[n%1,n%2...n%n]
  S  Sum of the above

Pruébalo en línea!

— dylnan
fuente

5

MATL , 4 bytes

t:\s

Pruébalo en línea!

Explicación:

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.

— Sanchises
fuente

4

Ohm v2 , 4 bytes

D@%Σ

Pruébalo en línea!

— Cinaski
fuente

4

R, 20 bytes

sum((n=scan())%%1:n)

Pruébalo en línea!

— plannapus
fuente

4

Python 2 , 44 bytes

lambda n:sum(map(lambda x:x%(n-x),range(n)))

Pruébalo en línea!

EDITAR: Rango cambiado (0, n) a rango (n)

— Max00355
fuente

2

Hola y bienvenidos al sitio! rangetoma implícitamente un primer argumento de 0, por lo que podría acortar esto en dos bytes haciendo en su range(n)lugar.

— DJMcMayhem

¡Oh wow! Ni siquiera pensé en eso. Gracias

— Max00355

1

Bienvenido a PPCG! Puede usar una lista de comprensión en lugar de map38 bytes: ¡ Pruébelo en línea!

— Sr. Xcoder

Tienes razón, pero eso se usó en la respuesta de Neil, así que no estaba seguro de si copiarlo hubiera sido lo mejor. A menos que me falte algo aquí, por supuesto. Quería publicar la alternativa, aunque fuera un poco más larga.

— Max00355

3

JavaScript (ES6), 26 bytes

f=(n,k=n)=>n&&k%n+f(n-1,k)

Manifestación

Mostrar fragmento de código

f=(n,k=n)=>n&&k%n+f(n-1,k)

for(n = 1; n < 30; n++) {
  console.log('a(' + n + ') = ' + f(n))
}

Expandir fragmento

— Arnauld
fuente

3

Python 3 , 37 bytes

lambda a:sum(a%k for k in range(1,a))

Pruébalo en línea!

— Neil
fuente

4 respuestas en 10 minutos? Guau.

— Nissa

1

Deben ser algunos programadores muy talentosos. ;)

— Neil

3

Carbón de leña , 9 bytes

ＩΣＥＮ﹪Ｉθ⊕ι

Pruébalo en línea!

El enlace es a la versión detallada del código:

Print(Cast(Sum(Map(InputNumber(),Modulo(Cast(q),++(i))))));

— Charlie
fuente

3

ML estándar (MLton) , 53 51 bytes

fn& =>let fun f 1a=a|f%a=f(% -1)(a+ &mod%)in f&0end

Pruébalo en línea!

Sin golf:

fn n =>
   let fun f 1 a = a
         | f x a = f (x-1) (a + n mod x)
   in  
       f n 0
   end

Versión anterior de 53 bytes:

fn n=>foldl op+0(List.tabulate(n-1,fn i=>n mod(i+1)))

Pruébalo en línea!

Explicación:

List.tabulatetoma un entero xy una función fy genera la lista [f 0, f 1, ..., f(x-1)]. Dado algún número n, llamamos List.tabulatecon n-1y la función fn i=>n mod(i+1)para evitar dividir por cero. La lista resultante se resume con foldl op+0.

— Laikoni
fuente

3

Java (OpenJDK 8) , 45 bytes

n->{int m=n,s=0;for(;m-->1;)s+=n%m;return s;}

Pruébalo en línea!

— Olivier Grégoire
fuente

1

+1 Para usar el -->operador va a ( ).

— raznagul

3

Mathematica , 18 bytes

#~Mod~i~Sum~{i,#}&

Pruébalo en línea!

— totalmente humano
fuente

2

mismos bytesTr[#~Mod~Range@#]&

— J42161217

3

APL (Dyalog) , 5 bytes

+/⍳|⊢

Pruébalo en línea!

¿Cómo?

Tren monádico

+/ suma

⊢ - n

| - módulo vectorizado

⍳ - el rango de n

— Uriel
fuente

3

Japt , 6 5 bytes

Guardado 1 byte gracias a @Shaggy

Æ%XÃx

¡Pruébalo en línea!

Cómo funciona

         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

— ETHproducciones
fuente

2

05AB1E , 6 bytes

ÎGIN%+

Pruébalo en línea!

Mi primer programa 05AB1E;)

~~Por cierto, obtuve dos 39, 1 para JS6 y 1 para Python, pero llegué demasiado tarde~~

Explicación:

Î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

— Shieru Asakoto
fuente

2

Ruby , 23 bytes

->n{(1..n).sum{|i|n%i}}

Pruébalo en línea!

— GB
fuente

2

Julia 0.4, 15 bytes

x->sum(x%[1:x])

Pruébalo en línea!

— Lescurel
fuente

2

Añadir ++ , 14 bytes

L,RAdx$p@BcB%s

Pruébalo en línea!

Cómo funciona

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]

— caird coinheringaahing
fuente

2

4 , 67 bytes

4 no tiene ningún módulo incorporado.

3.79960101002029980200300023049903204040310499040989804102020195984

Pruébalo en línea!

— Uriel
fuente

2

Lote de Windows (CMD), 63 bytes

@set s=0
@for /l %%i in (1,1,%1)do @set/as+=%1%%%%i
@echo %s%

Versión anterior de 64 bytes:

@set/ai=%2+1,s=%3+%1%%i
@if %i% neq %1 %0 %1 %i% %s%
@echo %s%

— Neil
fuente

2

T-SQL, 80 79 bytes

-1 byte gracias a @MickyT

WITH c AS(SELECT @ i UNION ALL SELECT i-1FROM c WHERE i>1)SELECT SUM(@%i)FROM c

Recibe información de un parámetro entero llamado @, algo como esto:

DECLARE @ int = 14;

Utiliza una expresión de tabla común para generar números de 1a n. Luego usa ese cte para resumir los módulos.

Nota: un cte necesita un ;entre la declaración anterior y el cte. La mayoría del código que he visto pone el ;derecho antes de la declaración, pero en este caso puedo guardar un byte al tenerlo en la declaración de entrada (ya que técnicamente mi código en sí mismo es la única declaración).

Pruébalo (SEDE)

La forma menos "SQL-y" es de solo 76 bytes. Esta vez, la variable de entrada es en @ilugar de @(guarda un byte). Este solo hace un whilebucle.

DECLARE @ int=2,@o int=0WHILE @<@i BEGIN SELECT @o+=@i%@,@+=1 END PRINT @o

— Brian J
fuente

2

PHP , 61 bytes

-2 bytes para eliminar la etiqueta de cierre

<?php $z=fgets(STDIN);for($y=1;$y<$z;$y++){$x+=$z%$y;}echo$x;

Pruébalo en línea!

— NK1406
fuente

2

Japt `-mx` , 3 bytes

N%U

Pruébalo en línea!

— Luis felipe De jesus Munoz
fuente

2

Brachylog , 9 bytes

⟨gz⟦₆⟩%ᵐ+

Pruébalo en línea!

— Kroppeb
fuente

1

Casco , 5 bytes

ΣṠM%ḣ

Pruébalo en línea!

Explicación

ΣṠ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

— ბიმო
fuente

1

Perl 5 , 23 + 1 ( `-p`) = 24 bytes

//;map$\+=$'%$_,1..$_}{

Pruébalo en línea!

— Xcali
fuente

1

Pyth , 5 bytes

s%LQS

s%LQS - Full program, inputs N from stdin and prints sum to stdout
s     - output the sum of
 %LQ  - the function (elem % N) mapped over 
    S - the inclusive range from 1..N

Pruébalo en línea!

— Dave
fuente

Oh, en realidad encontré un byte 5 diferente al tuyo, no leí el tuyo correctamente

— Dave

Suma de módulos

05AB1E , 3 bytes

Haskell , 22 bytes

Explicación

Rubí , 28 27 23 bytes

Rubí, 28 bytes.

Funky , 25 bytes

Desmos , 25 bytes.

RProgN 2 , 9 bytes

Explicado

ReRegex , 71 bytes

ARBLE , 19 bytes

Quizás más tarde , 56 bytes

Jalea , 3 bytes

MATL , 4 bytes

Ohm v2 , 4 bytes

R, 20 bytes

Python 2 , 44 bytes

JavaScript (ES6), 26 bytes

Manifestación

Python 3 , 37 bytes

Carbón de leña , 9 bytes

ML estándar (MLton) , 53 51 bytes

Versión anterior de 53 bytes:

Java (OpenJDK 8) , 45 bytes

Mathematica , 18 bytes

APL (Dyalog) , 5 bytes

Japt , 6 5 bytes

Cómo funciona

05AB1E , 6 bytes

Ruby , 23 bytes

Julia 0.4, 15 bytes

Añadir ++ , 14 bytes

Cómo funciona

4 , 67 bytes

Lote de Windows (CMD), 63 bytes

T-SQL, 80 79 bytes

PHP , 61 bytes

Japt -mx , 3 bytes

Brachylog , 9 bytes

Casco , 5 bytes

Explicación

Perl 5 , 23 + 1 ( -p) = 24 bytes

Pyth , 5 bytes

Japt `-mx` , 3 bytes

Perl 5 , 23 + 1 ( `-p`) = 24 bytes