;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'chess-pos) (defvar pieces-vector [114 110 98 113 107 98 110 114]) #@88 Randomly permute the elements of VECTOR (all permutations equally likely) (fn VECTOR) (defalias 'chess-shuffle-vector #[257 "\300\301\211GW\203.\302Z!\\\262H\262HI\210I\210T\262\202\266\207" [0 nil random] 9 (#$ . 163)]) #@43 Generate a Fischer Random style position. (defalias 'chess-fischer-random-position #[0 "\302\211\211\204\303!\262\302\211\211\3042\305\306\211W\203\202\211H\211\307U\203H\203=\310\311\"U\203C\312\304\313\"\266\202{\310\311\"\262\266\202{\211\314U\203_\204W\312\304\313\"\210\262\266\202{\211\315U\203y\203v\204y\312\304\313\"\266\202{\262\266\211T\262\202\266\302\211\203\225\316\317\320\321\"\322\"\262\202\377 \211\323!\205\241\211G\324U\262\204\256\325\326\327\330E\"\210\316!\211\331\211\323!\205\277\211G\324U\262\204\314\325\326\327\330E\"\210\211\332H\262!\323!\205\335\211G\324U\262\204\352\325\326\327\330E\"\210\211<\204\367\325\326\333\334E\"\210\332I\266\266\202\211\2620\266\202\305\306\211W\203\325\211\306\250\203%\306Y\203%\335X\204-\325\326\336\337E\"\210\211\250\203>\211\306Y\203>\211\335X\204F\325\326\340\341E\"\210\305_\\\266\202H\323!\205\\\211G\324U\262\204i\325\326\327\330E\"\210\250\203z\306Y\203z\342X\204\202\325\326\343\344E\"\210\211\345>\204\220\325\326\346\347E\"\210I\210\211\350>\205\355\351W\323!\205\253\211G\324U\262\204\270\325\326\327\330E\"\210\352>\204\306\325\326\353\354E\"\210\211\250\203\327\211\306Y\203\327\211\342X\204\337\325\326\355\344E\"\210\203\350\356\202\351\357I\266\203\266\335\250\203\306Y\203\335X\204 \325\326\336\337E\"\210\211\250\203\211\306Y\203\211\335X\204$\325\326\340\341E\"\210\305_\\\266\202H\226\323!\205;\211G\324U\262\204H\325\326\327\330E\"\210\250\203Y\306Y\203Y\342X\204a\325\326\343\344E\"\210\211\345>\204o\325\326\346\347E\"\210I\210\211\350>\205\314\351W\323!\205\212\211G\324U\262\204\227\325\326\327\330E\"\210\352>\204\245\325\326\353\354E\"\210\211\250\203\266\211\306Y\203\266\211\342X\204\276\325\326\355\344E\"\210\203\307\356\202\310\357I\266\203\266\211T\262\202\n\266\207" [pieces-vector chess-starting-position nil chess-shuffle-vector retry 8 0 98 mod 2 throw t 107 114 vconcat make-vector 64 32 [nil nil nil nil nil nil t nil nil nil nil] vectorp 75 signal wrong-type-argument chess-pos position copy-alist 71 list annotations 7 (integer 0 7) rank (integer 0 7) file 63 (integer 0 63) index #1=(32 75 81 78 66 82 80 107 113 110 98 114 112) (member . #1#) piece (75 107) 97 #2=(nil t) (member . #2#) color (integer 0 63) 72 73] 16 (#$ . 416)]) (provide 'chess-random)