_{У нас не было приятных, простых задач за последнее время, так что мы здесь.}

Учитывая список целых чисел, каждое из которых больше и индекс в качестве входных данных, выведите процентное содержание элемента по указанному индексу от общей суммы списка.$0$

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

Индексы могут быть либо 1-индексированными, либо 0-индексированными и всегда будут находиться в пределах массива.

Это код-гольф , поэтому выигрывает самый короткий код в байтах!

Примеры

Используя 1-индексированный и округленный до 2 дп

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 #) , 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-indexed) слева и список справа, который возвращает процент.

Попробуйте онлайн!

J , 10 байт

100*{%1#.]

Попробуйте онлайн!

0 индексированные

Wolfram Language (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.

К (ок) , 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.

Скретч 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)

Icon , 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, добавьте половину суммы и разделите на сумму. Наконец, выполните divmod на 10 дважды, чтобы получить десятичные разряды. ( %Арифметический оператор имеет особое значение в пакетном режиме и обычно должен быть удвоен, ноcall тогда требуется дальнейшее удвоение.)

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

Выведите результат и десятичные разряды.