15

_{_{No hemos tenido desafíos agradables y fáciles en mucho tiempo, así que aquí vamos.}}

Dada una lista de enteros cada uno mayor que y un índice como entrada, genera el porcentaje del elemento en el índice dado de la suma total de la lista. $0$

La salida debe ser la representación natural para flotantes / enteros en su idioma (unario, decimal, números de iglesia, etc.). Si elige redondear la salida de alguna manera, debe tener un mínimo de 2 decimales (cuando sea razonable. no necesita redondearse, pero también es perfectamente aceptable). $1.2$ $1.20$

Los índices pueden estar indexados en 1 o indexados en 0, y siempre estarán dentro de los límites de la matriz.

Este es el código de golf , por lo que gana el código más corto en bytes.

Ejemplos

Usando 1 indexado y redondeado a 2 dp

list, index                    =>         output
[1, 2, 3, 4, 5], 5             => 5 / 15    => 33.33
[7, 3, 19], 1                  => 7 / 29    => 24.14
[1, 1, 1, 1, 1, 1, 1, 1, 1], 6 => 1 / 9     => 11.11
[20, 176, 194, 2017, 3], 1     => 20 / 2410 => 0.83
[712], 1                       => 712 / 712 => 100

O, como tres listas:

[[1, 2, 3, 4, 5], [7, 3, 19], [1, 1, 1, 1, 1, 1, 1, 1, 1], [20, 176, 194, 2017, 3], [712]]
[5, 1, 6, 1, 1]
[33.33, 24.14, 11.11, 0.83, 100]

— caird coinheringaahing
fuente

— Publicación de

3

¿Cómo exactamente pueden salir los no enteros como números unarios / eclesiásticos?

— Pomo de la puerta

1

@ Pomo de la puerta ¿Quizás un número unario, el punto y otro número unario?

— HighRadioactive

Dado que la salida se puede redondear a dos decimales, también podría estar permitido la salida redondeada por 100?

— Cadena no relacionada

1

el caso de prueba 4 debería ser 20/2410

— attinat

6

APL (Dyalog Unicode) , ^{SBCS de} 9 bytes

Función de infijo tácito anónimo. Toma el índice como argumento izquierdo y la lista como argumento derecho.

100×⌷÷1⊥⊢

Pruébalo en línea!

100 cien

× veces

⌷ el elemento indexado

÷ dividido por

1⊥ la suma (lit. la evaluación de base 1) de

⊢ el argumento correcto

— Adán
fuente

6

C # (compilador interactivo de Visual C #) , 22 bytes

x=>y=>x[y]*100/x.Sum()

Pruébalo en línea!

— Encarnación de la ignorancia
fuente

6

Python 3 , 26 bytes

lambda i,a:a[i]/sum(a)*100

Una función sin nombre que acepta un número entero (índice indexado 0) y una lista que devuelve el porcentaje.

Pruébalo en línea!

— Jonathan Allan
fuente

5

Jalea , 7 bytes

ị÷S}ȷ2×

Un enlace diádico que acepta un índice entero basado en uno a la izquierda y una lista de números a la derecha que produce el porcentaje.

Pruébalo en línea!

¿Cómo?

ị÷S}ȷ2× - Link: integer, i; list, L
ị       - (i) index into (L)
   }    - use right argument:
  S     -   sum (L)
 ÷      - divide
    ȷ2  - literal 10^2 = 100
      × - multiply

— Jonathan Allan
fuente

1

¡Agradable! Eso es byte por byte lo que tenía: P

— caird coinheringaahing

5

05AB1E , 6 bytes

è²O/т*

Un programa completo que toma el índice y luego la lista. Utiliza indexación 0.

Pruébalo en línea!

¿Cómo?

è²O/т*
è      - index (input 1) into (input 2)
 ²     - push 2nd input
  O    - sum
   /   - divide
    т  - push 100
     * - multiply
       - print top of stack

— Jonathan Allan
fuente

4

R 28 bytes

function(n,l)100*l[n]/sum(l)

Pruébalo en línea!

— niko
fuente

No sé R, pero no parece que funcione (no estoy seguro de cómo probarlo en TIO con matrices arbitrarias), ya que se supone que debes recuperar el elemento de líndice n, no solo dividir por n(ver el caso de [7, 3, 19], 1prueba )

