Find Chess960 starting position identifier: Difference between revisions
Content added Content deleted
(→{{header|Common Lisp}}: Add validity check.) |
|||
| Line 263: | Line 263: | ||
(destructuring-bind (dark-bishop light-bishop) (mapcar (lambda (p) (floor p 2)) |
(destructuring-bind (dark-bishop light-bishop) (mapcar (lambda (p) (floor p 2)) |
||
(cond ((zerop (mod left-bishop 2)) (list left-bishop right-bishop)) |
(cond ((zerop (mod left-bishop 2)) (list left-bishop right-bishop)) |
||
(t (list right-bishop left-bishop)))) |
(t (list right-bishop left-bishop)))) |
||
(+ (* 96 knights) (* 16 queen) (* 4 dark-bishop) light-bishop))))) |
(+ (* 96 knights) (* 16 queen) (* 4 dark-bishop) light-bishop))))) |
||
(loop for ary in '("RNBQKBNR""QNRBBNKR""RQNBBKRN""RNQBBKRN") doing |
(loop for ary in '("RNBQKBNR""QNRBBNKR""RQNBBKRN""RNQBBKRN") doing |
||