■

ダブルクロスの達成値の平均値を求めるプログラムをschemeで書く、です。
「複数のダイスを振ったときのリストを作ってくれる関数」ができないので、「複数のダイスを振ったリストの合計値の平均を求める関数」を書いてみます。

…ダブルクロス、関係なくなってきました。
…いや、きっとダメージ出すときに関係してくるんですよ！

(define (my-sum-list l)
  (if (null? l)
	  ()
	  (cons (mysum (car l)) (my-sum-list (cdr l)))))
(myavr(my-sum-list
 '((1 1)(1 2)(1 3)(1 4)(1 5)(1 6)
   (2 1)(2 2)(2 3)(2 4)(2 5)(2 6)
   (3 1)(3 2)(3 3)(3 4)(3 5)(3 6)
   (4 1)(4 2)(4 3)(4 4)(4 5)(4 6)
   (5 1)(5 2)(5 3)(5 4)(5 5)(5 6) 
   (6 1)(6 2)(6 3)(6 4)(6 5)(6 6))))
;=>7

…例題がおもっクソ２D6ですけどね。