[過去ﾛｸﾞ]
プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net (1002ﾚｽ)
プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1480579110/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
134: デフォルトの名無しさん [sage] 2017/03/03(金) 09:55:45.90 ID:SUJ1/PZz C言語スレよりロンダリング x面体のサイコロy個を振って得られる出目のヒストグラムを出力するプログラムを作ろう dice.exe 6 3 (6面体のサイコロ3個) の出力例 出目 出現回数 出現率 ---- -------- ------ 3 1 0.46 4 3 1.39 5 6 2.78 6 10 4.63 7 15 6.94 8 21 9.72 9 25 11.57 10 27 12.50 11 27 12.50 12 25 11.57 13 21 9.72 14 15 6.94 15 10 4.63 16 6 2.78 17 3 1.39 18 1 0.46 http://mevius.5ch.net/test/read.cgi/tech/1480579110/134
136: デフォルトの名無しさん [sage] 2017/03/03(金) 20:41:14.23 ID:yCeb1kZ1 >>134 Java https://ideone.com/mVatvl http://mevius.5ch.net/test/read.cgi/tech/1480579110/136
139: デフォルトの名無しさん [sage] 2017/03/04(土) 04:55:45.63 ID:VvbFezkO >>134 C https://ideone.com/FmyEy7 http://mevius.5ch.net/test/read.cgi/tech/1480579110/139
142: デフォルトの名無しさん [sage] 2017/03/05(日) 09:20:54.74 ID:FnE3e1tn >>134 Emacs Lisp (require 'cl-lib) (defun dice (x y) (let ((b '(0))) (dotimes (i y) (setq b (reduce (lambda (a b) (append a b)) (loop for n in (loop for i from 1 to x collect i) collect (loop for m in b collect (+ n m)))))) (pp (loop for n in (remove-duplicates b) collect (list n (count n b) (/ (float (count n b)) (length b))))))) (dice 6 3) ((3 1 0.004629629629629629) (4 3 0.013888888888888888) (5 6 0.027777777777777776) (6 10 0.046296296296296294) (7 15 0.06944444444444445) (8 21 0.09722222222222222) (9 25 0.11574074074074074) (10 27 0.125) (11 27 0.125) (12 25 0.11574074074074074) (13 21 0.09722222222222222) (14 15 0.06944444444444445) (15 10 0.046296296296296294) (16 6 0.027777777777777776) (17 3 0.013888888888888888) (18 1 0.004629629629629629)) http://mevius.5ch.net/test/read.cgi/tech/1480579110/142
143: デフォルトの名無しさん [sage] 2017/03/05(日) 11:59:20.94 ID:h/zPOUa4 >>134 Squeak/Pharo Smalltalk | dice | dice := [:x :y | | bag | bag := Bag new. (1 to: x) asDigitsToPower: y do: [:ary | bag add: ary sum]. bag sortedElements collect: [:kv | {kv key. kv value. kv value / bag size * 100s2}] ]. dice value: 6 value: 3 "=> { {3 . 1 . 0.46s2}. {4 . 3 . 1.38s2}. {5 . 6 . 2.77s2}. {6 . 10 . 4.62s2}. {7 . 15 . 6.94s2}. {8 . 21 . 9.72s2}. {9 . 25 . 11.57s2}. {10 27 12.50s2}. {11 27 12.50s2}. {12 . 25 . 11.57s2}. {13 . 21 . 9.72s2}. {14 . 15 . 6.94s2}. {15 . 10 . 4.62s2}. {16 . 6 . 2.77s2}. {17 . 3 . 1.38s2}. {18 . 1 . 0.46s2} } " http://mevius.5ch.net/test/read.cgi/tech/1480579110/143
146: デフォルトの名無しさん [sage] 2017/03/05(日) 18:17:30.28 ID:WuF+gNTE >>134 ocaml https://ideone.com/SWZRyZ http://mevius.5ch.net/test/read.cgi/tech/1480579110/146
147: デフォルトの名無しさん [sage] 2017/03/05(日) 20:12:40.81 ID:Oe+PHv4r いや>>134は10面体10個を10秒以内で計算するとかの条件付けるとプログラミングの意味あるぞ >>136はよく出来てるとオモタ http://mevius.5ch.net/test/read.cgi/tech/1480579110/147
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
1.516s*