N-queens problem: Difference between revisions
→{{header|EasyLang}}
Thundergnat (talk | contribs) m (fix markup) |
|||
Line 4,664:
=={{header|EasyLang}}==
<syntaxhighlight lang="easylang">
subr show_sol
print "Solution " & n_sol
print ""
for i
write " "
for j
if j = x[i]
write "Q "
Line 4,682 ⟶ 4,683:
subr test
ok = 1
for i
if x[y] = x[i] or abs (x[i] - x[y]) = abs (y - i)
ok = 0
Line 4,690 ⟶ 4,691:
n = 8
len x[] n
y =
x[
while y >=
call test
if ok = 1 and y + 1 <
y += 1
x[y] =
else
if ok = 1
Line 4,704 ⟶ 4,705:
.
.
while y >=
y -= 1
.
if y >=
x[y] += 1
.
.
.
print n_sol & " solutions"
</syntaxhighlight>
{{out}}
<pre>Solution 1
|