?? nim.l
字號:
# 15may07abu# (c) Software Lab. Alexander Burger(load "lib/simul.l")# Nim(de nim Pos (game T NIL '((Flg) # Moves (make (for (I . N) Pos (do N (link (cons (cons I N) I (- N)) ) (dec 'N) ) ) ) ) '((Mov) # Move (dec (nth Pos (car Mov)) (cdr Mov)) ) '((Flg) # Cost (let N (apply + Pos) (if (=0 N) -100 N) ) ) ) )(test '(-100 ((1 . 4) 1 . -4) ((2 . 4) 2 . -4) ((3 . 4) 3 . -4)) (nim 4 4 4) )
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -