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

---

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

---

134(6): 2017/03/03(金)09:55 ID:SUJ1/PZz(1) AAS
AA省

---

136(2): 2017/03/03(金)20:41 ID:yCeb1kZ1(1) AAS
>>134 Java
外部ﾘﾝｸ:ideone.com

---

139: 2017/03/04(土)04:55 ID:VvbFezkO(1) AAS
>>134　C
外部ﾘﾝｸ:ideone.com

---

142: 2017/03/05(日)09:20 ID:FnE3e1tn(2/2) AAS
>>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)
省14

---

143: 2017/03/05(日)11:59 ID:h/zPOUa4(1) AAS
>>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

"=> {
省17

---

146: 2017/03/05(日)18:17 ID:WuF+gNTE(1) AAS
>>134 ocaml
外部ﾘﾝｸ:ideone.com

---

147: 2017/03/05(日)20:12 ID:Oe+PHv4r(1) AAS
いや>>134は10面体10個を10秒以内で計算するとかの条件付けるとプログラミングの意味あるぞ

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

---

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

---

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

---

ぬこの手 ぬこTOP 0.037s