— caird coinheringaahing

@cairdcoinheringaahing Mi error, tenía un error tipográfico (olvidé el l[]alrededor n)

— niko

Hay algo en la página de enlaces de TIO que puede formatear esto para usted.

— SS Anne

4

C (gcc) , 64 bytes

0 indexado. ¡Lo único divertido fue darse cuenta de que 1e2es un doubleahorro de un byte 100.!

float f(v,n,t)int*v;{n=v[n];for(t=0;*v;t+=*v++);return n*1e2/t;}

Pruébalo en línea!

— ErikF
fuente

Pruébalo en línea! 59 usando C (clang)

— AZTECCO

4

Java (JDK) , 47 bytes

a->i->1e2*a[i]/java.util.Arrays.stream(a).sum()

Pruébalo en línea!

— Olivier Grégoire
fuente

¿Por qué escribiste en 1e2lugar de 100? ¿Es porque 100es entero y 1e2se considera como un número de coma flotante?

— Ismael Miguel el

1

@IsmaelMiguel Sí: 1e2lleva el tipo doble, que a[i]y la suma no. Como el desafío requiere devolver números de coma flotante, ahí es donde puedo usarlo.

— Olivier Grégoire

Cambiarlo a un BiFunction <int [], Integer, Double> y se puede guardar 10 bytes con esto: (a,i)->1e2*a[i]/IntStream.of(a).sum(). Editar:> :( mi pobre flecha lambda

— Avi

@Avi Todavía se requiere la importación, por lo que tendría que escribir:, (a,i)->1e2*a[i]/java.util.stream.IntStream.of(a).sum()que tiene 54 bytes de longitud. Mi respuesta actual tiene solo 47 bytes de longitud. Además, a->i->es un byte más corto que (a,i)->.

— Olivier Grégoire

1

@Avi Sí, son obligatorios , y generalmente es más corto escribir el nombre completo de la clase en lugar de la importación, así que eso es lo que hago aquí

— Olivier Grégoire

3

Haskell , 20 18 bytes

i?a=a!!i/sum a*100

Un operador diádico ( ?) que toma el índice (indexado a 0) a la izquierda y una lista a la derecha que produce el porcentaje.

Pruébalo en línea!

— Jonathan Allan
fuente

3

J , 10 bytes

100*{%1#.]

Pruébalo en línea!

0 indexado

— Galen Ivanov
fuente

3

Wolfram Language (Mathematica) , 15 bytes

100##[[]]/Tr@#&

Pruébalo en línea!

Entrada como list, index

— attinat
fuente

##[[]]¡es increíble!

— Greg Martin

3

JavaScript (ES6), 30 bytes

Toma la entrada como (array)(index), donde el índice está basado en 0.

a=>n=>a[n]*100/eval(a.join`+`)

Pruébalo en línea!

— Arnauld
fuente

3

MATL , 9 bytes

)1Gs/100*

Pruébalo en línea!

Explicación

          implicitly take two inputs
)         get the entry within the first input at the index specified by the second
 1G       push the first input onto the stack again
   s      compute the sum 
    /     divide first entry of the stack by this number (the sum) 
     100* multiply by 100

Pruébalo en línea!

— falla
fuente

3

PHP (7.4), 35 bytes

fn($l,$i)=>100/array_sum($l)*$l[$i]

Pruébalo en línea!

El índice de entrada está basado en 0.

— Noche2
fuente

3

K (oK) , 15 14 bytes

-1 byte gracias a ngn!

{100*x[y]%+/x}

Pruébalo en línea!

0 indexado

— Galen Ivanov
fuente

1

(x@y)->x[y]

— ngn

@ngn Gracias!

— Galen Ivanov

2

Rojo , 31 29 bytes

-2 bytes gracias a ErikF

func[b i][1e2 * b/:i / sum b]

Pruébalo en línea!

— Galen Ivanov
fuente

1

(-2 bytes) sugiere usar en 1e2lugar de 100.0: ¡ Pruébelo en línea! . ¡Es bastante bueno cuántos idiomas pueden usar este truco!

— ErikF

@ ErikF ¡Gracias! Sé esto en teoría, pero como parece, olvidé usarlo :)

— Galen Ivanov

2

PowerShell , 34 bytes

