ในการท้าทายนี้คุณจะพิจารณาว่าการลงคะแนนเสียงเป็นอย่างไรให้คะแนนแบบอื่นโดยการหาตัวเลขที่เรียกว่า C-factor C-factor คืออะไรคุณถาม?

ลองจินตนาการว่าคุณได้รับการโหวตหลายครั้งจากการเลือกตั้ง เราจะใช้1และ0เพื่อความท้าทายในการเป็นตัวแทนผู้สมัครที่แตกต่างกันสองคนในการเลือกตั้ง นี่คือสิบคะแนนโหวตในการเลือกตั้งตัวอย่างของเรา:

0110111011

ตอนนี้บอกว่าเราต้องการที่จะหา C-ปัจจัยการโหวตใด ๆ 0สำหรับผู้สมัคร เราสามารถทำได้ด้วยฟังก์ชั่นต่อไปนี้:

ใน$f$ , oเป็นคะแนนเสียงที่เราต้องการที่จะตรวจสอบ C-ปัจจัยและvเป็นอาร์เรย์ของคะแนนเสียง ดังนั้นโดยใช้ฟังก์ชั่นของเราเพื่อรับ C-factor ของการโหวตสำหรับผู้สมัคร0:

C-factor ที่ต่ำกว่าแสดงให้เห็นว่าการโหวตนั้นมีความขัดแย้งน้อยกว่าเมื่อเปรียบเทียบกับการโหวตอื่น ๆ ดังนั้นการลงคะแนนเสียงให้ผู้สมัคร0มีมากขึ้นแตกต่างจากคะแนนโหวตอื่น ๆ 1นอกเหนือจากการลงคะแนนสำหรับผู้สมัคร ในการเปรียบเทียบปัจจัย C สำหรับการ1ลงคะแนนเสียงของผู้สมัครคือ$0.3$ดังนั้นจึงเป็นเรื่องที่ถกเถียงกันน้อยลงเพราะมันเหมือนกับการโหวตอื่น

ความท้าทาย

เขียนฟังก์ชั่น$f(o,v)$ในการกำหนด C-ปัจจัยของการลงคะแนนผลการได้รับการโหวตov

• oต้องเป็นจำนวนเต็มทั้งหรือ01

• v จะต้องเป็นอาร์เรย์ (หรือประเภทภาชนะที่คล้ายกันขึ้นอยู่กับข้อกำหนดของภาษา) ของความยาวโดยพลการที่มีศูนย์และคน

• ฟังก์ชั่นควรส่งคืนหรือพิมพ์ไปยังคอนโซลด้วยผลลัพธ์ C-factor ที่กำหนดพารามิเตอร์ของฟังก์ชันโดยใช้สูตรด้านบนหรือวิธีการแก้ไข

โชคดี! ไบต์ที่น้อยที่สุดชนะ (เลือกผู้ชนะในห้าวัน)

เยลลี่ 3 ไบต์

ạÆm

ลองออนไลน์!

แท้จริงแค่ "แตกต่างที่แท้จริงเพื่อหมายถึง"

ạÆm  Main link
ạ    Absolute difference
 Æm  Arithmetic Mean

หากคุณกลับข้อโต้แย้งคุณสามารถสลับกลับอะตอมได้

R , 23 ไบต์

function(o,v)mean(o!=v)

ลองออนไลน์!

ความท้าทายดังกล่าวทำให้เกิดการคำนวณสัดส่วนของค่าที่vแตกต่างจากo(เช่นmean(xor(o,v))) absดังนั้นเราจึงสามารถหลีกเลี่ยงการใช้

APL (Dyalog Unicode) , 9 8 5 ไบต์

≠⌹⊢=⊢

ลองออนไลน์!

รถไฟนิรนาม ขอบคุณ @ Adámสำหรับการบันทึกไบต์และขอบคุณ @ngn เป็นเวลา 3 ไบต์!

วิธี:

≠⌹⊢=⊢ ⍝ Anonymous Train
    ⊢ ⍝ The right argument (⍵)
  ⊢=  ⍝ Equals itself. Generates an array of 1s
≠     ⍝ XOR left (⍺) and right args; generates ⍵ or (not ⍵), depending on ⍺.
 ⌹    ⍝ Divide these matrices.

จริงแล้ว 3 ไบต์

♀^æ

ลองออนไลน์!

คำอธิบาย:

♀^æ
♀^   XOR each vote with candidate (0 if matches, 1 if not)
  æ  mean of the list

05AB1E , 3 ไบต์

ÅAα

ลองออนไลน์!

อ็อกเทฟ 16 ไบต์

@(a,b)mean(a!=b)

ลองออนไลน์!

ทูต , 11 8 ไบต์

Mean@`/=

ลองออนไลน์! f[o, v]ใช้อาร์กิวเมนต์เป็น

ไม่มีอะไรเป็นต้นฉบับอย่างมาก

วิธีการทางเลือก

11 ไบต์: Average@`/=

