Find Chess960 starting position identifier: Difference between revisions
Find Chess960 starting position identifier (view source)
Revision as of 21:58, 23 July 2022
, 1 year ago→{{header|Common Lisp}}
(→{{header|Common Lisp}}: Add implementation.) |
|||
Line 243:
=={{header|Common Lisp}}==
Simple version with no error checking.
<lang lisp>(defun sp-id (start-array)
(let* ((n5n-table '("NN---" "N-N--" "N--N-" "N---N" "-NN--" "-N-N-" "-N--N" "--NN-" "--N-N" "---NN"))
| |||