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

鄭偉博

題目要求要將產生的點數印出來且要證明擲出123的機率是擲出456機率的1.1倍

我不知道如何改變骰子擲點數的機率....我思考的方向也很混亂....

假如擲63次骰子
出現11個1點
11個2點
11個3點
10個4點
10個5點
10個6點
這樣就符合"擲出123的機率是擲出456機率的1.1倍"

用if...else if ...來判斷
rand()%63 < 11:print(1)
rand()%63 < 22:print(2)
rand()%63 < 33:print(3)
rand()%63 < 43:print(4)
rand()%63 < 53:print(5)
rand()%63 < 63:print(6)

鄭偉博

kauhia3440 發表於 2017-5-5 09:59 PM

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

假如擲63次骰子
出現11個1點
11個2點

那可以假設擲出21次嗎1  5次
...

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

鄭偉博 發表於 2017-5-6 01:18 AM

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

那可以假設擲出21次嗎1  5次
2  5次
3  1次

可是這樣跑出3點的機率會很低

ash1326

你沒有使用srand，這樣只有亂數表，沒有影響因子

也就是說不管怎麼跑，結局永遠不變

還有code別貼圖檔...這樣沒人會想幫你run

鄭偉博

ash1326 發表於 2017-5-11 02:18 AM

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

你沒有使用srand，這樣只有亂數表，沒有影響因子

也就是說不管怎麼跑，結局永遠不變

我們老師只教我們用RAND沒有教我們SRAND...
...

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

ash1326

鄭偉博 發表於 2017-5-11 09:49 AM

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

我們老師只教我們用RAND沒有教我們SRAND...
不好意思我是第一次發文看別人也是用圖檔的...謝謝指教 ...

如果你是想要絕對機率1.1的話
...

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

鄭偉博

ash1326 發表於 2017-5-11 12:47 PM

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

如果你是想要絕對機率1.1的話

3樓的寫法可以更改成先抽出21個不重複亂數(1~21)

謝謝ash1326,可是我想再請問一下為什麼要用3呢？...

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

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 10:43 AM

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

use v6;

my %construct = 1..6 Z=> 11/63, 11/63, 11/63, 10/63, 10/63, 10/63 ;

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

weirdococo

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

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

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

#那我加上解說
use v6;

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

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

ren1244

關於貼程式碼的問題，可以參考版規喔：

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

（2F有提供兩個允許貼程式碼的外部網址）

對於發問的文章，我覺得會想讓人處理的優先次序是：
文字檔程式碼 > 圖片程式碼 > 都沒給code
（當然也會考慮問題內容跟發問者是否有提供想法）
...

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

鄭偉博

這是我和朋友想出來的
因為包括敏感內容所以用網頁貼上

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

謝謝各位幫忙
因為會的東西真的很少所以有些程式碼我看不懂....

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;

複製代碼

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

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

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

鄭偉博

鄭偉博 發表於 2017-5-12 08:04 PM

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

這是我和朋友想出來的
因為包括敏感內容所以用網頁貼上
http://codepad.org/0yqpSZwV

謝謝!!!這樣變得好簡短><
...

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