_{เราไม่ได้มีความท้าทายที่ดีและง่ายในขณะที่ดังนั้นเราไปที่นี่}

ให้ลิสต์ของจำนวนเต็มแต่ละรายการที่มากกว่า$0$และดัชนีเป็นอินพุทเอาท์พุทเปอร์เซ็นต์ของรายการที่ดัชนีที่กำหนดของผลรวมทั้งหมดของรายการ

เอาท์พุทควรเป็นอะไรก็ตามที่เป็นตัวแทนตามธรรมชาติสำหรับลอย / จำนวนเต็มอยู่ในภาษาของคุณ (unary, ทศนิยม, เลขคริสตจักร ฯลฯ ) หากคุณเลือกที่จะปัดเศษผลลัพธ์ในทางใดทางหนึ่งมันจะต้องมีทศนิยมอย่างน้อย 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 คอมไพเลอร์) , 22 ไบต์

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

ลองออนไลน์!

Python 3 , 26 ไบต์

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

ฟังก์ชั่นที่ไม่มีชื่อยอมรับจำนวนเต็ม (ดัชนี 0 ดัชนี) และรายการที่ส่งกลับร้อยละ

ลองออนไลน์!

เยลลี่ขนาด 7 ไบต์

ị÷S}ȷ2×

ลิงก์ dyadic ยอมรับจำนวนเต็มดัชนีหนึ่งรายการทางด้านซ้ายและรายการตัวเลขทางด้านขวาซึ่งให้เปอร์เซ็นต์

ลองออนไลน์!

อย่างไร?

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

ตัวดำเนินการ dyadic ( ?) รับดัชนี (0-indexed) ทางด้านซ้ายและรายการทางด้านขวาซึ่งให้เปอร์เซ็นต์

ลองออนไลน์!

J , 10 ไบต์

100*{%1#.]

ลองออนไลน์!

0 การจัดทำดัชนี

ภาษา Wolfram (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-index รับอินพุตเป็น 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

คูณค่าที่ต้องการด้วย 10,000 แล้วหารด้วยผลรวมด้วยการปัดเศษโดยบวกครึ่งหนึ่งของผลรวมก่อน

+`^..?$
0$&

ตรวจสอบให้แน่ใจว่าผลลัพธ์มีอย่างน้อยสามหลัก

..$
.$&

แทรกจุดทศนิยมที่ตำแหน่งสุดท้ายที่สอง

Ruby , ^{25 23} 21 ไบต์

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

ลองออนไลน์!

Perl 6 , 21 ไบต์

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

ลองออนไลน์!

ทางออกที่ง่ายเนื่องจากฉันไม่สามารถใช้พารามิเตอร์ curried กับ$bพารามิเตอร์ที่ถูกทำดัชนี โซลูชัน funner ที่ไม่ต้องจัดการพารามิเตอร์สองตัวโดยใช้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แต่ฉันใช้ backtracking ด้วย&\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เนื่องจากข้อ จำกัด ของแบทช์ สามารถเขียนเวอร์ชัน 0 ที่จัดทำดัชนีซึ่งจะสามารถทำดัชนีองค์ประกอบ 10 อันดับแรก คำอธิบาย:

@shift

เลื่อนดัชนีไปที่%0และรายการเป็น%1... %9(หรือน้อยกว่า) โปรดทราบว่า Batch นั้นshiftจะไม่ส่งผลกระทบ%*ใด ๆ

@set s=%*

รับพารามิเตอร์ทั้งหมดคั่นด้วยช่องว่าง

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

เปลี่ยนช่องว่างเป็น+s และประเมินผลทางคณิตศาสตร์จึงหาผลรวม แต่ลบดัชนี จากนั้นสร้างดัชนีลงในรายการคูณด้วย 10,000 บวกครึ่งหนึ่งของผลรวมแล้วหารด้วยผลรวม ในที่สุดทำ divmod 10 ครั้งเพื่อสร้างตำแหน่งทศนิยม (ตัว%ดำเนินการทางคณิตศาสตร์มีความหมายพิเศษในแบทช์และโดยปกติจะต้องเพิ่มเป็นสองเท่า แต่callต้องเพิ่มเป็นสองเท่า)

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

แสดงผลลัพธ์และตำแหน่งทศนิยม