看板 [ Perl ]
討論串[問題]這個有辦法簡化媽? (亂數問題)
共 3 篇文章
首頁
上一頁
1
下一頁
尾頁

推噓1(1推 0噓 0→)留言1則,0人參與, 最新作者Andor (檸檬汁)時間19年前 (2006/07/21 10:49), 編輯資訊
0
0
0
內容預覽:
這效果和LiloHuang大的演算法是相同的,但多用了一倍的rand()。. 而且重點是,這樣得到的結果不是均勻分佈的。. 以perl 5.8中的sort缺省使用的mergesort為例,我簡單計算一下就可以斷定:. 8和2出現在$c[0]的機率是除最後那個4外其他數的2倍,是最後那個4的1/2。.
(還有144個字)

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者qrtt1 (愚者)時間19年前 (2006/07/21 08:59), 編輯資訊
0
0
0
內容預覽:
發信站: 批踢踢實業坊(ptt.cc). ◆ From: 140.120.15.17. haha. 如果只是想亂排的話. 那用sort就好了壓:). @a = (4,5,6,7,8,2,2334,345,1,-23,4);. @b = sort { $a <=> $b } @a;. @c = s

推噓1(1推 0噓 3→)留言4則,0人參與, 最新作者imce (蜥蜴)時間19年前 (2006/07/13 22:00), 編輯資訊
0
0
0
內容預覽:
$hitno[$_]=$_ foreach(0..9);. foreach(0..9). {. $ran=int(rand()*9+1);. $temp=$hitno[$_];. $hitno[$_]=$hitno[$ran];. $hitno[$ran]=$temp;. }. 有辦法簡化媽?目的是
首頁
上一頁
1
下一頁
尾頁