_{У нас не було жодних приємних, легких викликів протягом певного часу, тому ми йдемо.}

Враховуючи список цілих чисел, кожне з яких перевищує $0$ та індекс як вхідний, виведіть відсоток елемента за вказаним індексом від загальної суми списку.

Вихід має бути незалежним від того, яке природне представлення для плавців / цілих чисел у вашій мові (одинарні, десяткові, церковні цифри тощо). Якщо ви вирішите будь-яким способом округлювати результат, він повинен містити як мінімум 2 десяткових знаки (коли розумно. $1.2$ не потрібно округляти, але $1.20$ також цілком прийнятно).

Індекси можуть бути або 1-індексованими, або 0-індексованими, і завжди будуть знаходитись у межах масиву.

Це код-гольф , тому найкоротший код у байтах виграє!

Приклади

Використовуючи 1-індексований і округлий до 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

Або, як три списки:

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

APL (Dyalog Unicode) , 9 байт ^SBCS

Функція анонімного мовчання. Приймає індекс як лівий аргумент і список як аргумент правого.

100×⌷÷1⊥⊢

Спробуйте в Інтернеті!

100 сто

× разів

⌷ індексований елемент

÷ ділиться на

1⊥ сума (літ. база-1 оцінка)

⊢ правильний аргумент

C # (Visual C # Interactive Compiler) , 22 байти

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

Спробуйте в Інтернеті!

Python 3 , 26 байт

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

Безіменна функція, що приймає ціле число (індекс, індексований 0), і список, який повертає відсоток.

Спробуйте в Інтернеті!

Желе , 7 байт

ị÷S}ȷ2×

Дьядична посилання, що приймає ціле число, одноосновний індекс зліва та список чисел праворуч, який дає відсоток.

Спробуйте в Інтернеті!

Як?

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

05AB1E , 6 байт

è²O/т*

Повна програма з індексом, а потім список. Використовує 0-індексацію.

Спробуйте в Інтернеті!

Як?

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

R 28 байт

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

Спробуйте в Інтернеті!

C (gcc) , 64 байти

0-індексований. Єдиним цікавим бітом було усвідомлення того, що 1e2є doubleекономією байта 100.!

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

Спробуйте в Інтернеті!

Java (JDK) , 47 байт

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

Спробуйте в Інтернеті!

Haskell ,  20  18 байт

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

Діадичний оператор ( ?), що приймає (0-індексований) індекс зліва та список праворуч, який дає відсоток.

Спробуйте в Інтернеті!

J , 10 байт

100*{%1#.]

Спробуйте в Інтернеті!

0-індексований

Мова Вольфрама (Mathematica) , 15 байт

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

Спробуйте в Інтернеті!

Вхід як list, index

JavaScript (ES6), 30 байт

Приймає введення як (array)(index), де показник заснований на 0.

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

Спробуйте в Інтернеті!

MATL , 9 байт

)1Gs/100*

Спробуйте в Інтернеті!

Пояснення

          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

Спробуйте в Інтернеті!

PHP (7,4), 35 байт

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

Спробуйте в Інтернеті!

Індекс введення на основі 0.

K (oK) , 15 14 байт

-1 байт завдяки ngn!

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

Спробуйте в Інтернеті!

0-індексований

Червоний , 31 29 байт

-2 байти завдяки ErikF

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

Спробуйте в Інтернеті!

PowerShell , 34 байти

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

Спробуйте в Інтернеті!

Параметри сорому настільки дорогі в Powershell.

Scratch 3.0 24 23 блоки / 239 228 байт

Як варіант у синтаксисі 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 байт завдяки @JoKing

Спробуйте на нулі

Історія відповідей

Як варіант у синтаксисі 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

Спробуйте на нулі

Введення здійснюється у вигляді:

item1
item2
...
itemN
index

Я дійсно повинен перестати це робити собі. Але це дуже весело!

Pyth , 13 байт

c*100@hQeQshQ

Спробуйте в Інтернеті!

Перший раз, коли я використовував Pyth, можливо, тут були досить великі оптимізації, але я не знаю, де вони знаходяться ...

0-індекс, приймає введення як list, index

Perl 5 -ap -MList::Util=Sum , 19 байт

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

Спробуйте в Інтернеті!

Візьміть список, пробіл розділений у першому рядку, індекс (на основі 0) на другому.

Japt , 8 байт

gV
*L/Vx

Спробуй це

TI-Basic , 12 байт (12 жетонів)

Prompt X
Ans(X)E2/sum(Ans

1-індексований

Займає список Ansі запитує користувача на індекс

Приклад виконання

Пояснення:

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

Сітківка 0,8,2 , 102 байти

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

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

Спробуйте в Інтернеті! Посилання включає тестові випадки. Вводиться як " index;list,.... Пояснення:

\d+
$*

Перетворити в одинарне.

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

Індексуйте до списку.

,

Підсумуйте список.

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

Помножте бажане значення на 10000 і розділіть на суму з округленням, додавши спочатку половину суми.

+`^..?$
0$&

Переконайтесь, що результат має принаймні три цифри.

..$
.$&

Вставте десяткову крапку на другій останній позиції.

Рубі , ^{25 23} 21 байт

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

Спробуйте в Інтернеті!

Perl 6 , 21 байт

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

Спробуйте в Інтернеті!

Просте рішення, оскільки я не можу використовувати криві параметри з $bіндексованим параметром. Прикольне рішення, яке не має обробляти два параметри, використовуючи rotateзамість нього функцію:

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

Спробуйте в Інтернеті!

Але це, на жаль, на два байти довше

Октава , 21 байт

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

Спробуйте в Інтернеті!

MathGolf , 7 6 байт

§\Σ/♀*

Індексація на основі 0.

Спробуйте в Інтернеті.

Пояснення:

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

Ікона , 53 байти

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

Спробуйте в Інтернеті!

Єдине цікаве тут - знайти суму. Ікона була однією з перших мов, яка мала генератори. !генерує всі значення списку L, які накопичуються s. Зазвичай нам потрібно писати every s+:=!L, але я використовував зворотний трекінг &\z, який перевіряє, чи немає неіснуючої zзмінної non-null, а ні, і отримує наступне значення зі списку до вичерпання.

Фактор , 46 байт

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

Спробуйте в Інтернеті!

0-індексований

Пакетна, 111 байт

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

Вводить дані як індекс та список як аргументи командного рядка. Примітка: працює лише для значень індексу від 1до 9через обмеження Batch; може бути записана версія з індексом 0, яка могла б індексувати перші 10 елементів. Пояснення:

@shift

Перемістіть індекс %0і список на %1... %9(або менше). Зауважте, що партія shiftне впливає %*.

@set s=%*

Отримайте всі параметри, розділені пробілом

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

Змініть пробіли на +s і оцінюйте арифметично, беручи таким чином суму, але віднімайте індекс. Потім індексуйте список, помножте на 10000, додайте половину суми і діліть на суму. Нарешті виконайте дівмод на 10 разів, щоб створити десяткові знаки. ( %Арифметичний оператор має особливе значення в Batch і зазвичай його потрібно подвоїти, але callтоді потрібне подальше подвоєння.)

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

Виведіть результат і десяткові знаки.