(let* ((es (make-hash-table :size 11 :test 'equal)) (p1 "p1") (p2 "p2") (p3 "p3") (turn 0) (s "turn over....") (pl (list p1 p2 p3)) (bn "*simu*") (svvp (lambda (x) (<= (gethash x es) 0)))) (setf (gethash p1 es) 20) (setf (gethash p2 es) 22…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。