В этом задании вы будете определять, насколько спорным является голосование, учитывая множество других голосов, вычисляя число, называемое С-фактором. Вы спросите, что такое С-фактор?

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

0110111011

Теперь, скажем, мы хотим найти C-фактор любого голоса за кандидата 0. Мы можем сделать это с помощью следующей функции:

В $f$ , oэто голосование , мы хотим определить C-фактор для, и vявляется массивом голосов. Итак, используя нашу функцию, чтобы получить C-фактор любого голоса за кандидата 0:

Более низкий C-фактор показывает, что голосование было менее спорным по сравнению с другими голосами. Таким образом, голосование за кандидата 0более отличается от других голосов, чем голосование за кандидата 1. Для сравнения, C-фактор для 1голосования кандидата равен , поэтому он менее спорный, потому что он больше похож на другие голоса.$0.3$

Соревнование

Напишите функцию чтобы определить C-фактор голосования с учетом результатов голосования .$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)

Попробуйте онлайн!

Атташе , 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 / @_ }это еще одна анонимная функция, которая возвращает среднее значение своих аргументов. Boolean 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 до такой степени, что, вероятно, мне больше нравится экспериментировать, пытаясь воссоздать структуру того, как Jelly анализируется с моим собственным кодом.

-1 байт благодаря мистеру 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}

Попробуйте онлайн!

Вяз 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`

Общий Лисп 49 байтов

Решение:

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

Попробуйте онлайн

Объяснение:

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

• Reduce применяет функцию ко всем элементам списка (в данном случае +)
• отдых - это просто базовая функция, abs (o - mean (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

с массивом голосов первым, а кандидат - вторым.

Попробуйте онлайн!