Find Chess960 starting position identifier: Difference between revisions
Content added Content deleted
(→{{header|Common Lisp}}: Add implementation.) |
|||
Line 243: | Line 243: | ||
=={{header|Common Lisp}}== |
=={{header|Common Lisp}}== |
||
Simple version with no error checking. |
|||
<lang lisp>(defun sp-id (start-array) |
<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")) |
(let* ((n5n-table '("NN---" "N-N--" "N--N-" "N---N" "-NN--" "-N-N-" "-N--N" "--NN-" "--N-N" "---NN")) |