Anda harus membuat lapangan golf 18-lubang secara acak.

Contoh output:

[3 4 3 5 5 4 4 4 5 3 3 4 4 3 4 5 5 4]

Aturan:

• Program Anda harus menampilkan daftar panjang lubang dengan tepat 18 lubang
• Setiap lubang harus memiliki panjang 3, 4 atau 5
• Panjang lubang harus ditambah hingga 72 untuk seluruh kursus
• Program Anda harus dapat menghasilkan setiap kemungkinan konfigurasi lubang dengan beberapa probabilitas non-nol (probabilitas masing-masing konfigurasi tidak harus sama, tetapi jangan ragu untuk mengklaim pujian tambahan jika ini masalahnya)

k ( 18 17 16 karakter)

Kembali ke pendekatan awal, beri kredit ke CS untuk peningkatan.

(+/4-){3+18?3}/0

Pendekatan lain (17 karakter), metode yang sama dengan solusi J, H / T ke CS

4+a,-a:9?2 -18?18

Versi lama:

(72-+/){18?3+!3}/0

Tidak rentan terhadap stack-overflow dan beroperasi dalam jumlah ruang yang tetap.

K, 28

{$[72=+/s:18?3 4 5;s;.z.s`]}

J, 20 18 17 karakter

(?~18){4+(,-)?9#2

Ini bekerja dengan cara yang sama seperti jawaban sebelumnya kecuali bahwa 9 angka acak adalah 0 atau 1 dan dinegasikan sebelum ditambahkan. Ini berarti ada -1s sebanyak ada 1s. Menambahkan 4 memberi saya daftar 3s, 4s dan 5s yang menambahkan hingga 72 setiap kali.

Jawaban sebelumnya:

({~?~@#)3+(,2-])?9#3

Hasilkan 9 lubang pertama secara acak ?9#3, kemudian salin dan balikkan (,2-])(mengubah 3 menjadi 5 dan 5 menjadi 3) untuk menghasilkan 9. final. Ini menjamin bahwa total akan menjadi 72 (karena setiap 3 akan memiliki pencocokan 5 yang total rata-rata per lubang adalah 4 dan 4x18 = 72). Itu kemudian secara acak mengocok hasilnya ({~?~@#)untuk memastikan bahwa setiap kombinasi adalah mungkin.

Kode mesin x86 16-bit di bawah MS-DOS - 45 byte

Hexdump:

0E5F576A12595188ECE44088C3E44130D8240374F400C4AAE2EF595E80FC2475DFAC0432CD29B020CD29E2F5C3

Biner kode Base64:

Dl9XahJZUYjs5ECIw+RBMNgkA3T0AMSq4u9ZXoD8JHXfrAQyzSmwIM0p4vXD

Kode sumber aktual dengan beberapa komentar:

 bits 16
 org 0x100

again:
 push cs               ; Save whatever CS we get.
 pop di                ; Use CS:DI as our course buffer..
 push di               ; Save for later use in the print loop
 push 18               ; We need 18 holes for our golf course.
 pop cx                ; ch = 0, cl = 18.
 push cx               ; Save for later use.
 mov ah, ch            ; Zero out ah.
generate_course:
 in al, 0x40           ; Port 0x40 is the 8253 PIT Counter 0.
 mov bl, al            ; Save the first "random" value in bl.
 in al, 0x41           ; Port 0x41 is the 8253 PIT Counter 1.
 xor al, bl            ; Add some more pseudo randomness.
 and al, 3             ; We only need the two lower bits.
 jz generate_course    ; If zero, re-generate a value, since we need only 3, 4, 5 holes.
 add ah, al            ; Sum in ah register.
 stosb                 ; Store in the course buffer.
 loop generate_course  ; Loop for 18 holes.
 pop cx                ; cx = 18.
 pop si                ; si = course buffer.
 cmp ah, 36            ; 72 holes?
 jne again             ; No, re-generate the whole course.

print:                 ; Yup, we have a nice course.
 lodsb                 ; Load the next hole.
 add al, '2'           ; Add ASCII '2' to get '3', '4' or '5'
 int 0x29              ; Undocumented MS-DOS print function.
 mov al, ' '           ; Print a space too for better readability.
 int 0x29              ; Print the character.
 loop print            ; Print the whole course.
 ret                   ; Return to the beginning of the PSP where a INT 0x20 happen to be.

Kompilasi dengan nasm 18h.asm -o 18h.comdan jalankan di bawah MS-DOS (atau Dosbox), atau NTVDM dari versi Windows 32-bit.

Output sampel:

4 5 4 5 4 5 3 4 3 4 3 4 4 5 4 3 5 3

Mathematica 71 68 66 60

Dengan 6 karakter disimpan oleh saran Tally.

RandomSample@RandomChoice@IntegerPartitions[72, {18}, {3, 4, 5}]

{5, 4, 3, 3, 5, 3, 5, 5, 3, 3, 4, 5, 3, 5, 4, 4, 5, 3}

Semua hasil yang mungkin adalah mungkin, tetapi mereka tidak memiliki kemungkinan yang sama.

Analisis

IntegerPartitions[72, {18}, {3, 4, 5}]

menghasilkan semua 10 partisi yang mungkin (kombinasi, bukan permutasi) dari 72 menjadi 18 elemen yang terdiri dari 3, 4 dan 5.

RandomChoice memilih salah satu dari itu.

RandomSample mengembalikan permutasi dari pilihan itu.

R - 41

x=0;while(sum(x)!=72)x=sample(3:5,18,T);x

# [1] 5 3 5 3 3 3 3 3 5 4 5 4 5 4 4 5 5 3

Algoritma ini mirip dengan @ sgrieve.

GolfScript (26 karakter)

{;0{3rand.3+@@+(}18*])}do`

Ada beberapa kesamaan yang jelas dengan solusi Ilmari, tetapi juga beberapa perbedaan yang jelas. Secara khusus, saya mengeksploitasi fakta bahwa par rata-rata adalah 4.

Python 77

Kode

from numpy.random import*;l=[]
while sum(l)!=72:l=randint(3,6,18)
print l

Keluaran

[3 4 4 5 3 3 3 5 4 4 5 4 5 3 4 4 5 4]

Impor benar-benar membunuh solusi ini. Menggunakan numpy untuk menghasilkan 18 angka antara 3 dan 5 dan terus menghasilkan daftar sampai jumlah daftar sama dengan 72.

GolfScript, 27 karakter

{;18{3.rand+}*].{+}*72-}do`

Menggunakan metode sampel penolakan yang sama dengan solusi Python sgrieve. Jadi, setiap output yang valid sebenarnya memiliki kemungkinan yang sama.

Q (25 karakter)

Asli (27)

while[72<>sum a:18?3 4 5];a

Output sampel

4 4 3 3 4 5 4 3 4 5 5 3 5 5 5 4 3 3

Sedikit lebih pendek (25)

{72<>sum x}{x:18?3 4 5}/0

JavaScript, 66 64 61 karakter

Sangat terinspirasi oleh TwoScoopsofPig (PHP) dan Joe Tuskan (JS).

for(a=[s=0];s!=72;)for(s=i=0;i<18;s+=a[i++]=Math.random()*3+3|0);a

for(a=[s=0];s-72;)for(s=i=0;i<18;s+=a[i++]=Math.random()*3+3|0)a

for(a=s=[];s;)for(i=18,s=72;i;s-=a[--i]=Math.random()*3+3|0)a

Python 2, 70 byte

from random import*
print sample(([3,5]*randint(0,9)+[4]*99)[:18],18)

Inilah yang lain, mirip dengan solusi sgrieve:

Python 2, 73 byte + probabilitas yang sama

from random import*
a=[]
while sum(a)-72:a=sample([3,4,5]*18,18)
print a

JavaScript, 116 99 65 byte

for(i=0,h=[];i<18;)h[i++]=5;while(h.reduce(function(a,b){return a+b})!=72){i=Math.random()*18|0;h[i]=[3,4,4][i%3]}h;

h=[0];while(h.reduce(function(a,b){return a+b})-72)for(i=0;i<18;h[i++]=[3,4,5][Math.random()*3|0])h

while(i%18||(a=[i=s=0]),s+=a[i++]=Math.random()*3+3|0,s-72|i-18)a

Python, 128 120 116 karakter

import random,itertools
random.choice([g for g in itertools.product(*(range(3,6)for l in range(18))) if sum(g)==72])

import pernyataan masih panjang pembunuh (hanya 23 karakter untuk mengimpor 2 fungsi di namespace)

saya harap Anda tidak memerlukan hasilnya dalam waktu dekat, karena kode ini pertama mengevaluasi semua solusi yang mungkin sebelum memilih satu secara acak. mungkin solusi paling lambat untuk masalah ini.

saya mengklaim pujian ekstra untuk probabilitas yang sama dari setiap konfigurasi ...

PHP - 77 Karakter

<?while(array_sum($a)!=72){for($i=0;18>$i;){$a[++$i]=rand(3,5);}}print_r($a);

Sama seperti solusi sgrieve, ini membangun daftar 18 lubang, memeriksa par total, dan mencetaknya atau menolaknya dan mencoba lagi. Anehnya, kedua solusi kami memiliki panjang yang sama.

Agak menjengkelkan, PHP tidak menawarkan fungsi array dengan singkatnya nama. Array_sum dan print_r membunuhku. Saran diterima.

Ruby 1.9 (62 karakter)

a=Array.new(18){[3,4,5].sample}until(a||[]).inject(:+)==72
p a

Rails (55 karakter)

Dalam $ rails cREPL (dalam folder Rails apa pun):

a=Array.new(18){[3,4,5].sample}until(a||[]).sum==72
p a

Catatan: Ia bekerja dengan Ruby 1.8 jika Anda menggunakan shuffle[0]bukan sample.

Lisp ( 78 69 karakter)

(do ((c () (mapcar (lambda (x) (+ 3 (random 3))) (daftar make 18))))) ((= (terapkan '+ c) 72) c))

(do((c()(loop repeat 18 collect(+ 3(random 3)))))((=(apply'+ c)72)c))

Ini agak mirip dengan solusi Python sgrieve.

Mulai dengan c sebagai NIL, periksa jumlah 72, the do "fungsi kenaikan" untuk c menghasilkan daftar 18 angka antara 3 dan 5, periksa 72 lagi, busa, bilas, ulangi.

Sangat menyegarkan untuk melihat dodan loopbermain golf bersama dengan baik.

C (123 chars) - upaya efisiensi

Pipa melalui wc dan itu akan menghasilkan semua solusi 44152809 dalam 10 detik ...

char s[19];g(d,t){int i;if(d--){for(i=51,t-=3;i<54;i++,t--)if(t>=3*d&&t<=5*d)s[d]=i,g(d,t);}else puts(s);}main(){g(18,72);}

Oh, well - tidak membaca pertanyaan dengan benar - tetapi mengingat kita menghasilkan semua solusi kemudian memilih yang acak dengan probabilitas yang sama adalah latihan scripting: P

Clojure - 55

(shuffle(mapcat #([[4 4][3 5]%](rand-int 2))(range 9)))

Trik yang cukup menyenangkan .... mengeksploitasi struktur matematika dari masalah yang harus ada persis 3 lubang par 5 lubang par.

Python 83

import random as r;x=[]
while sum(x)!=72:x=[r.randint(3,5) for i in 18*[0]]
print x

Seperti solusi sgrieve, tetapi tanpa numpy

Solusi Golfing Adrien Plisson: 120-> 108 karakter

import random as r,itertools as i
r.choice([g for g in i.product(*([3,4,5,6]for l in 18*[0]))if sum(g)==72])

MATLAB 53

x=[];
while sum(x)~=72
x=3+floor(rand(1,18)*3);
end
x

Keluaran :

x = 4 3 4 4 4 4 5 4 4 3 4 4 3 5 3 5 4 5

Jawa (61 karakter)

while(s!=72)for(i=0,s=0;i<18;i++)s+=3+(int)(Math.random()*3);

Output sampel:

5 4 3 4 5 3 4 4 3 5 4 4 4 4 3 4 4 5

C (94 karakter)

int h[18],s=0,i;
while(s!=72)for(i=s=0;i<18;s+=h[i++]=rand()%3+3);
while(i)printf("%d ",h[--i]);

Itu s=0 on line 1 mungkin tidak diperlukan, karena apa yang kemungkinan int diinisiasi akan sama 72? Saya hanya tidak suka membaca nilai yang tidak diinisialisasi dalam lurus C. Juga, ini mungkin memerlukan seedingrand() fungsi.

keluaran

3 3 3 4 5 5 3 3 4 5 5 4 3 4 5 5 5 3 

Script Bash shell (65 karakter)

shuf -e `for x in {0..8}
do echo $((r=RANDOM%3+3)) $((8-r))
done`

( Shuf berasal dari paket GNU coreutils. Juga, terima kasih Gareth.)

C # (143 non-spasi putih):

()=>{
  var n=new Math.Random().Next(10);
  Enumerable.Range(1,18)
    .Select((x,i)=>i<n?3:i>=18-n?5:4)
    .OrderBy(x=>Guid.NewGuid())
    .ForEach(Console.Write);
}

Haskell, 104 102 98 karakter.

import System.Random
q l|sum l==72=print l|1>0=main
main=mapM(\_->randomRIO(3::Int,5))[1..18]>>=q

Perl, 74

{@c=map{3+int rand 3}(0)x18;$s=0;$s+=$_ for@c;redo unless$s==72}print"@c"

Solusi alternatif:

@q=((3,5)x($a=int rand 9),(4,4)x(9-$a));%t=map{(rand,$_)}(0..17);print"@q[@t{sort keys%t}]"

TXR (99 karakter)

@(bind g@(for((x(gen t(+ 3(rand 3))))y)(t)((pop x))(set y[x 0..18])(if(= [apply + y]72)(return y))))

Ungkapan ini menghasilkan daftar malas acak dari angka acak dari 3 hingga 5:

(gen t (+ 3(rand 3)))  ;; t means true: while t is true, generate.

Sisa logikanya adalah loop sederhana yang memeriksa apakah 18 elemen pertama dari daftar ini berjumlah hingga 72. Jika tidak, ia akan memunculkan elemen dan mencoba lagi. The forLoop berisi sebuah blok implisit disebut nildan sebagainya(return ...) dapat digunakan untuk mengakhiri loop dan kembali nilai.

Perhatikan bahwa panjang 99 karakter termasuk baris baru yang berhenti, yang diperlukan.

APL 12

4+{⍵,-⍵}?9⍴2

Perhatikan bahwa saya memiliki indeks asal diatur ke 0, artinya array mulai dari 0. Anda dapat mengatur ini dengan ⎕IO←0.

R, 42 byte

a=0;while(sum(a)-72)a=sample(3:5,18,r=T);a

sample, secara default, menarik secara merata di antara nilai yang mungkin (di sini 3 4 5). r=Tsingkatan replace=TRUEdan memungkinkan sampel dengan penggantian.

CJam, 17 14 byte

CJam lebih baru dari tantangan ini, tetapi ini bukan jawaban terpendek, jadi itu tidak masalah.

Z5]Amr*I4e]mrp

Uji di sini.

Untuk mempertahankan total 72, masing 3- masing harus dipasangkan dengan 5. Jadi, inilah cara kerjanya:

Z5]            e# Push [3 5].
   Amr         e# Get a random number between 0 and 9.
      *        e# Repeat the [3 5] array that many times.
       I4e]    e# Pad the array to size 18 with 4s.
           mr  e# Shuffle the array.
             p e# Print it.