15

_{_{Nous n'avons pas eu de défis faciles et faciles depuis un certain temps, alors c'est parti.}}

Étant donné une liste d'entiers supérieurs chacun à et un indice en entrée, affichez le pourcentage de l'élément à l'indice donné de la somme totale de la liste. $0$

La sortie doit être quelle que soit la représentation naturelle des flottants / entiers dans votre langue (unaire, décimal, chiffres d'église, etc.). Si vous choisissez d'arrondir la sortie de quelque façon que ce soit, elle doit avoir au moins 2 décimales (lorsque cela est raisonnable. n'a pas besoin d'être arrondi, mais est également parfaitement acceptable). $1.2$ $1.20$

Les index peuvent être indexés 1 ou 0 et seront toujours dans les limites du tableau.

C'est le code-golf , donc le code le plus court en octets gagne!

Exemples

Utilisation de 1 indexé et arrondi à 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

Ou, comme trois listes:

[[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
source

Publication Sandbox (maintenant supprimée)

— Cairn Coinheringaahing

3

comment exactement les non-entiers peuvent-ils être sortis sous forme de nombres unaires / d'église?

— Poignée de porte

1

@ Doorknob Peut-être un nombre unaire, le point et un autre nombre unaire?

— HighlyRadioactive

Étant donné que la sortie peut être arrondie à deux décimales, il peut également être autorisé de produire des arrondis multipliés par 100?

— Unrelated String

1

le cas de test 4 devrait être 20/2410

— attinat

6

APL (Dyalog Unicode) , 9 octets ^SBCS

Fonction infixe tacite anonyme. Prend l'index comme argument de gauche et la liste comme argument de droite.

100×⌷÷1⊥⊢

Essayez-le en ligne!

100 cent

× fois

⌷ l'élément indexé

÷ divisé par

1⊥ la somme (lit. l'évaluation de base 1) de

⊢ le bon argument

— Adam
source

6

C # (Visual C # Interactive Compiler) , 22 octets

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

Essayez-le en ligne!

— Incarnation de l'ignorance
source

6

Python 3 , 26 octets

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

Une fonction sans nom acceptant un entier (index indexé 0) et une liste qui renvoie le pourcentage.

Essayez-le en ligne!

— Jonathan Allan
source

5

Gelée , 7 octets

ị÷S}ȷ2×

Un lien dyadique acceptant un entier, un index basé sur une à gauche et une liste de nombres à droite qui donne le pourcentage.

Essayez-le en ligne!

Comment?

ị÷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
source

1

Agréable! C'est octet par octet ce que j'avais: P

— caird coinheringaahing

5

05AB1E , 6 octets

è²O/т*

Un programme complet reprenant l'index puis la liste. Utilise l'indexation 0.

Essayez-le en ligne!

Comment?

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

— Jonathan Allan
source

4

R 28 octets

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

Essayez-le en ligne!

— niko
source

Je ne connais pas R, mais cela ne semble pas fonctionner (je ne sais pas comment le tester sur TIO avec des tableaux arbitraires), car vous êtes censé récupérer l'élément de lat index n, pas seulement le diviser par n(voir le [7, 3, 19], 1testcase )

— caird coinheringaahing

@cairdcoinheringaahing Mon mauvais, a eu une faute de frappe (j'ai oublié le l[]autour du n)

— niko

Il y a quelque chose sur la page de liens TIO qui peut le formater pour vous.

— SS Anne

4

C (gcc) , 64 octets

0 indexé. Le seul morceau amusant était la réalisation qui 1e2est double, en économisant un octet 100.!

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

Essayez-le en ligne!

— ErikF
source

Essayez-le en ligne! 59 utilisant C (clang)

— AZTECCO

4

Java (JDK) , 47 octets

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

Essayez-le en ligne!

— Olivier Grégoire
source

Pourquoi avez-vous écrit 1e2au lieu de 100? Est-ce parce que100 est entier et 1e2est considéré comme un nombre à virgule flottante?

— Ismael Miguel

1

@IsmaelMiguel Oui: 1e2porte le double type, ce qui a[i]et la somme ne le font pas. Étant donné que le défi nécessite de renvoyer des nombres à virgule flottante, c'est là que je peux l'utiliser.

— Olivier Grégoire

Changez - le à un BiFunction <int [], Entier, Double> et vous pouvez enregistrer 10 octets avec ceci: (a,i)->1e2*a[i]/IntStream.of(a).sum(). Edit:> :( ma pauvre flèche lambda

— Avi

@Avi L'importation est toujours requise, donc je devrais écrire:, (a,i)->1e2*a[i]/java.util.stream.IntStream.of(a).sum()qui fait 54 octets de long. Ma réponse actuelle ne fait que 47 octets. En outre, a->i->est un octet plus court que (a,i)->.

— Olivier Grégoire

1

@Avi Oui, ils sont obligatoires , et il est généralement plus court d'écrire le nom complet de la classe au lieu de l'importer, c'est donc ce que je fais ici

— Olivier Grégoire

3

Haskell , 20 18 octets

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

Un opérateur dyadique ( ?) prenant l'index (0 indexé) à gauche et une liste à droite qui donne le pourcentage.

Essayez-le en ligne!

— Jonathan Allan
source

3

J , 10 octets

100*{%1#.]

Essayez-le en ligne!

0 indexé

— Galen Ivanov
source

3

Wolfram Language (Mathematica) , 15 octets

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

Essayez-le en ligne!

Entrée en tant que list, index

— attinat
source

##[[]]est génial!

— Greg Martin

3

JavaScript (ES6), 30 octets

Prend l'entrée comme (array)(index), où l' index est basé sur 0.

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

Essayez-le en ligne!

— Arnauld
source

3

MATL , 9 octets

)1Gs/100*

Essayez-le en ligne!

Explication

          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

Essayez-le en ligne!

— flawr
source

3

PHP (7.4), 35 octets

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

Essayez-le en ligne!

L'index d'entrée est basé sur 0.

— Nuit2
source

3

K (oK) , 15 14 octets

-1 octet grâce à ngn!

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

Essayez-le en ligne!

0 indexé

— Galen Ivanov
source

1

(x@y)->x[y]

— ngn

@ngn Merci!

— Galen Ivanov

2

Rouge , 31 29 octets

-2 octets grâce à ErikF

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

Essayez-le en ligne!

— Galen Ivanov
source

1

(-2 octets) suggère d'utiliser 1e2au lieu de 100.0: Essayez-le en ligne! . C'est assez net combien de langues peuvent utiliser cette astuce!

— ErikF

@ErikF Merci! Je sais cela en théorie, mais comme il semble, j'ai oublié de l'utiliser :)

— Galen Ivanov

2

PowerShell , 34 octets

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

Essayez-le en ligne!

Les paramètres de la honte sont tellement chers dans Powershell.

— Veskah
source

2

Scratch 3.0 24 23 blocs / 239 228 octets

Alternativement dans la syntaxe 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

11 octets enregistrés grâce à @JoKing

Essayez-le à zéro

Historique des réponses

Alternativement dans la syntaxe 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

Essayez-le à zéro

L'entrée se présente sous la forme de:

item1
item2
...
itemN
index

Je devrais vraiment arrêter de me faire ça. Mais il est très amusant!

— Lyxal
source

Pouvez - vous changer repeat length of mpour length of m-1et Epargnez - vous delete n?

— Jo King

Non, car si je le faisais, cela ne correspondrait pas au dernier élément.

— Lyxal

Eh bien, si vous supprimez ce delete n of mque j'ai suggéré, ce serait

— Jo King

2

Pyth , 13 octets

c*100@hQeQshQ

Essayez-le en ligne!

La première fois que vous utilisez Pyth, il y a probablement quelques optimisations assez importantes ici, mais je ne sais pas où elles sont ...

0-index, prend l'entrée comme list, index

— franc
source

1

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

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

Essayez-le en ligne!

Prenez la liste, espace séparé sur la première ligne, l'index (basé sur 0) sur la seconde.

— Xcali
source

1

Japt , 8 octets

gV
*L/Vx

Essayez-le

— Incarnation de l'ignorance
source

1

TI-Basic , 12 octets (12 jetons)

Prompt X
Ans(X)_E2/sum(Ans

1 indexé

Prend la liste Anset invite l'utilisateur à indexer

Exemple d'exécution

Explication:

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
source

1

Retina 0.8.2 , 102 octets

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

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

Essayez-le en ligne! Le lien inclut des cas de test. Prend l'entrée comme index;list,.... Explication:

\d+
$*

Convertissez en unaire.

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

Index dans la liste.

Additionnez la liste.

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

Multipliez la valeur souhaitée par 10000 et divisez par la somme avec l'arrondi en ajoutant d'abord la moitié de la somme.

+`^..?$
0$&

Assurez-vous que le résultat comporte au moins trois chiffres.

..$
.$&

Insérez un point décimal à l'avant-dernière position.

— Neil
source

1

Rubis , ²⁵ ²³ 21 octets

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

Essayez-le en ligne!

— Jonas
source

1

Perl 6 , 21 octets

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

Essayez-le en ligne!

La solution simple, car je ne peux pas utiliser de paramètres au curry avec le $bparamètre indexé. Une solution plus amusante qui n'a pas à gérer deux paramètres en utilisant la rotatefonction à la place:

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

Essayez-le en ligne!

Mais c'est malheureusement deux octets de plus

— Jo King
source

1

Octave , 21 octets

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

Essayez-le en ligne!

— tsh
source

1

MathGolf , 7 6 octets

§\Σ/♀*

Indexation basée sur 0.

Essayez-le en ligne.

Explication:

§       # 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
source

1

Icône , 53 octets

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

Essayez-le en ligne!

La seule chose intéressante ici est de trouver la somme. L'icône a été l'une des premières langues à disposer de générateurs. !génère toutes les valeurs de la liste Lqui sont cumulées s. Normalement, nous devons écrire every s+:=!L, mais j'ai utilisé le retour arrière avec &\z, qui vérifie si la zvariable inexistante estnon-null , qui ne l'est pas, et extrait la valeur suivante de la liste jusqu'à épuisement.

— Galen Ivanov
source

1

Facteur , 46 octets

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

Essayez-le en ligne!

0 indexé

— Galen Ivanov
source

1

Lot, 111 octets

@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%

Prend l'entrée comme index et la liste comme arguments de ligne de commande. Remarque: ne fonctionne que pour les valeurs d'index de 1à en 9raison des limitations de Batch; une version indexée 0 pourrait être écrite qui serait capable d'indexer les 10 premiers éléments. Explication:

@shift

Déplacez l'index vers %0et la liste vers %1... %9(ou moins). Notez cependant que Batch shiftn'affecte pas %*.

@set s=%*

Obtenez tous les paramètres, séparés par des espaces.

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

Remplacez les espaces par +s et évaluez arithmétiquement, prenant ainsi la somme, mais soustrayez l'indice. Indexez ensuite dans la liste, multipliez par 10000, ajoutez la moitié de la somme et divisez par la somme. Enfin, effectuez divmod par 10 deux fois pour générer les décimales. (L' %opérateur arithmétique a une signification particulière dans Batch et doit normalement être doublé, mais cela callnécessite alors un doublement supplémentaire.)

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

Sortez le résultat et les décimales.

— Neil
source

Trouver le pourcentage

Exemples

APL (Dyalog Unicode) , 9 octets SBCS

C # (Visual C # Interactive Compiler) , 22 octets

Python 3 , 26 octets

Gelée , 7 octets

Comment?

05AB1E , 6 octets

Comment?

R 28 octets

C (gcc) , 64 octets

Java (JDK) , 47 octets

Haskell , 20 18 octets

J , 10 octets

Wolfram Language (Mathematica) , 15 octets

JavaScript (ES6), 30 octets

MATL , 9 octets

Explication

PHP (7.4), 35 octets

K (oK) , 15 14 octets

Rouge , 31 29 octets

PowerShell , 34 octets

Scratch 3.0 24 23 blocs / 239 228 octets

Historique des réponses

Pyth , 13 octets

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

Japt , 8 octets

TI-Basic , 12 octets (12 jetons)

Retina 0.8.2 , 102 octets

Rubis , 25 23 21 octets

Perl 6 , 21 octets

Octave , 21 octets

MathGolf , 7 6 octets

Icône , 53 octets

Facteur , 46 octets

Lot, 111 octets

APL (Dyalog Unicode) , 9 octets ^SBCS

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

Rubis , ²⁵ ²³ 21 octets