param($l,$n)$l|%{$i+=$_};$l[$n]/$i

Pruébalo en línea!

Los parámetros de vergüenza son tan caros en Powershell.

— Veskah
fuente

2

Scratch 3.0 24 23 bloques / 239 228 bytes

Alternativamente en sintaxis SB

when gf clicked
set[s v]to(0
ask()and wait
repeat until<(answer)=(
add(answer)to[m v
ask()and wait
end
set[n v]to(item(length of(n))of(m
repeat(length of((m)-(1
change[s v]by(item(1)of[m v
delete (1)of[m v
end
say(((n)/(s))*(100

Guardado 11 bytes gracias a @JoKing

Pruébalo desde cero

Historial de respuestas

Alternativamente en sintaxis SB

when gf clicked
set[s v]to(0
ask()and wait
repeat until<(answer)=(
add(answer)to[m v
ask()and wait
end
set[n v]to(item(length of(n))of(m
delete(n)of[m v
repeat(length of(m
change[s v]by(item(1)of[m v
delete (1)of[m v
end
say(((n)/(s))*(100

Pruébalo desde cero

La entrada tiene la forma de:

item1
item2
...
itemN
index

Realmente debería dejar de hacerme esto a mí mismo. ¡Pero es muy divertido!

— Lyxal
fuente

Se puede cambiar repeat length of ma length of m-1y se ahorrará el delete n?

— Jo King el

No, porque si lo hiciera, no contaría el último elemento.

— Lyxal

Bueno, si eliminas lo delete n of mque sugerí, sería

— Jo King el

2

Pyth , 13 bytes

c*100@hQeQshQ

Pruébalo en línea!

La primera vez que uso Pyth, probablemente hay algunas optimizaciones bastante grandes aquí, pero no sé dónde están ...

0-index, toma la entrada como list, index

— franco
fuente

1

Perl 5 `-ap -MList::Util=Sum` , 19 bytes

$_=100*$F[<>]/sum@F

Pruébalo en línea!

Tome la lista, el espacio separado en la primera línea, el índice (basado en 0) en la segunda.

— Xcali
fuente

1

Japt , 8 bytes

gV
*L/Vx

Intentalo

— Encarnación de la ignorancia
fuente

1

TI-Basic , 12 bytes (12 tokens)

Prompt X
Ans(X)_E2/sum(Ans

1 indexado

Toma la lista Ansy solicita al usuario el índice

Ejecución de ejemplo

Explicación:

Prompt X         # Prompt the user for the index
Ans(X)_E2/sum(Ans
Ans(X)           # The value at the Xth index in the list
      _E2         # times 100
        /sum(Ans # Divided by the sum of the list
                 # The result of the last expression in a program is implicitly returned

— pizzapants184
fuente

1

Retina 0.8.2 , 102 bytes

\d+
$*
^(1)+((?<-1>.(1+))+)
$3$2
,

\G1
10000$*
;(1+)\1
$1;$1$1
r`.*(\2)*;(1+)
$#1
+`^..?$
0$&
..$
.$&

Pruébalo en línea! El enlace incluye casos de prueba. Toma entrada como index;list,.... Explicación:

\d+
$*

Convierte a unario.

^(1)+((?<-1>.(1+))+)
$3$2

Indice en la lista.

Suma la lista.

\G1
10000$*
;(1+)\1
$1;$1$1
r`.*(\2)*;(1+)
$#1

Multiplique el valor deseado por 10000 y divida por la suma con redondeo agregando primero la mitad de la suma.

+`^..?$
0$&

Asegúrese de que el resultado tenga al menos tres dígitos.

..$
.$&

Inserte un punto decimal en la segunda última posición.

— Neil
fuente

1

Ruby , ²⁵ ²³ 21 bytes

->a,i{1e2*a[i]/a.sum}

Pruébalo en línea!

— Jonás
fuente

1

Perl 6 , 21 bytes

{100*@^a[$^b]/@a.sum}

Pruébalo en línea!

La solución simple, ya que no puedo usar parámetros curry con el $bparámetro que se indexa. Una solución más divertida que no tiene que manejar dos parámetros usando la rotatefunción en su lugar:

{100*.[0]/.sum}o&rotate

Pruébalo en línea!

Pero lamentablemente es dos bytes más largo

— Jo King
fuente

1

Octava , 21 bytes

@(a,n)a(n)/sum(a)*100

Pruébalo en línea!

— tsh
fuente

1

MathGolf , 7 6 bytes

§\Σ/♀*

Indexación basada en 0.

Pruébalo en línea.

Explicación:

§       # Index the (implicit) second input-integer into the first (implicit) input-list,
        # which apparently doesn't pop the list
 \      # Swap so this list is at the top of the stack now
  Σ     # Take the sum of that list
   /    # Divide the earlier number we indexed by this sum
    ♀*  # Multiply it by 100
        # (after which the entire stack joined together is output implicitly as result)

— Kevin Cruijssen
fuente

1

Icono , 53 bytes

procedure f(L,i)
s:=0;s+:=!L&\z
return 1e2*L[i]/s
end

Pruébalo en línea!

Lo único interesante aquí es encontrar la suma. Icon fue uno de los primeros idiomas en tener generadores. !genera todos los valores de la lista Lque se acumulan en s. Normalmente necesitamos escribir every s+:=!L, pero utilicé el rastreo hacia atrás &\z, que comprueba si la zvariable no existe es non-null, que no lo es, y extrae el siguiente valor de la lista hasta el agotamiento.

— Galen Ivanov
fuente

1

Factor , 46 bytes

: f ( i l -- n ) dup [ nth ] dip sum / 1e2 * ;

Pruébalo en línea!

0 indexado

— Galen Ivanov
fuente

1

Lote, 111 bytes

@shift
@set s=%*
@call set/as=%s: =+%-%0,s=(%%%0*10000+s/2)/s,h=s%%%%10,t=s/10%%%%10,s/=100
@echo %s%.%t%%h%

Toma la entrada como índice y la lista como argumentos de línea de comandos. Nota: Solo funciona para valores de índice de 1a 9debido a limitaciones de Batch; se podría escribir una versión indexada en 0 que pudiera indexar los primeros 10 elementos. Explicación:

@shift

Cambie el índice %0y la lista a %1... %9(o menos). Sin embargo, tenga en cuenta que Batch's shiftno afecta %*.

@set s=%*

Obtenga todos los parámetros, separados por espacios.

@call set/as=%s: =+%-%0,s=(%%%0*10000+s/2)/s,h=s%%%%10,t=s/10%%%%10,s/=100

Cambie los espacios a +sy evalúe aritméticamente, tomando la suma, pero reste el índice. Luego indexe en la lista, multiplique por 10000, agregue la mitad de la suma y divida por la suma. Finalmente realice divmod por 10 dos veces para generar los lugares decimales. (El %operador aritmético tiene un significado especial en Batch y normalmente debe duplicarse, pero callluego requiere una duplicación adicional).

@echo %s%.%t%%h%

Salida del resultado y los lugares decimales.

— Neil
fuente

Encuentra el porcentaje

Ejemplos

APL (Dyalog Unicode) , SBCS de 9 bytes

C # (compilador interactivo de Visual C #) , 22 bytes

Python 3 , 26 bytes

Jalea , 7 bytes

¿Cómo?

05AB1E , 6 bytes

¿Cómo?

R 28 bytes

C (gcc) , 64 bytes

Java (JDK) , 47 bytes

Haskell , 20 18 bytes

J , 10 bytes

Wolfram Language (Mathematica) , 15 bytes

JavaScript (ES6), 30 bytes

MATL , 9 bytes

Explicación

PHP (7.4), 35 bytes

K (oK) , 15 14 bytes

Rojo , 31 29 bytes

PowerShell , 34 bytes

Scratch 3.0 24 23 bloques / 239 228 bytes

Historial de respuestas

Pyth , 13 bytes

Perl 5 -ap -MList::Util=Sum , 19 bytes

Japt , 8 bytes

TI-Basic , 12 bytes (12 tokens)

Retina 0.8.2 , 102 bytes

Ruby , 25 23 21 bytes

Perl 6 , 21 bytes

Octava , 21 bytes

MathGolf , 7 6 bytes

Icono , 53 bytes

Factor , 46 bytes

Lote, 111 bytes

APL (Dyalog Unicode) , ^{SBCS de} 9 bytes

Perl 5 `-ap -MList::Util=Sum` , 19 bytes

Ruby , ²⁵ ²³ 21 bytes