DSiプレゼント

うちに来るサンタは，良い子だからという単純な理由で19,000円近いオモチャを置いて行くような甘チャンではありません．

欲しいものは，自分でモギ取れ！

(defun kukutest:getnum ()
  (+ (mod (random) 9) 1))

(defun kukutest:question ()
  (setq x (kukutest:getnum))
  (setq y (kukutest:getnum))
  (setq ans (format "%d" (* x y)))
  (if (equal (read-string (format "%d × %d ＝ " x y)) ans)
      't nil))


(defun kukutest:test (num)
  (if (eq num 0)
      't (and (kukutest:question) (kukutest:test (- num 1)))))

(defun kukutest (num)
  (interactive "n回数:")
  (message
   (if (kukutest:test num)
       (if (< num 100)
	   "ぜんぶ正解！ 100回正解だったらDSiプレゼント"
	 "ぜんぶ正解！ DSiプレゼント！！！")
     "ざんねん．またこんどね．")))

すちゃちゃちゃっと．こういうものをでっち上げるときには，Emacsの*scratch*バッファって最強だと思う．
脇目で観測したところ，ここ数日の長女の九九正答率は95%くらい．まあ，100回連続正解は，無理ではないが，簡単でもないはず．

結果

挑戦回数と回答時間に制限をつけるべきだった．将棋指し並みに長考しやがるとは．

19,000円，財布が痛い．痛すぎる．