Trong thử thách này, bạn sẽ xác định mức độ gây tranh cãi của một phiếu bầu, được đưa ra một loạt các phiếu bầu khác, bằng cách tìm ra một số gọi là yếu tố C. Yếu tố C là gì, bạn yêu cầu?

Chà, hãy tưởng tượng bạn đã có nhiều phiếu trong một cuộc bầu cử. Chúng tôi sẽ sử dụng 1và 0vì lợi ích của thách thức để đại diện cho hai ứng cử viên khác nhau trong một cuộc bầu cử. Dưới đây là mười phiếu trong cuộc bầu cử mẫu của chúng tôi:

0110111011

Bây giờ, giả sử chúng tôi muốn tìm yếu tố C của bất kỳ phiếu bầu nào cho ứng cử viên 0. Chúng ta có thể làm điều đó với chức năng sau:

Trong , là phiếu bầu mà chúng tôi muốn xác định yếu tố C và là một loạt phiếu bầu. Vì vậy, bằng cách sử dụng chức năng của chúng tôi, để có được yếu tố C của bất kỳ phiếu bầu nào cho ứng cử viên :$f$ov0

Một yếu tố C thấp hơn cho thấy rằng phiếu bầu ít gây tranh cãi hơn so với các phiếu khác. Vì vậy, một phiếu bầu cho ứng cử viên 0khác với các phiếu bầu khác hơn là một phiếu bầu cho ứng cử viên 1. So sánh, hệ số C cho 1phiếu bầu của ứng cử viên là , do đó ít gây tranh cãi hơn vì nó giống với các phiếu khác.$0.3$

Các thách thức

Viết hàm để xác định hệ số C của phiếu bầu cho kết quả bỏ phiếu .$f(o,v)$ov

• ophải là một số nguyên, 0hoặc 1.

• v phải là một mảng (hoặc loại thùng chứa tương tự tùy thuộc vào thông số kỹ thuật ngôn ngữ) có độ dài tùy ý chứa số không và số không.

• Hàm sẽ trả về hoặc in ra bàn điều khiển hệ số C kết quả được cung cấp cho các tham số chức năng, sử dụng công thức trên hoặc phương thức sửa đổi.

Chúc may mắn! Chiến thắng ít nhất byte (người chiến thắng được chọn trong năm ngày).

Thạch , 3 byte

ạÆm

Hãy thử trực tuyến!

Nghĩa đen chỉ là "sự khác biệt tuyệt đối với ý nghĩa".

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

Nếu bạn đảo ngược các đối số, bạn có thể đảo ngược các nguyên tử.

R , 23 byte

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

Hãy thử trực tuyến!

Thách thức tập trung vào việc tính toán tỷ lệ các giá trị vkhác với o(nghĩa là mean(xor(o,v))). Do đó chúng ta có thể tránh sử dụng abs.

APL (Dyalog Unicode) , 9 8 5 byte

≠⌹⊢=⊢

Hãy thử trực tuyến!

Tàu vô danh. Cảm ơn @ Adám đã lưu byte và cảm ơn @ngn vì 3 byte!

Làm sao:

≠⌹⊢=⊢ ⍝ 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.

Trên thực tế , 3 byte

♀^æ

Hãy thử trực tuyến!

Giải trình:

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

05AB1E , 3 byte

ÅAα

Hãy thử trực tuyến!

Octave , 16 byte

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

Hãy thử trực tuyến!

Tùy viên , 11 8 byte

Mean@`/=

Hãy thử trực tuyến! Đưa ra lập luận như f[o, v].

Không có gì khủng khiếp ban đầu.

Cách tiếp cận khác

11 byte: Average@`/=

11 byte: ${1-x~y/#y} Đếm lần xuất hiện của xtrong ychia cho chiều dài y, sau đó trừ rằng từ 1.

11 byte: {1-_2~_/#_} (Đối số được đảo ngược cho cái này)

15 byte: ${Sum[x/=y]/#y} Một phiên bản rõ ràng hơn ở trên, không có Average.

JavaScript, 38 byte

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

Thử nó

Proton , 26 byte

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

Hãy thử trực tuyến!

Đầu ra là một phân số vì Proton sử dụng sympy thay vì số Python thông thường để có độ chính xác tốt hơn.

(-7 byte; abs-diff có nghĩa là ngắn hơn trung bình của abs-diff; tôi thực sự bị câm)

-1 byte nhờ Rod

Perl 6 , 20 byte

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

Hãy thử trực tuyến!

* X!= *là một hàm ẩn danh lấy sản phẩm chéo không bằng của hai đối số của nó. Nó tạo ra một chuỗi Booleans; ví dụ, 1 X!= (1, 0, 1)đánh giá để (False, True, False).

{ @_.sum / @_ }là một hàm ẩn danh khác trả về mức trung bình của các đối số của nó. Boolean Trueđánh giá lại để 1số lượng, và Falseđể 0.

Các onhà điều hành soạn những hai chức năng thành một.

Nhập ngũ , 3 byte

nÆm

Hãy thử trực tuyến!

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

Ngôn ngữ được Jelly truyền cảm hứng rất nhiều đến mức có lẽ giống như tôi đang thử nghiệm để cố gắng tạo lại cấu trúc của cách Jelly được phân tích cú pháp bằng mã của riêng tôi.

-1 byte nhờ ông Xcoder

Võng mạc 0.8.2 , 27 byte

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

Hãy thử trực tuyến! Đầu ra một phần. Giải thích: Nhóm đầu tiên chụp ovà nhóm thứ hai chụp từng mục v, trong khi điều kiện đảm bảo rằng nhóm thứ ba chỉ thực hiện chụp khi phiếu không giống nhau. Việc $#xây dựng sau đó trả về số lượng các ảnh chụp có liên quan như mong muốn.

Perl 5 -MList::Util=sum , 30 byte

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

Hãy thử trực tuyến!

K (Kona) , 17 byte

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

Hãy thử trực tuyến!

Elm 0,19, 48 byte

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

Demo trực tuyến tại đây .

C (gcc) , 62 byte

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

Hãy thử trực tuyến!

Gọi như f(int o, int *v, int length_of_v).

Japt v2.0a0, 6 byte

aVx÷Vl

Thử nó

JavaScript (Node.js) , 47 42 byte

-5 byte từ @arnauld

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

Hãy thử trực tuyến!

Java 8, 47 byte

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

Hãy thử trực tuyến.

Hay cách khác:

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

Hãy thử trực tuyến.

Đối với cả hai đầu vào là một Supplier<DoubleStream>danh sách phiếu bầu vvà doublecho phiếu bầu o.

Giải trình:

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 byte phổ biến

Giải pháp:

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

Dùng thử trực tuyến

Giải trình:

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

• giảm áp dụng một hàm trên tất cả các thành phần danh sách (+ trong trường hợp này)
• phần còn lại chỉ là hàm cơ sở, abs (o - mean (v))

Ruby , 31 byte

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

Hãy thử trực tuyến!

Bình thường, 4 byte

aE.O

Giải trình:

       ( 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)

Đầu vào có định dạng:

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

với các phiếu bầu đầu tiên, và ứng cử viên thứ hai.

Hãy thử trực tuyến!