作弊骰子:出現 1、2、3 的機率是 4、5、6 的 1.1 倍

weirdococo

use v6;

my %construct = 1..6 Z=> 11/63, 11/63, 11/63, 10/63, 10/63, 10/63 ;
my @gonnaPick is default(0);
for %construct -> $pair {
        @gonnaPick.push( (loop { $pair.key })[ ^ $pair.value.numerator] );
}
@gonnaPick = ( @gonnaPick ).List.flat();

my %count;
for ^10000 {
        my $buffer = @gonnaPick.pick(1);
        " $_ time, we pick $buffer".say;
...

瀏覽完整內容，請先 註冊 或 登入會員

weirdococo

鄭偉博 發表於 2017-5-12 03:14 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

我只是個大一上程設不到一個學期的蔡菜鳥阿Q

#那我加上解說
use v6;

#產生一個hash，有六個key分別是一 到 六，內容分別是抽到他的機率。
...

瀏覽完整內容，請先 註冊 或 登入會員

weirdococo

把你寫的用perl寫了一遍，你會發覺長的一樣，有沒有這樣覺得!

1. my %count;
   
2. my @face = ( loop { 1 + [%] (rand * 100).round(1) , 63 , 6 } )[ ^100000 ];
   
3. %count{ $_ }++ for @face;
   
4. say %count;
   
5. "1.2.3的總數除以4.5.6的總數 = { ([+] %count{1..3} ) / ([+] %count{4..6}) }".say;

複製代碼

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

還有你寫的版本比我的好，我的是硬做出了的!...

瀏覽完整內容，請先 註冊 或 登入會員

weirdococo

chevylin0802 發表於 2017-6-5 09:42 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

感覺有點怪
因為如果題目改成1，3，5的機率是2，4，6的1.1倍時
就不靈了

...

瀏覽完整內容，請先 註冊 或 登入會員

weirdococo

chevylin0802 發表於 2017-6-6 11:53 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

我想請你做一個實驗
連續兩次取出亂數之後
只取亂數的000~999之間的數字

...

瀏覽完整內容，請先 註冊 或 登入會員

weirdococo

weirdococo 發表於 2017-6-6 06:03 PM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

先上結果
原始資料：
標準化：

我也覺得怪怪的，而且那亂數感覺起來有沒有落在500的感覺，整體偏低的樣子，還有，感覺起來我自己寫的標準化有些問題(或者那亂數有問題)，找機會用R跑跑看(雖然還沒有學過)。...

瀏覽完整內容，請先 註冊 或 登入會員

weirdococo

ren1244 發表於 2017-6-10 11:30 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

如果希望更複雜的比例，這邊提供一個算法

好，找機會測試看看，順便一提，我還會想想如何把這個想法(演算)生成不重複了亂數表，那樣說不定會很有用(之前在想說做出一個hash要從頭到尾查詢，如果key都在最後一個就會沒有效率，但是如果我把它改為不重複亂數key查詢，說不定有效率一些)。...

瀏覽完整內容，請先 註冊 或 登入會員