Update all new Tasks

2015-02-20 09:02:09 -05:00 · 2015-02-20 09:02:09 -05:00 · 91df62d461
commit 91df62d461
parent 00a190b0a6
5697 changed files with 93386 additions and 804 deletions
--- a/Task/Generate-Chess960-starting-position/PicoLisp/generate-chess960-starting-position.l
+++ b/Task/Generate-Chess960-starting-position/PicoLisp/generate-chess960-starting-position.l
@ -0,0 +1,16 @@
+(load "@lib/simul.l")
+
+(seed (in "/dev/urandom" (rd 8)))
+
+(loop
+   (match
+      '(@A B @B B @C)
+      (shuffle '(Q B B N N 0 0 0)) )
+   (NIL (bit? 1 (length @B))) )
+
+(let Rkr '(R K R)
+   (for I (append @A '(B) @B '(B) @C)
+      (prin (if (=0 I) (pop 'Rkr) I)) )
+   (prinl) )
+
+(bye)