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 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Task/N-queens-problem/Arturo/n-queens-problem.arturo
View file

@ -1,7 +1,7 @@
result: new []
result: []
queens: function [n, i, a, b, c][
if? i < n [
switch i < n [
loop 1..n 'j [
if all? @[
not? contains? a j
@ -11,8 +11,7 @@ queens: function [n, i, a, b, c][
queens n, i+1, a ++ @[j], b ++ @[i+j], c ++ @[i-j]
]
]
else [
][
if n = size a ->
'result ++ @[a]
]
@ -24,8 +23,8 @@ queens BoardSize, 0, [], [], []
loop result 'solution [
loop solution 'col [
line: new repeat "-" BoardSize
line\[col-1]: `Q`
line: repeat "-" BoardSize
line\[col-1]: 'Q'
print line
]
print ""