例外処理はいいかげん。 なんだか汚いソースだなぁ・・・。 ;;n人中m人が当選するくじ (defun make-targets(n) (let ((arr (make-array n))) (reduce #'(lambda (ar i) (if (null ar) (list "0") (append ar (list (princ-to-string (length ar)))))) arr :i…

VLフォントからKonatuフォントに乗り換え。 いい感じ。 http://www.masuseki.com/rnote.php?u=be/konatu.htm