- 花札ゲームプログラム Xプロジェクト 人探し
16 ：デフォルトの名無しさん[sage]：2014/08/31(日) 02:26:37.17 ID:kzVlzkbG - >>14
お前が何を言っているのか解らないｗ
俺はアスペかもしれないｗ
月曜に病院行ってくる、精神科でいいのか？ｗ
|
- プログラミングのお題スレ Part4
823 ：デフォルトの名無しさん[sage]：2014/08/31(日) 02:34:36.77 ID:kzVlzkbG - 2月29日生まれのこをを忘れないでください。。。。。
|
- プログラミングのお題スレ Part4
826 ：デフォルトの名無しさん[sage]：2014/08/31(日) 02:46:02.72 ID:kzVlzkbG - 2000年生まれって縛りだから366で良いと思う。
|
- プログラミングのお題スレ Part4
828 ：デフォルトの名無しさん[sage]：2014/08/31(日) 02:48:42.02 ID:kzVlzkbG - でも早生まれとか考慮すると。。。。めんどくさいｗ
|
- プログラミングのお題スレ Part4
830 ：デフォルトの名無しさん[sage]：2014/08/31(日) 02:58:14.20 ID:kzVlzkbG - やっぱり、早生まれ考えずに366で計算だな
1999年4月〜2000年3月まで考えると366日だよな。。。
|
- プログラミングのお題スレ Part4
835 ：デフォルトの名無しさん[sage]：2014/08/31(日) 09:57:13.33 ID:kzVlzkbG - (define (prob n m)
(define (prob-inter n m result)
(if (= n 1)
result
(prob-inter (- n 1) m (* result (/ (- m (- n 1)) m)))))
(prob-inter n m 1))
(define (fact n)
(define (fact-inter n result)
(if (zero? n)
result
(fact-inter (- n 1) (* result n))))
(fact-inter n 1))
(define (comb n m)
(/ (fact n) (* (fact (- n m)) (fact m))))
二組だけ出来る確率
(exact->inexact (* (/ (comb 40 2) 366) (/ (comb 38 2) 366) (/ 1 (fact 2)) (prob 38 366)))
=>0.27979173783069944
二組以上出来る確率
(exact->inexact
(- 1
(prob 40 366)
(* (/ (comb 40 2) 366) (prob 39 366))))
=>0.6294588728184133
自信ない。。。。。
|