[過去ﾛｸﾞ] プログラミングのお題スレ Part9 [無断転載禁止]©2ch.net (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

134(6): デフォルトの名無しさん [sage] 2017/03/03(金)09:55 ID:SUJ1/PZz(1) AAS
AA省

---

136(2): デフォルトの名無しさん [sage] 2017/03/03(金)20:41 ID:yCeb1kZ1(1)
>>134 Java
https://ideone.com/mVatvl

---

139: デフォルトの名無しさん [sage] 2017/03/04(土)04:55 ID:VvbFezkO(1)
>>134　C
https://ideone.com/FmyEy7

---

142: デフォルトの名無しさん [sage] 2017/03/05(日)09:20 ID:FnE3e1tn(2/2)
>>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))

---

143: デフォルトの名無しさん [sage] 2017/03/05(日)11:59 ID:h/zPOUa4(1)
>>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}
} "

---

146: デフォルトの名無しさん [sage] 2017/03/05(日)18:17 ID:WuF+gNTE(1)
>>134 ocaml
https://ideone.com/SWZRyZ

---

147: デフォルトの名無しさん [sage] 2017/03/05(日)20:12 ID:Oe+PHv4r(1)
いや>>134は10面体10個を10秒以内で計算するとかの条件付けるとプログラミングの意味あるぞ

>>136はよく出来てるとオモタ

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.033s