Dalam dadu standar (mati) angka-angkanya diatur sehingga wajah yang berlawanan menambah tujuh. Tuliskan program sesingkat mungkin dalam bahasa pilihan Anda yang menghasilkan lemparan acak diikuti oleh 9 tip acak. Tipping adalah seperempat putaran dadu, misalnya jika dadu menghadap ke 5, semua kemungkinan tip adalah 1,3,4 dan 6.
Contoh output yang diinginkan:
1532131356
Jawaban:
Anda mungkin perlu mengganti printdengan alertatau sesuatu yang lain, tergantung pada lingkungan JavaScript Anda.
for(C=L=T=0;C++<10;print(L=T))while(!(T-L&&T+L-7))T=Math.random()*6+1|0
Pesta
#/!bin/bash
f=`expr $RANDOM % 6`
f=`expr $f + 1`
printf "$f"
for ((i=0; i<9; i++))
do
((bad=7-$f))
next=`expr $RANDOM % 6`
next=`expr $next + 1`
while [ $next -eq $bad ] || [ $next -eq $f ]
do
next=`expr $RANDOM % 6`
next=`expr $next + 1`
done
printf "$next"
f=$next
done
kode sampel: http://ideone.com/CCfro
((var=expression))sangat bagus - saya pikir cara terpendek adalah var=$((expression))Tapi mengapa Anda menggunakannya sekali saja dan membuang banyak karakter pada expr di backticks?
for(i in 0:9)cat(F<-sample(setdiff(1:6,c(F,7-F)),1))
untuk ((i = 10, f = RANDOM% 6 +1; i -;)) lakukan printf $ f ((n = ACAK% 4 + 1, m = f <4? f: 7-f, f = n <m || ++ n <7-m? n: n + 1)) selesai
Gagasan utamanya adalah untuk memilih angka acak dalam [1, x] yang tidak sama dengan y Anda dapat memilih angka acak di [1, x-1] dan kemudian meningkat jika itu> = y. Untuk masalah ini kami ingin angka acak dalam [1,6] yang tidak sama dengan f atau 7-f. Kita harus melakukan dua tes dalam urutan min (f, 7-f), max (f, 7-f).
Dengan asumsi lingkungan yang awalnya kosong dapat menghemat 2 karakter dengan tidak menginisialisasi i dan mengubah kondisi loop menjadi i++<10
Sangat bermain golf dari jawaban Aman ZeeK Verma:
untuk ((i = 10, f = 0; i -;)) lakukan untuk ((n = f; n == f || n + f == 7; f = ACAK% 6 + 1)) lakukan: selesai printf $ f selesai
NB bisa dikatakan menyusut sebanyak 5 karakter dengan mengubah baris pertama menjadi for((;i++<10;))tetapi itu membuat asumsi yang tidak selalu valid. Ini akan bekerja ok di ideone tetapi seseorang yang menjalankannya dari shell bisa iatau fdiekspor ke sesuatu yang bukan nol.
man bash, saya merekomendasikannya. Saya pernah membacanya dari depan ke belakang, dan hanya memiliki gagasan yang samar tentang apa yang mungkin dan layak dicari telah membantu saya dengan baik.
-join(0..9|%{($d=1..6-ne(7-$d)-ne$d|random)})
Cukup sepele, sebenarnya. Saya membuat daftar kemungkinan gulungan dadu 1..6dan kemudian memilih hanya yang tidak sama dengan tujuh dikurangi gulungan terakhir dan kemudian hanya mereka yang tidak sama dengan gulungan terakhir. Dari daftar yang tersisa saya kemudian memilih item acak dan menugaskannya $d. Karena $dawalnya diperlakukan sebagai 0gulungan mati normal pertama kali.
Skrip uji:
for($i=0;$i-lt20;$i++){
$o=@(./tipping.ps1)
if ($i-gt0-and$o-eq$o2) { throw "Must have random output" }
if ($o.count-ne1) { throw "Must only have one line of output" }
if ($o[0]-match'[^1-6]'){ throw "Invalid characters" }
if($o[0].length-ne10){ throw "Wrong length: $($o[0].length)" }
$r=[char[]]($o[0])|%{$_-48}
for ($x=1;$x-lt$r.count;$x++){
if ($r[$x-1]+$r[$x]-eq7) { throw "Not a tipping: $($r[$x-1]) and $($r[$x])" }
}
$o2=$o
}
Sejarah:
The term 'random' is not recognized as a cmdlet, function, operable program, or script file. Verify the term and try again.
Get-Randomcmdlet tidak ada di v1.
Ini seharusnya bekerja tetapi sayangnya generator acak J macet setelah iterasi ke-3:
a=:>:i.6
f=:a#~1-(+&(a=])7&-)
((,(?4)&{@f@(_1&{))^:9)>:?6
6 4 5 4 5 4 5 4 5 4
(?4)cenderung digulung sekali dan diperlakukan sebagai konstanta untuk iterasi selanjutnya jika Anda tidak berhati-hati mengatasinya. Saya mengatasinya menggunakan (?@4:)konstruksi seperti.
(0..9).reduce([]){|m|m<<((1..6).to_a-[d=m[-1]||0,7-d]).shuffle[0]}
>:(?@4:{(i.6)-.],5&-)^:(<10)?6
6 2 3 5 4 2 4 1 3 6
Penjelasan (baca dari kanan ke kiri):
?6 mengembalikan angka acak antara 0 dan 5^:(<10)menerapkan fungsi 9 kali, mengumpulkan hasil sepanjang jalan. Fungsinya adalah:?@4:{(i.6)-.],5&-
] , 5&- mengembalikan array nomor input dan komplemennya ke 5 (saat ini kami menangani angka 0, sehingga jumlah wajah yang berlawanan adalah 5)(i. 6) -. menghapusnya dari set penuh bilangan bulat 0 hingga 5. Kami dibiarkan dengan semua posisi yang valid setelah satu operasi tip dari posisi input.?@4: { mengambil salah satu dari mereka secara acak.>: menambah seluruh urutan untuk mengembalikan angka ke interval 1 hingga 6.16 2f 25 08 41 20 17 30 16 2f 31 31 25 09 19 32
Begini cara kerjanya
16 2f 25 # make range from 1 to 6 and push random element
08 # start block
41 # duplicate top of stack twice
20 17 30 # negate top of stack and add 7
16 2f # push range from 1 to 6
31 31 # do set-wise difference with each of the two previous numbers
25 # push a random element from the list
09 # end block
19 32 # repeat block 9 times
Dua baris baru diperlukan dan dimasukkan dalam jumlah karakter masing-masing sebagai satu karakter.
RANDOMIZE:FOR I=0TO 9
1N=INT(RND*6)+1:IF L=N OR L+N=7THEN 1
?N:L=N:NEXT
For(I,1,9
Ans→X
Repeat Ans≠X and Ans≠7-X
randInt(1,6
End
Disp Ans
End
Solusi membosankan, tetapi lebih pendek dari revisi sebelumnya. Saya mengambil keuntungan dari kenyataan bahwa pada kalkulator baru, Ansdiinisialisasi ke nol.
v->{int d=(int)(Math.random()*6+1),i=10,p;String r=""+d;for(;i-->0;r+=d)for(p=d;p==d|p+d==7;d=(int)(Math.random()*6+1));return r;}Sebagai program lengkap dengan metode utama verbose, ini akan menjadi 178 byte :
interface M{static void main(String[]a){int d=(int)(Math.random()*6+1),i=10,p;String r=""+d;for(;i-->0;r+=d)for(p=d;p==d|p+d==7;d=(int)(Math.random()*6+1));System.out.print(r);}}Semi-port dari jawaban Bash @AmanZeeKVerma .
Penjelasan:
v->{ // Method with empty unused parameter and String return-type
int d=(int)(Math.random()*6+1),
// Random dice-roll 1-6
i=10, // Counter-integer, starting at 10
p; // Temp integer to store new side
String r=""+d; // Result-String, starting at the first dice-roll
for(;i-->0; // Loop (1) 10 times:
r+=d) // After every iteration, append the result with a random side
for(p=d; // Set the new side to the current side
p==d // Loop (2) as long as the new side and current side are the same
|p+d==7; // or as long as both combined are exactly 7:
d=(int)(Math.random()*6+1)
// Set the new side to a random side 1-6
); // End of loop (2)
// End of loop (1) (implicit / single-line body)
return r; // Return the result-String
} // End of methoda=randi(6)
for i=1:9;b=1:6;b([a,7-a])=[];a=b(randi(4))
end
Saya senang saya bisa menampilkan xpengacakan kode-penunjuk >> karena saya tidak ingat melihatnya di sini.
a&0 v
/2v
1x3v
>x< <<
6x4v
\5v ~
:{:/ ^?=}
:{:/ ^?=7+}
:~$<^&;!?:-1&n
Anda dapat mencobanya pada juru bahasa online ini (tempel kode, kirim, mulai).
c(3,5,1,4,2,6)[(sample(1:6,1)+cumsum(sample((-2:2)[-3],9,T)))%%6+1]Ada jawaban golf R tetapi ini saya pikir pendekatan yang berbeda dari jawaban yang diajukan sejauh ini.
c(3,5,1,4,2,6) #A dice and its facets
(sample(1:6,1) #Initial dice roll
+cumsum(sample((-2:2)[-3],9,T))) #9 tippings in c(-2,-1,1,2)
%%6+1 #converts to values in [0,6]
[ ]#6LΩUTFX?6LʒDXÊsX+7Ê*}ΩU
Pasti bisa bermain golf, tapi saat ini saya tidak melihatnya ..
Penjelasan:
6LΩ # Pick a random value from the range [1,6]
# i.e. [1,2,3,4,5,6] → 3
U # Save this random value in variable `X`
TF # Loop 10 times:
X? # Print `X` without newline to STDOUT
6Lʒ } # Create a range [1,6] again, and filter it by:
DXÊ # Check if the current value is not equal to `X`
# i.e. 1 and 3 → 1 (truthy)
# i.e. 3 and 3 → 0 (falsey)
sX+ # Sum the current value with `X`
# i.e. 1 and 3 → 4
# i.e. 3 and 3 → 6
7Ê # And check if it's not equal to 7
# i.e. 4 and 7 → 1 (truthy)
# i.e. 6 and 7 → 1 (truthy)
* # If both checks are truthy, keep it in the filtered list
# i.e. 1 and 1 → 1 (truthy)
# i.e. 0 and 1 → 0 (falsey)
Ω # Pick a random value from the filtered list
# i.e. [1,2,5,6] → 1
U # And save it in variable `X` for the next iteration of the loop