(let ((tb (make-hash-table :size 7)) (t-t (list '(0 0) '(0 1) '(0 2))) (lim 100) (cur 0) (pl (list 0 1 2)) ms act (name 0)(tgh 1)(n 2)(x 3)(dur 4)(spd 5)(win 6)(lose 7)) (make-random-state) (setf (gethash 0 tb) (list "John" 20 1 18 1 3 "I'…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。