_{Kami belum memiliki tantangan yang menyenangkan dan mudah dalam beberapa saat, jadi inilah dia.}

Diberikan daftar bilangan bulat masing-masing lebih besar dari $0$ dan indeks sebagai input, output persentase item pada indeks yang diberikan dari total jumlah daftar.

Output harus berupa apa pun representasi alami untuk pelampung / bilangan bulat dalam bahasa Anda (unary, desimal, angka Gereja, dll.). Jika Anda memilih untuk membulatkan output dengan cara apa pun, itu harus memiliki minimal 2 tempat desimal (bila masuk akal. $1.2$ tidak perlu dibulatkan, tetapi $1.20$ juga dapat diterima).

Indeks dapat berupa indeks-1 atau indeks-0, dan akan selalu berada dalam batas-batas array.

Ini adalah kode-golf , jadi kode terpendek dalam byte menang!

Contohnya

Menggunakan 1-diindeks dan dibulatkan menjadi 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

Atau, sebagai tiga daftar:

[[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 byte ^SBCS

Fungsi infiks diam-diam anonim. Mengambil indeks sebagai argumen kiri dan daftar sebagai argumen kanan.

100×⌷÷1⊥⊢

Cobalah online!

100 seratus

× waktu

⌷ elemen yang diindeks

÷ dibagi dengan

1⊥ jumlah (lit. evaluasi base-1) dari

⊢ argumen yang benar

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

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

Cobalah online!

Python 3 , 26 byte

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

Fungsi tanpa nama yang menerima bilangan bulat (indeks-indeks 0) dan daftar yang mengembalikan persentase.

Cobalah online!

Jelly , 7 byte

ị÷S}ȷ2×

Tautan diad yang menerima bilangan bulat, indeks berbasis satu di sebelah kiri dan daftar angka di sebelah kanan yang menghasilkan persentase.

Cobalah online!

Bagaimana?

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

è²O/т*

Program lengkap mengambil indeks kemudian daftar. Menggunakan pengindeksan 0.

Cobalah online!

Bagaimana?

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

R 28 byte

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

Cobalah online!

C (gcc) , 64 byte

Diindeks 0. Satu-satunya menyenangkan bit adalah kesadaran bahwa 1e2adalah double, menyimpan byte lebih 100.!

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

Cobalah online!

Java (JDK) , 47 byte

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

Cobalah online!

Haskell,  20  18 bytes

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

A dyadic operator (?) taking the (0-indexed) index on the left and a list on the right which yields the percentage.

Try it online!

J, 10 bytes

100*{%1#.]

Try it online!

0-indexed

Wolfram Language (Mathematica), 15 bytes

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

Try it online!

Input as list, index

JavaScript (ES6), 30 bytes

Takes input as (array)(index), where index is 0-based.

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

Try it online!

MATL, 9 bytes

)1Gs/100*

Try it online!

Explanation

          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

Try it online!

PHP (7.4), 35 bytes

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

Try it online!

Input index is 0-based.

K (oK), 15 14 bytes

-1 byte thanks to ngn!

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

Try it online!

0-indexed

Red, 31 29 bytes

-2 bytes thanks to ErikF

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

Try it online!

PowerShell, 34 bytes

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

Try it online!

Shame parameters are so dang expensive in Powershell.

Gores 3.0 24 23 blok / 239 228 byte

Atau dalam sintaks 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

Disimpan 11 byte berkat @ JoKing

Cobalah dari awal

Jawab Sejarah

Atau dalam sintaks 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

Cobalah dari awal

Masukan dalam bentuk:

item1
item2
...
itemN
index

Aku benar-benar harus berhenti melakukan ini pada diriku sendiri. Tapi ini sangat menyenangkan!

Pyth , 13 byte

c*100@hQeQshQ

Cobalah online!

Pertama kali menggunakan Pyth jadi mungkin ada beberapa optimasi yang cukup besar di sini, tapi saya tidak tahu di mana mereka ...

0-index, menerima input sebagai list, index

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

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

Cobalah online!

Ambil daftar, spasi terpisah pada baris pertama, indeks (berbasis 0) pada baris kedua.

Japt , 8 byte

gV
*L/Vx

Cobalah

TI-Basic , 12 byte (12 token)

Prompt X
Ans(X)E2/sum(Ans

1-diindeks

Membawa daftar Ansdan meminta pengguna untuk indeks

Contoh dijalankan

Penjelasan:

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

Retina 0.8.2 , 102 byte

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

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

Cobalah online! Tautan termasuk kasus uji. Mengambil input sebagai index;list,.... Penjelasan:

\d+
$*

Konversikan ke unary.

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

Indeks ke dalam daftar.

,

Jumlahkan daftar.

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

Lipat gandakan nilai yang diinginkan dengan 10000 dan bagi dengan jumlah dengan pembulatan dengan menambahkan setengah dari jumlah pertama.

+`^..?$
0$&

Pastikan bahwa hasilnya memiliki setidaknya tiga digit.

..$
.$&

Masukkan titik desimal di posisi terakhir kedua.

Ruby , ^{25 23} 21 byte

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

Cobalah online!

Perl 6 , 21 byte

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

Cobalah online!

Solusi sederhana, karena saya tidak bisa menggunakan parameter curried dengan $bparameter diindeks. Solusi funner yang tidak harus menangani dua parameter dengan menggunakan rotatefungsi sebagai gantinya:

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

Cobalah online!

Tapi sayangnya dua byte lebih lama

Oktaf , 21 byte

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

Cobalah online!

MathGolf , 7 6 byte

§\Σ/♀*

Pengindeksan berbasis 0.

Cobalah online.

Penjelasan:

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

Ikon , 53 byte

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

Cobalah online!

Satu-satunya hal yang menarik di sini adalah menemukan jumlahnya. Ikon adalah salah satu bahasa pertama yang memiliki generator. !menghasilkan semua nilai daftar Lyang diakumulasikan s. Biasanya kita perlu menulis every s+:=!L, tetapi saya menggunakan backtracking &\z, yang memeriksa apakah zvariabel tidak ada non-null, yang tidak, dan mengekstrak nilai berikutnya dari daftar sampai kelelahan.

Faktor , 46 byte

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

Cobalah online!

Diindeks 0

Batch, 111 byte

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

Takes input as index and list as command-line arguments. Note: Only works for index values from 1 to 9 due to limitations of Batch; a 0-indexed version could be written which would be able to index the first 10 elements. Explanation:

@shift

Shift the index to %0 and the list to %1...%9 (or less). Note however that Batch's shift does not affect %*.

@set s=%*

Get all of the parameters, space separated.

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

Ubah spasi menjadi +s dan evaluasi secara hitung, sehingga mengambil jumlah, tetapi kurangi indeks. Kemudian indeks ke dalam daftar, kalikan dengan 10.000, tambahkan setengah dari jumlah, dan bagi dengan jumlah. Akhirnya lakukan divmod sebanyak 10 kali untuk menghasilkan tempat desimal. ( %Operator aritmatika memiliki arti khusus dalam Batch dan biasanya perlu digandakan tetapi callkemudian membutuhkan penggandaan lebih lanjut.)

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

Keluarkan hasilnya dan tempat desimal.