Bu mücadelede, C-faktörü denilen bir sayıyı bularak, bir oylamanın ne kadar tartışmalı olduğunu belirleyeceksiniz. İstediğiniz C faktörü nedir?

Bir seçimde birden fazla oyunuz olduğunu düşünün. Biz kullanacağız 1ve 0meydan uğruna bir seçimde iki farklı adayları temsil etmek. Örnek seçimlerimizde on oy var:

0110111011

Şimdi, aday için herhangi bir oylamanın C faktörünü bulmak istediğimizi varsayalım 0. Bunu aşağıdaki işlevle yapabiliriz:

In , biz C-faktörünü belirlemek istiyoruz oy ve oyların bir dizidir. Yani, fonksiyonumuzu kullanarak, aday için herhangi bir oyun C faktörünü elde etmek için :$f$ov0

Daha düşük bir C faktörü, oylamanın diğer oylara kıyasla daha az tartışmalı olduğunu göstermektedir. Dolayısıyla, bir adayın oyu 0, diğer oylardan aday için bir oydan daha farklıdır 1. Buna karşılık, bir aday 1oy için C faktörü , bu yüzden diğer oylara daha çok benzediği için daha az tartışmalıdır.$0.3$

Meydan okuma

Bir oylamanın sonuçları verildiğinde bir oylamanın C faktörünü belirlemek için fonksiyonunu yazın .$f(o,v)$ov

• o0veya bir tamsayı olmalıdır 1.

• v sıfır ve onlardan oluşan rastgele uzunluktaki bir dizi (veya dil özelliklerine bağlı olarak benzer bir kap tipi) olmalıdır.

• Fonksiyon, yukarıdaki formülü veya değiştirilmiş bir yöntemi kullanarak fonksiyon parametreleri verildiğinde ortaya çıkan C faktörünü konsola döndürmeli veya yazdırmalıdır.

İyi şanslar! En az bayt kazanır (kazanan beş günde seçilir).

Jöle , 3 bayt

ạÆm

Çevrimiçi deneyin!

Kelimenin tam anlamıyla "demek için mutlak fark".

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

Argümanları ters çevirirseniz atomları tersine çevirebilirsiniz.

R , 23 bayt

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

Çevrimiçi deneyin!

Zorluk v, o(yani mean(xor(o,v))) ' den farklı değerlerin oranını hesaplamakla ilgilidir . Bu nedenle kullanmaktan kaçınabiliriz abs.

APL (Dyalog Unicode) , 9 8 5 bayt

≠⌹⊢=⊢

Çevrimiçi deneyin!

Anonim tren. Kaydedilen bir bayt için @ Adám'a ve 3 bayt için @ ngn'ye teşekkürler!

Nasıl:

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

Aslında 3 bayt

♀^æ

Çevrimiçi deneyin!

Açıklama:

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

05AB1E , 3 bayt

ÅAα

Çevrimiçi deneyin!

Oktav , 16 bayt

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

Çevrimiçi deneyin!

Ataşesi , 11 8 bayt

Mean@`/=

Çevrimiçi deneyin! Gibi argümanlar alır f[o, v].

Çok orijinal bir şey yok.

Alternatif yaklaşımlar

11 bayt: Average@`/=

11 bayt: ${1-x~y/#y} sayar oluşumları xiçinde yuzunluğuna bölünmesi yve sonra o çıkarır 1.

11 bayt: {1-_2~_/#_} (Bunun için argümanlar ters çevrilir)

15 bayt: ${Sum[x/=y]/#y} Yukarıdakilerin daha açık bir sürümü, onsuz Average.

JavaScript, 38 bayt

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

Dene

Proton , 26 bayt

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

Çevrimiçi deneyin!

Proton daha iyi hassasiyet için normal Python numaraları yerine sympy kullandığından, çıktı bir kesirdir.

(-7 bayt; abs-diff ortalama abs-diff ortalamasından daha kısadır; aslında aptalım)

Rod sayesinde -1 bayt

Perl 6 , 20 bayt

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

Çevrimiçi deneyin!

* X!= *iki argümanının eşit olmayan çapraz ürününü alan anonim bir fonksiyondur. Bir dizi Boolean üretir; örneğin, olarak 1 X!= (1, 0, 1)değerlendirir (False, True, False).

{ @_.sum / @_ }argümanlarının ortalamasını döndüren başka bir anonim işlevdir. Boolean sayısal olarak ve olarak Truedeğerlendirir .1False0

oOperatör birine bu iki işlevi oluşturur.

Enlist , 3 bayt

nÆm

Çevrimiçi deneyin!

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

Dil, Jelly'den, Jelly'in kendi kodumla nasıl ayrıştırıldığının yapısını yeniden yaratmayı denemeye çalıştığım noktaya kadar çok büyük bir ilham kaynağı oldu.

Bay Xcoder sayesinde -1 bayt

Retina 0.8.2 , 27 bayt

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

Çevrimiçi deneyin! Kesir çıkarır. Açıklama: Birinci grup oher girişi yakalar ve ikinci grup yakalar v, koşullu ise üçüncü grubun yalnızca oy farklı olmadığında yakalanmasını sağlar. $#İstediğiniz gibi inşaat sonra ilgili yakalar sayısını döndürür.

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

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

Çevrimiçi deneyin!

K (Kona) , 17 bayt

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

Çevrimiçi deneyin!

Elm 0.19, 48 bayt

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

Online demo burada .

C (gcc) , 62 bayt

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

Çevrimiçi deneyin!

Olarak arayın f(int o, int *v, int length_of_v).

Japt v2.0a0, 6 bayt

aVx÷Vl

Dene

JavaScript (Node.js) , 47 42 bayt

@Arnauld değerinden -5 bayt

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

Çevrimiçi deneyin!

Java 8, 47 bayt

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

Çevrimiçi deneyin.

Veya alternatif olarak:

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

Çevrimiçi deneyin.

Her ikisi için girişler bir olan Supplier<DoubleStream>oyların listesi için vve doubleoy için o.

Açıklama:

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`

Ortak Lisp 49 bayt

Çözüm:

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

Çevrimiçi deneyin

Açıklama:

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

• reduce, tüm liste öğelerine bir işlev uygular (+ bu durumda)
• dinlenme sadece temel işlevdir, abs (o - ortalama (v))

Ruby , 31 bayt

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

Çevrimiçi deneyin!

Pyth, 4 bayt

aE.O

Açıklama:

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

Girdi şu biçimde:

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

önce oy dizisi ve ikinci aday.

Çevrimiçi deneyin!