11 ไบต์: ${1-x~y/#y}นับการเกิดขึ้นของxในyหารด้วยความยาวของ แล้วลบที่มาจากy1

11 ไบต์: {1-_2~_/#_} (อาร์กิวเมนต์นี้ถูกย้อนกลับสำหรับอันนี้)

ไบต์ 15: รุ่นที่ชัดเจนมากขึ้นดังกล่าวข้างต้นโดยไม่ต้อง${Sum[x/=y]/#y}Average

JavaScript ขนาด 38 ไบต์

n=>a=>a.map(x=>n-=x/a.length)|n<0?-n:n

ลองมัน

โปรตอน 26 ไบต์

(o,v)=>1-v.count(o)/len(v)

ลองออนไลน์!

ผลลัพธ์เป็นเศษส่วนเนื่องจาก Proton ใช้ sympy แทนหมายเลข Python ปกติเพื่อความแม่นยำที่ดีขึ้น

(-7 bytes; abs-diff to mean สั้นกว่าค่าเฉลี่ยของ abs-diff; ฉันโง่จริง ๆ )

-1 ไบต์ต้องขอบคุณ Rod

Perl 6 , 20 ไบต์

{@_.sum/@_}o(*X!= *)

ลองออนไลน์!

* X!= *เป็นฟังก์ชั่นที่ไม่ระบุชื่อซึ่งรับค่าเท่ากับผลคูณไขว้ของอาร์กิวเมนต์สองตัว มันสร้างลำดับของบูลีน ตัวอย่างเช่นการประเมิน1 X!= (1, 0, 1)(False, True, False)

{ @_.sum / @_ }เป็นอีกฟังก์ชั่นนิรนามที่ส่งคืนค่าเฉลี่ยของการขัดแย้ง บูลีTrueประเมิน1ตัวเลขและการFalse0

oประกอบการสำรวมทั้งสองฟังก์ชั่นเป็นหนึ่งใน

รายการ , 3 ไบต์

nÆm

ลองออนไลน์!

nÆm  Main Link
n    Not Equals (returns a list of whether or not each element is unequal to to the value)
 Æm  Arithmetic Mean

ภาษาได้รับแรงบันดาลใจอย่างมากจากเจลลี่จนถึงจุดที่อาจเป็นมากกว่าที่ฉันกำลังทดลองเพื่อพยายามสร้างโครงสร้างของวิธีการแยกวิเคราะห์เจลลี่ด้วยรหัสของฉันเอง

-1 ไบต์ขอบคุณ Mr. Xcoder

เรติน่า 0.8.2 , 27 ไบต์

(.),((?(\1)|()).)*$
$#3/$#2

ลองออนไลน์! ส่งออกเศษส่วน คำอธิบาย: กลุ่มแรกจับภาพoและกลุ่มที่สองรวบรวมแต่ละรายการvในขณะที่เงื่อนไขทำให้มั่นใจได้ว่ากลุ่มที่สามทำการจับเฉพาะเมื่อการลงคะแนนแตกต่างกัน $#ก่อสร้างแล้วส่งกลับนับจับที่เกี่ยวข้องตามต้องการ

Perl 5 -MList::Util=sum , 30 ไบต์

sub f{abs((shift)-sum(@_)/@_)}

ลองออนไลน์!

K (Kona) , 17 ไบต์

{_abs+/y-x%.0+#x}

ลองออนไลน์!

Elm 0.19, 48 bytes

f a v=abs(v-(List.sum a/toFloat(List.length a)))

ออนไลน์สาธิตที่นี่

C (gcc) , 62 ไบต์

float f(o,v,l,k)int*v;{float r=0;for(k=l;k;)r+=v[--k]^o;r/=l;}

ลองออนไลน์!

โทรf(int o, int *v, int length_of_v)มา

Japt v2.0a0, 6 ไบต์

aVx÷Vl

ลองมัน

JavaScript (Node.js) , 47 42 ไบต์

-5 ไบต์จาก @arnauld

a=>b=>Math.abs(a-eval(b.join`+`)/b.length)

ลองออนไลน์!

Java 8, 47 ไบต์

v->o->(o-=v.get().sum()/v.get().count())<0?-o:o

ลองออนไลน์

หรืออีกทางหนึ่ง:

v->o->Math.abs(o-v.get().sum()/v.get().count())

ลองออนไลน์

สำหรับทั้งปัจจัยการผลิตที่มีSupplier<DoubleStream>รายชื่อลงคะแนนvและสำหรับการลงคะแนนเสียงdoubleo

คำอธิบาย:

v->o->                 // Method with DoubleStream-Supplier & double parameters and double return
  (o-=v.get().sum()    //  Get the sum of the DoubleStream-Supplier
      /v.get().count() //  Divide it by the amount of items in the DoubleStream-Supplier
      )                //  Subtract this from `o`
       <0?-o:o         //  And get the absolute value of this updated value `o`

Lisp สามัญ 49 ไบต์

สารละลาย:

(defun c(o v)(abs(- o(/(reduce'+ v)(length v)))))

ลองออนไลน์

คำอธิบาย:

(defun c(o v)
  (abs (- o (/ (reduce '+ v) (length v)))))

• ลดใช้ฟังก์ชั่นมากกว่าองค์ประกอบรายการทั้งหมด (+ ในกรณีนี้)
• ส่วนที่เหลือเป็นเพียงฟังก์ชันพื้นฐาน, abs (o - mean (v))

Ruby , 31 ไบต์

->o,v{v.count(1-o)/v.size.to_f}

ลองออนไลน์!

Pyth, 4 ไบต์

aE.O

คำอธิบาย:

       ( implicitly set Q = eval(input()) )
a      Absolute difference between
 E     eval(input()) (this is the second line of input taken)
  .O   and the average of
    Q  (implicit) Q (the first line of input)

อินพุตอยู่ในรูปแบบของ:

[0,1,1,0,1,1,1,0,1,1]
0

ด้วยการโหวตก่อนและผู้สมัครที่สอง

ลองออนไลน์!