- プログラミングのお題スレ Part4
798 ：デフォルトの名無しさん[sage]：2014/08/24(日) 00:02:37.36 ID:rlxyewU2 - 約21948円
|
- プログラミングのお題スレ Part4
800 ：デフォルトの名無しさん[sage]：2014/08/24(日) 00:51:05.86 ID:rlxyewU2 - ideone.comにScheme有ったので
ttp://ideone.com/BCWZ6A
俺も消費税考慮してないw。
|
- プログラミングのお題スレ Part4
804 ：デフォルトの名無しさん[sage]：2014/08/24(日) 19:12:54.88 ID:rlxyewU2 - 暇で仕方なかったので俺もメルセンヌツイスター使ってみたよ
百万回やってみた結果
約21835円になった消費税は入ってない。
|
- プログラミングのお題スレ Part4
808 ：デフォルトの名無しさん[sage]：2014/08/24(日) 22:15:19.06 ID:rlxyewU2 - >>804
嗚呼、バグってたorz
やり直したら219.400551まで収束した。
Gauche依存
(use math.mt-random)
(use srfi-43)
(define mt (make <mersenne-twister> :seed (sys-time)))
(define (comp n)
(let ((v (make-vector n 0)))
(let loop ((count 0))
(let ((index (mt-random-integer mt n)))
(vector-set! v index (+ (vector-ref v index) 1))
(if (not (vector-index zero? v))
(+ count 1) ;バグ修正前はcountをそのままリターン最後をカウントしてなかった。
(loop (+ count 1)))))))
(let ((count 0)
(result 0))
(while (< count 1000000)
(set! result (+ result (comp 49)))
(set! count (+ count 1)))
(exact->inexact (/ result count)))
|