У цьому виклику ви визначатимете, наскільки суперечливим є голосування, маючи ряд інших голосів, вирахувавши число, яке називається С-коефіцієнтом. Що ви запитуєте?

Ну, уявіть, ви отримали кілька голосів на виборах. Ми використаємо 1і 0заради завдання, щоб представляти двох різних кандидатів на виборах. Ось десять голосів на наших вибіркових виборах:

0110111011

Тепер, скажімо, ми хочемо знайти коефіцієнт С будь-якого голосу за кандидата 0. Це можна зробити за допомогою наступної функції:

В , це голосування , ми хочемо визначити C-фактор для, і є масивом голосів. Отож, використовуючи нашу функцію, отримати C-фактор будь-якого голосу за кандидата :$f$ov0

Нижчий коефіцієнт С показує, що голосування було менш суперечливим порівняно з іншими голосами. Отже, голосування за кандидата 0сильніше відрізняється від інших голосів, ніж голосування за кандидата 1. Для порівняння, коефіцієнт С для 1голосу кандидата становить , тому він є менш суперечливим, оскільки він більше схожий на інші голоси.$0.3$

Змагання

Напишіть функцію щоб визначити коефіцієнт С голосу за даними результатів голосування .$f(o,v)$ov

• oмає бути цілим числом, 0або 1.

• v повинен бути масив (або подібний тип контейнера залежно від мовних специфікацій) довільної довжини, що містить нулі та одиниці.

• Функція повинна повернути або надрукувати на консолі отриманий C-коефіцієнт з урахуванням параметрів функції, використовуючи формулу вище або модифікований метод.

Удачі! Виграє найменше байтів (переможця вибирають за п’ять днів).

Желе , 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)

Спробуйте в Інтернеті!

Attache , 11 8 байт

Mean@`/=

Спробуйте в Інтернеті! Приймає аргументи як f[o, v].

Нічого жахливо оригінального.

Альтернативні підходи

11 байт: Average@`/=

11 байт: ${1-x~y/#y} Вважає входження xв yподілене на довжину y, а потім віднімає , що з 1.

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 байт; abs-diff в середньому коротше, ніж середнє значення abs-diff; я фактично німий)

-1 байт завдяки Роду

Perl 6 , 20 байт

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

Спробуйте в Інтернеті!

* X!= *це анонімна функція, яка приймає нерівне поперечне добуток двох її аргументів. Він створює послідовність булевих; наприклад, 1 X!= (1, 0, 1)оцінює до (False, True, False).

{ @_.sum / @_ }- це ще одна анонімна функція, яка повертає середнє значення її аргументів. Булева Trueобчислюється 1чисельно, і Falseдо 0.

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

Мова дуже сильно надихає Джеллі до того, що, напевно, мені більше подобається експериментувати, щоб спробувати відтворити структуру того, як Jelly розбирається з моїм власним кодом.

-1 байт завдяки спадару Xcoder

Сітківка 0,8,2 , 27 байт

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

Спробуйте в Інтернеті! Виводить дріб. Пояснення: Перша група фіксує, oа друга група фіксує кожен запис v, тоді як умовна гарантує, що третя група здійснює захоплення лише тоді, коли голосування відрізняються. Потім $#конструкція повертає кількість відповідних захоплень за бажанням.

Perl 5 -MList::Util=sum , 30 байт

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

Спробуйте в Інтернеті!

К (Кона) , 17 байт

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

Спробуйте в Інтернеті!

В'яз 0,19, 48 байт

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та doubleдля голосування o.

Пояснення:

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 - означає (v))

Рубін , 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

з масивом голосів перший, а кандидат другий.

Спробуйте в Інтернеті!