nim.l

来自「A very small LISP implementation with se」· L 代码 · 共 25 行

# 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) )