September 2017 Update

2017-09-23 10:01:46 +02:00 · 2017-09-23 10:01:46 +02:00 · ba8067c3b7
commit ba8067c3b7
parent bba7bfd280
14570 changed files with 153136 additions and 63871 deletions
--- a/Task/Generate-Chess960-starting-position/REXX/generate-chess960-starting-position-3.rexx
+++ b/Task/Generate-Chess960-starting-position/REXX/generate-chess960-starting-position-3.rexx
@ -14,7 +14,8 @@ Do r1=1 To 6
      poss=space(translate('12345678',' ',r1||kk||r2),0)
      Call rest
      End
-    End
+
+ End
  End
 say cnt.1 'solutions'
 Say time('E')
@ -51,7 +52,7 @@ out:
  Do k=1 To 8
    ol=ol||pos.k
    End
-  cnt.1+=1
+  cnt.1=cnt.1+1
  If cnt.1<4 |,
     cnt.1>957 Then
    Say format(cnt.1,3) poss r1 kk r2  ol