pengantar

Dengan serangkaian persentase pilihan dalam jajak pendapat, hitung jumlah pemilih minimum yang harus ada dalam jajak pendapat untuk menghasilkan statistik tersebut.

Contoh: Apa peliharaan kesayangan Anda?

• Anjing: 44.4%
• Kucing: 44.4%
• Mouse: 11.1%

Output: 9(minimum yang mungkin # dari pemilih)

Spesifikasi

Berikut persyaratan untuk program / fungsi Anda:

• Anda diberi array nilai persentase sebagai input (pada stdin, sebagai argumen fungsi, dll.)
• Setiap nilai persentase adalah angka yang dibulatkan ke satu tempat desimal (misalnya, 44.4 44.4 11.1).
• Hitung jumlah pemilih minimum yang mungkin dalam jajak pendapat yang hasilnya akan menghasilkan persentase yang tepat ketika dibulatkan ke satu tempat desimal (pada stdout, atau nilai pengembalian fungsi).
• Bonus : -15 karakter jika Anda dapat menyelesaikan dengan cara "non-sepele" (yaitu, tidak melibatkan iterasi melalui setiap # pemilih yang mungkin sampai Anda menemukan yang pertama yang berfungsi)

Contoh

>./pollreverse 44.4 44.4 11.1
9
>./pollreverse 26.7 53.3 20.0
15
>./pollreverse 48.4 13.7 21.6 6.5 9.8
153
>./pollreverse 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 99.6
2000
>./pollreverse 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 98.7
667
>./pollreverse 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 98.7
2000
>./pollreverse 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 97.8
401

Mencetak gol

Ini adalah kode-golf, sehingga karakter terpendek yang mungkin menang. Bonus apa pun dikurangi lebih lanjut dari jumlah karakter total.

APL (Dyalog Classic) , 48 43 byte

-5 byte oleh Adám

+/0(⊢+{(⌈/⍷⊢)⍺-⍵÷+/⍵})⍣{z≡⍎3⍕⍺÷+/⍺}⍨z←.01×⎕

Program penuh mengambil input dari stdin.

Cobalah online! Tautan ke versi dfn.

Tidak disatukan

normalize ← ⊢ ÷ +/
find_max ← {⍵⍷⍨⌈/⍵}
round ← {⍎3⍕⍵}
increase ← {find_max ⍺ - normalize ⍵}
vote_totals ← {z←⍺ ⋄ ⍺ (⊢+increase)⍣{z ≡ round normalize ⍺} ⍵}
h ← {+/ (.01×⍵) vote_totals 0}

Cobalah online!

• normalizemembagi ( ÷) semua elemen argumen kanannya ( ⊢) dengan jumlahnya ( +/).
• round(y)membulatkan y ke 3 tempat desimal dengan memformat ( ⍕) dan kemudian mengevaluasi ( ⍎) setiap elemen y.
• find_max(y) mengembalikan array dengan 1 di mana maks (y) ditemukan dan 0 di tempat lain.
• increase(x,y) mengambil x (persentase sasaran) dan y (array total suara saat ini) dan menghitung di mana menambahkan 1 dalam y untuk membawa persentase lebih dekat ke x.
• vote_totals(x,y) mengambil x (persentase sasaran) dan y (total suara awal) dan mengeksekusi f berulang kali, menambahkan suara sampai persentase putaran ke x.
  • Sintaks f ⍣ gberarti mengeksekusi fberulang kali sampai g(y,f(y))benar. Dalam hal ini kita abaikan f(y).
• h(x) set y ke 0 (setara dengan array 0s karena vektorisasi), mengeksekusi g, dan menjumlahkan total suara akhir.

Python, 154

def p(x):
 n=[1]*len(x);d=2;r=lambda z:round(1000.*z/d)/10
 while 1:
    if(map(r,n),sum(n))==(x,d):return d
    d+=1
    for i in range(len(x)):n[i]+=r(n[i])<x[i]

Ini berfungsi untuk contoh terakhir sekarang.

Contoh berjalan:

>>> p([44.4, 44.4, 11.1])
9
>>> p([26.7, 53.3, 20.0])
15
>>> p([48.4, 13.7, 21.6, 6.5, 9.8])
153
>>> p([0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 99.6])
2000
>>> p([0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 0.1, 98.7])
667
>>> p([0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 98.7])
2000
>>> p([0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 0.2, 97.8])
401

J, 57 karakter

t=:".>'1'8!:0|:100*%/~i.1001
{.I.*/"1(t{~i.#t)e."1~1!:1[1

Menggunakan metode trivial. Dibutuhkan input dari keyboard. tmembuat tabel pencarian dan baris kedua mencari input di dalam tabel. Saya dapat memberikan penjelasan kode yang diperluas jika ada yang tertarik.

Saya telah melihat ke dalam menggunakan persentase untuk membuat pecahan kemudian mendapatkan bentuk pecahan terendah untuk mencari tahu angka, tetapi saya tidak bisa menemukan cara untuk membuatnya bekerja dengan pembulatan hasil.

Python, 154

def r(l):
 v=0
 while 1:
  v+=1;o=[round(y*v/100)for y in l];s=sum(o)
  if s: 
    if all(a==b for a,b in zip(l,[round(y*1000/s)/10for y in o])):return s

VBA - 541

Ini memiliki beberapa kesalahan mencolok, tetapi itu adalah usaha saya untuk menemukan solusi non-sepele / perulangan-sampai-saya-dapatkan-nomor-yang benar. Saya belum sepenuhnya bermain golf, meskipun saya pikir tidak banyak yang bisa ditambahkan dalam hal itu. Namun, saya telah menghabiskan terlalu banyak waktu untuk hal ini, dan itu menyakitkan kepala saya sekarang. Belum lagi, aturannya mungkin sangat rusak dan berlaku kurang lebih hanya untuk contoh-contoh ini saja.

Ini sangat baik untuk banyak tes sederhana yang saya jalankan, (yaitu bahkan total, 2 atau 3 input) tetapi gagal untuk beberapa tes yang disajikan oleh tantangan. Namun, saya menemukan bahwa jika Anda meningkatkan ketepatan desimal input (di luar lingkup tantangan), akurasi meningkat.

Sebagian besar pekerjaan melibatkan menemukan gcd untuk set angka yang disediakan, dan saya agak berhasil Function g(), meskipun pasti tidak lengkap dan kemungkinan menjadi sumber setidaknya beberapa kesalahan dalam output saya.

Input adalah string nilai yang dibatasi ruang.

Const q=10^10
Sub a(s)
e=Split(s)
m=1
f=UBound(e)
For i=0 To f
t=1/(e(i)/100)
m=m*t
n=IIf(n>t Or i=0,t,n)
x=IIf(x<t Or i=0,t,x)
Next
h=g(n,x)
i=(n*x)/(h)
If Int(i)=Round(Int(i*q)/q) Then
r=i
ElseIf (n+x)=(n*x) Then
r=(1/(n*x))/h/m
ElseIf x=Int(x) Then
r=x*(f+1)
Else
z=((n+x)+(n*x)+m)*h
y=m/(((m*h)/(f+1))+n)
r=IIf(y>z,z,y)
End If
Debug.Print Round(r)
End Sub
Function g(a,b)
x=Round(Int(a*q)/q,3)
y=Round(Int(b*q)/q,3)
If a Then
If b Then
If x>y Then
g=g(a-b,b)
ElseIf y>x Then
g=g(a,b-a)
Else
g=a
End If
End If
Else
g=b
End If
End Function

Testcases (input ==> diharapkan / dikembalikan):

Passed:  

"95 5" ==> 20/20
"90 10" ==> 10/10
"46.7 53.3" ==> 15/15
"4.7 30.9 40.4 23.8" ==> 42/42
"44.4 44.4 11.1" ==> 9/9
"26.7 53.3 20.0" ==> 15/15
"48.4 13.7 21.6 6.5 9.8" ==> 153/153
"0.05 0.05 0.05 0.05 0.05 0.05 0.05 0.05 0.05 99.55" ==> 2000/2000
"0.15 0.15 0.15 0.15 0.15 0.15 0.15 0.15 0.15 98.65" ==> 2000/2000
"0.149925 0.149925 0.149925 0.149925 0.149925 0.149925 0.149925 0.149925 0.149925 98.65067" ==> 667/667


Failed:  

"0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 99.6" ==> 2000/1000
"0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 98.7" ==> 2000/5000
"0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 0.1 98.7" ==> 667/1000
"0.14 0.14 0.14 0.14 0.14 0.14 0.14 0.14 0.14 98.65" ==> 667/10000
"0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 0.2 97.8" ==> 401/500
"0.24 0.24 0.24 0.24 0.24 0.24 0.24 0.24 0.24 97.75" ==> 401/235
"0.249377 0.249377 0.249377 0.249377 0.249377 0.249377 0.249377 0.249377 0.249377 97.75561" ==> 401/14010

C # (.NET Core) , 286 byte

double M(string[]a){var p=a.Select(double.Parse).ToList();var n=p.Select(x=>1d).ToList();var c=2;for(;;){Func<double,double>f=x=>Math.Round(x*1000/c,(MidpointRounding)1)/10;if(n.Select(f).Zip(p,(x,y)=>x==y).All(z=>z)&&c==n.Sum())return c;c++;n=n.Zip(p,(x,y)=>x+(f(x)<y?1:0)).ToList();}}

Cobalah online!

Menyimpan banyak byte berkat Peter Taylor dan Perwujudan Ketidaktahuan

Python 3 , 140 139 137 byte

f=lambda l,m=1,i=0,c=0,x=0:round(x*100,1)-l[i]and(x<1and f(l,m,i,c,x+1/m)or f(l,m+1))or l[i+1:]and f(l,m,i+1,c+x)or c+x-1and f(l,m+1)or m

Cobalah online!

Memberikan jawaban yang tepat untuk dua kasus uji pertama, dan mengalami batas rekursi Python untuk yang lain. Ini tidak terlalu mengejutkan, karena setiap pemeriksaan dilakukan pada tingkat rekursi baru. Pendek, meskipun ...

(Penjelasan tentang variabel yang digunakan dapat ditemukan di tautan TIO)

f=lambda l,m=1,i=0,c=0,x=1:round(x*100,1)-l[i]and(x and f(l,m,i,c,x-1/m)or f(l,m+1))or l[i+1:]and f(l,m,i+1,c+x)or c+x-1and f(l,m+1)or m

harus bekerja untuk 136 byte, tetapi bukan karena presisi float.