En este desafío, determinará qué tan controvertido es un voto, dada una serie de otros votos, al descubrir un número llamado factor C. ¿Cuál es el factor C, preguntas?

Bueno, imagina que tienes varios votos en una elección. Usaremos 1y 0por el bien del desafío representar a dos candidatos diferentes en una elección. Aquí están los diez votos en nuestra elección de muestra:

0110111011

Ahora, digamos que queremos encontrar el factor C de cualquier voto por candidato 0. Podemos hacer eso con la siguiente función:

En , es el voto para el que queremos determinar el factor C, y es un conjunto de votos. Entonces, usando nuestra función, para obtener el factor C de cualquier voto por candidato :$f$ov0

Un factor C más bajo muestra que el voto fue menos controvertido en comparación con los otros votos. Entonces, un voto por candidato 0es más diferente de los otros votos que un voto por candidato 1. En comparación, el factor C para un 1voto de candidato es , por lo que es menos controvertido porque se parece más a los otros votos.$0.3$

El reto

Escriba una función para determinar el factor C de un voto dados los resultados de un voto .$f(o,v)$ov

• odebe ser un número entero, ya sea 0o 1.

• v debe ser una matriz (o un tipo de contenedor similar según las especificaciones del idioma) de longitud arbitraria que contenga ceros y unos.

• La función debe devolver o imprimir en la consola el factor C resultante dados los parámetros de la función, utilizando la fórmula anterior o un método modificado.

¡Buena suerte! El menor número de bytes gana (ganador elegido en cinco días).

Jalea , 3 bytes

ạÆm

Pruébalo en línea!

Literalmente solo "diferencia absoluta para significar".

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

Si inviertes los argumentos, puedes invertir los átomos.

R , 23 bytes

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

Pruébalo en línea!

El desafío se reduce a calcular la proporción de valores en vdiferentes de o(es decir, mean(xor(o,v))). Por lo tanto, podemos evitar el uso abs.

APL (Dyalog Unicode) , 9 8 5 bytes

≠⌹⊢=⊢

Pruébalo en línea!

Tren anónimo ¡Gracias a @ Adám por un byte guardado, y gracias a @ngn por 3 bytes!

Cómo:

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

En realidad , 3 bytes

♀^æ

Pruébalo en línea!

Explicación:

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

05AB1E , 3 bytes

ÅAα

Pruébalo en línea!

Octava , 16 bytes

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

Pruébalo en línea!

Adjunto , 11 8 bytes

Mean@`/=

Pruébalo en línea! Toma argumentos como f[o, v].

Nada terriblemente original.

Aproximaciones alternativas

11 bytes: Average@`/=

11 bytes: ${1-x~y/#y} cuenta las ocurrencias de xin ydividido por la longitud de y, luego resta de 1.

11 bytes: {1-_2~_/#_} (Los argumentos se invierten para este)

15 bytes: ${Sum[x/=y]/#y} una versión más explícita de lo anterior, sin Average.

JavaScript, 38 bytes

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

Intentalo

Protón , 26 bytes

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

Pruébalo en línea!

El resultado es una fracción porque Proton usa números sympy en lugar de Python regulares para una mejor precisión.

(-7 bytes; abs-diff a mean es más corto que la media de abs-diff; en realidad soy tonto)

-1 byte gracias a Rod

Perl 6 , 20 bytes

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

Pruébalo en línea!

* X!= *es una función anónima que toma el producto cruzado no igual de sus dos argumentos. Produce una secuencia de booleanos; por ejemplo, 1 X!= (1, 0, 1)evalúa a (False, True, False).

{ @_.sum / @_ }es otra función anónima que devuelve el promedio de sus argumentos. Boolean Trueevalúa 1numéricamente y Falsea 0.

El ooperador compone esas dos funciones en una.

Aliste , 3 bytes

nÆm

Pruébalo en línea!

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

El lenguaje está muy inspirado por Jelly hasta el punto de que probablemente sea más como si yo estuviera experimentando para tratar de recrear la estructura de cómo Jelly se analiza con mi propio código.

-1 byte gracias al Sr. Xcoder

Retina 0.8.2 , 27 bytes

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

Pruébalo en línea! Produce una fracción. Explicación: El primer grupo captura oy el segundo grupo captura cada entrada de v, mientras que el condicional garantiza que el tercer grupo solo realice una captura cuando el voto es diferente. La $#construcción devuelve el recuento de las capturas relevantes según lo deseado.

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

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

Pruébalo en línea!

K (Kona) , 17 bytes

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

Pruébalo en línea!

Elm 0.19, 48 bytes

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

Demostración en línea aquí .

C (gcc) , 62 bytes

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

Pruébalo en línea!

Llamar como f(int o, int *v, int length_of_v).

Japt v2.0a0, 6 bytes

aVx÷Vl

Intentalo

JavaScript (Node.js) , 47 42 bytes

-5 bytes de @arnauld

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

Pruébalo en línea!

Java 8, 47 bytes

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

Pruébalo en línea.

o alternativamente:

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

Pruébalo en línea.

Para ambas, las entradas son Supplier<DoubleStream>para la lista de votos vy doublepara la votación o.

Explicación:

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 común 49 bytes

Solución:

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

Pruébalo en línea

Explicación:

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

• reducir aplica una función sobre todos los elementos de la lista (+ en este caso)
• el resto es solo la función base, abs (o - mean (v))

Ruby , 31 bytes

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

Pruébalo en línea!

Pyth, 4 bytes

aE.O

Explicación:

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

La entrada tiene el formato de:

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

con el conjunto de votos primero, y el candidato segundo.

Pruébalo en línea!