aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2025-02-27 18:35:13 -05:00
parent 8e4e15fa56
commit 72eb4943cb
1853 changed files with 35514 additions and 9441 deletions
Download patch file Download diff file Expand all files Collapse all files

21
Task/Generate-Chess960-starting-position/PureBasic/generate-chess960-starting-position.basic Normal file
View file

@ -0,0 +1,21 @@
OpenConsole()
RandomSeed(Date())
For i = 1 To 10
inicio.s = "RKR"
pieza.s = "QNN"
For n = 1 To Len(pieza)
posic = Random(Len(inicio)) + 1
inicio = Left(inicio, posic - 1) + Mid(pieza, n, 1) + Right(inicio, Len(inicio) - posic + 1)
Next n
posic = Random(Len(inicio)) + 1
inicio = Left(inicio, posic - 1) + "B" + Right(inicio, Len(inicio) - posic + 1)
posic + 1 + 2 * Int(Random(Len(inicio) - posic) / 2)
inicio = Left(inicio, posic - 1) + "B" + Right(inicio, Len(inicio) - posic + 1)
PrintN(inicio)
Next i
PrintN(#CRLF$ + "Press ENTER to exit"): Input()
CloseConsole()