_{Od jakiegoś czasu nie mieliśmy żadnych przyjemnych, łatwych wyzwań, więc zaczynamy.}

Biorąc pod uwagę listę liczb całkowitych większych niż $0$ i indeks jako dane wejściowe, wypisz procent pozycji przy danym indeksie całkowitej sumy listy.

Dane wyjściowe powinny być takie same, jak naturalna reprezentacja liczb zmiennoprzecinkowych / liczb całkowitych w twoim języku (liczba jednoargumentowa, dziesiętna, cyfry kościelne itp.). Jeśli zdecydujesz się zaokrąglić wynik w jakikolwiek sposób, musi on mieć co najmniej 2 miejsca po przecinku (w uzasadnionych przypadkach. $1.2$ nie musi być zaokrąglany, ale $1.20$ jest również całkowicie akceptowalny).

Indeksy mogą być indeksowane 1 lub 0 i zawsze będą się mieścić w granicach tablicy.

To jest golf golfowy , więc wygrywa najkrótszy kod w bajtach!

Przykłady

Użycie 1-indeksowane i zaokrąglone do 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

Lub jako trzy listy:

[[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 bajtów ^SBCS

Anonimowa funkcja ukrytej poprawki. Trwa indeks jako lewy argument i lista jako prawy argument.

100×⌷÷1⊥⊢

Wypróbuj online!

100 sto

× czasy

⌷ indeksowany element

÷ podzielony przez

1⊥ suma (dosł. ocena podstawy 1) z

⊢ właściwy argument

C # (interaktywny kompilator Visual C #) , 22 bajty

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

Wypróbuj online!

Python 3 , 26 bajtów

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

Nienazwana funkcja akceptująca liczbę całkowitą (indeks o indeksie 0) i listę zwracającą procent.

Wypróbuj online!

Galaretka , 7 bajtów

ị÷S}ȷ2×

Dyadyczny link akceptujący liczbę całkowitą, indeks oparty na jednym z lewej strony i listę liczb po prawej, która daje wartość procentową.

Wypróbuj online!

W jaki sposób?

ị÷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 bajtów

è²O/т*

Pełny program przyjmujący indeks, a następnie listę. Wykorzystuje indeksowanie 0.

Wypróbuj online!

W jaki sposób?

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

R 28 bajtów

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

Wypróbuj online!

C (gcc) , 64 bajty

0-indeksowane. Jedyną zabawną 1e2rzeczą była realizacja, czyli doubleoszczędność bajtu 100.!

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

Wypróbuj online!

Java (JDK) , 47 bajtów

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

Wypróbuj online!

Haskell ,  20  18 bajtów

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

Operator dynamiczny ( ?) przyjmujący indeks (0-indeksowany) po lewej stronie i listę po prawej, która daje wartość procentową.

Wypróbuj online!

J , 10 bajtów

100*{%1#.]

Wypróbuj online!

0-indeksowane

Wolfram Language (Mathematica) , 15 bajtów

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

Wypróbuj online!

Wprowadź jako list, index

JavaScript (ES6), 30 bajtów

Pobiera dane wejściowe jako (array)(index), gdzie indeks jest oparty na 0.

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

Wypróbuj online!

MATL , 9 bajtów

)1Gs/100*

Wypróbuj online!

Wyjaśnienie

          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

Wypróbuj online!

PHP (7.4), 35 bajtów

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

Wypróbuj online!

Indeks wejściowy jest oparty na 0.

K (oK) , 15 14 bajtów

-1 bajt dzięki ngn!

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

Wypróbuj online!

0-indeksowane

Czerwony , 31 29 bajtów

-2 bajty dzięki ErikF

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

Wypróbuj online!

PowerShell , 34 bajty

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

Wypróbuj online!

Parametry wstydu są tak cholernie drogie w PowerShell.

Scratch 3.0 24 23 bloki / 239 228 bajtów

Alternatywnie w składni 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

Zaoszczędź 11 bajtów dzięki @JoKing

Wypróbuj od zera

Historia odpowiedzi

Alternatywnie w składni 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

Wypróbuj od zera

Dane wejściowe mają postać:

item1
item2
...
itemN
index

Naprawdę powinienem przestać to robić dla siebie. Ale to jest bardzo fajne!

Pyth , 13 bajtów

c*100@hQeQshQ

Wypróbuj online!

Po raz pierwszy używam Pytha, więc zapewne są tu jakieś dość duże optymalizacje, ale nie wiem, gdzie one są ...

Indeks 0, przyjmuje dane wejściowe jako list, index

Perl 5 -ap -MList::Util=Sum , 19 bajtów

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

Wypróbuj online!

Weź listę, oddzieloną spacją w pierwszym wierszu, a indeks (oparty na 0) w drugim.

Japt , 8 bajtów

gV
*L/Vx

Spróbuj

TI-Basic , 12 bajtów (12 tokenów)

Prompt X
Ans(X)E2/sum(Ans

1-indeksowany

Pobiera listę Ansi pyta użytkownika o indeks

Przykładowy przebieg

Wyjaśnienie:

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 bajty

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

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

Wypróbuj online! Link zawiera przypadki testowe. Pobiera dane wejściowe jako index;list,.... Wyjaśnienie:

\d+
$*

Konwertuj na unary.

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

Indeksuj na liście.

,

Zsumuj listę.

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

Pomnóż żądaną wartość przez 10000 i podziel przez sumę z zaokrągleniem, dodając najpierw połowę sumy.

+`^..?$
0$&

Upewnij się, że wynik ma co najmniej trzy cyfry.

..$
.$&

Wstaw kropkę dziesiętną w drugim ostatnim miejscu.

Rubin , ^{25 23} 21 bajtów

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

Wypróbuj online!

Perl 6 , 21 bajtów

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

Wypróbuj online!

Proste rozwiązanie, ponieważ nie mogę używać parametrów curry z $bindeksowanym parametrem. Zabawniejsze rozwiązanie, które nie musi obsługiwać dwóch parametrów za pomocą rotatefunkcji:

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

Wypróbuj online!

Ale jest niestety o dwa bajty dłużej

Oktawa , 21 bajtów

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

Wypróbuj online!

MathGolf , 7 6 bajtów

§\Σ/♀*

Indeksowanie na podstawie 0.

Wypróbuj online.

Wyjaśnienie:

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

Ikona , 53 bajty

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

Wypróbuj online!

Jedyną interesującą rzeczą jest tutaj znalezienie sumy. Ikona była jednym z pierwszych języków posiadających generatory. !generuje wszystkie wartości listy, Lktóre są akumulowane s. Zwykle musimy pisać every s+:=!L, ale użyłem śledzenia wstecznego z &\z, który sprawdza, czy nieistniejąca zzmienna jest non-null, co nie jest, i wyciąga następną wartość z listy do wyczerpania.

Współczynnik , 46 bajtów

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

Wypróbuj online!

0-indeksowane

Partia, 111 bajtów

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

Pobiera dane wejściowe jako indeks, a listę jako argumenty wiersza polecenia. Uwaga: Działa tylko w przypadku wartości indeksu od 1do z 9powodu ograniczeń partii; można napisać wersję z indeksowaniem 0, która byłaby w stanie zindeksować pierwsze 10 elementów. Wyjaśnienie:

@shift

Przesuń indeks do %0i listę do %1... %9(lub mniej). Należy jednak pamiętać, że partia shiftnie ma wpływu %*.

@set s=%*

Uzyskaj wszystkie parametry oddzielone spacją.

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

Zmień spacje na +s i oblicz arytmetycznie, biorąc w ten sposób sumę, ale odejmij indeks. Następnie zindeksuj listę, pomnóż przez 10000, dodaj połowę sumy i podziel przez sumę. Na koniec dwukrotnie wykonaj divmod o 10, aby wygenerować miejsca dziesiętne. ( %Operator arytmetyczny ma specjalne znaczenie w partii i zwykle wymaga podwojenia, ale callwtedy wymaga dalszego podwojenia).

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

Wynik i miejsca dziesiętne.