Generate random chess position: Difference between revisions

m
Line 727:
placeRemaining b = do
n <- num (sum $ map snd remaining)
putStrLn $ "TakingPlacing " <> show n <>
" more random positions after placing 2 kings and "
<> (show $ totalPawns b) <> " pawns. "
Line 790:
Run 1
<pre>
TakingPlacing 8 more random positions after placing 2 kings and 11 pawns.
a b c d e f g h
---------------------------------
8 | | | | | | | | | 8
---------------------------------
7 | | | ♟ | | | | | ♟ | | 7
---------------------------------
6 | | | | | | | | | 6
---------------------------------
5 | | | ♟ | | | | | | 5
---------------------------------
4 | | | | | | | | | 4
---------------------------------
3 | | | | | | | | | 3
---------------------------------
2 | | | | | | | | | 2
---------------------------------
1 | | | | | | | | | 1
---------------------------------
a b c d e f g h
 
3K43B1k2/QNpRP1R1P4ppB/Pr1P2Pb6pp/2p3rp2p1p3/4k34K3/B4P21Pp2bR1/P1P3p1r1pp1Q2/83b1N2/ w - - 0 1
</pre>
Run 2
<pre>
TakingPlacing 129 more random positions after placing 2 kings and 92 pawns.
a b c d e f g h
---------------------------------
8 | | | | | | | | | 8
---------------------------------
7 | | ♙ | | | | | | | 7
---------------------------------
6 | | | | | | | | | 6
---------------------------------
5 | | | | | | | | | 5
---------------------------------
4 | | | | | | | | | 4
---------------------------------
3 | | | | | | | | | 3
---------------------------------
2 | | | | | | | | | 2
---------------------------------
1 | | | | | | | | | 1
---------------------------------
a b c d e f g h
 
2nR1b1K1R6/1P4PPKP4k1/4r1P14n3/1p3Rk15r2/2PB3r1B6/Qn1Bq1PP2P4N/4P32Q2n2/2b51q2b3/ w - - 0 1
</pre>
etc...
Anonymous user