■

ダブルクロスの達成値の平均値を求めるプログラムをschemeで書く、です。

前回、「能力値1、技能0、クリティカル無し」の時の平均値を算出できるところまで来ました。
とりあえず、今年の抱負としては「能力値X、技能Y、クリティカル値Z」の平均値を求めるところまでやりたいです。
…道は遠い。

と言う訳で、小さなところから一歩ずつ。
今日はサイコロ用のリストを作ってくれる関数で。

(define (my-dice n m)
  (if (> n m)
	  '()
	  (cons n (my-dice (+ n 1) m))))
(my-dice 1 10)
;=>(1 2 3 4 5 6 7 8 9 10)