Generate random chess position: Difference between revisions
m
→{{header|PicoLisp}}: update PicoLisp
(add PicoLisp) |
m (→{{header|PicoLisp}}: update PicoLisp) |
||
Line 345:
(nth
*B
(
(if (or (= "
(9 56)
(1 64) ) ) ) ) ) )
(set @@ P) ) ) )
(loop
Line 360 ⟶ 362:
(neib @@@) ) )
(set @@ "k") ) )
(
(make
(while *B
(let (C 0 Lst (cut 8 '*B))
(prinl Lst)
(link
(make
(for L Lst
(if (= L ".")
(inc 'C)
(and
(gt0 C)
(link (swap 'C 0)) )
(link L) ) )
(and
(gt0 C)
(link C) ) ) ) ) ) ) )
(println (pack (glue "/" *FEN) " w - - 0 1"))</lang>
{{out}}
<pre>
...n.
B.
r.PpBrrk
.
.
...
"3n3B/1p1BQ1B1/B2P2Br/p6p/r1PpBrrk/3B1P2/3r2K1/6r1 w - - 0 1"
</pre>
| |||