Peaceful chess queen armies: Difference between revisions

{{trans|D}}

 

EMPTY

BLACK

printBoard(nm[0], blackQueens, whiteQueens)

E

 

{{out}}

The program also can stop after printing a specified number of solutions, although the default is to print all solutions.

 

 

#define ATS_DYNLOADFLAG 0

end

 

 

{{out}}

=={{header|C}}==

{{trans|C#}}

#include <stdbool.h>

#include <stdio.h>

 

return EXIT_SUCCESS;

{{out}}

<pre>1 black and 1 white queens on a 2 x 2 board:

=={{header|C sharp|C#}}==

{{trans|D}}

using System.Collections.Generic;

 

}

}

{{out}}

<pre>1 black and 1 white queens on a 2 x 2 board:

=={{header|C++}}==

{{trans|D}}

#include <vector>

 

 

return 0;

{{out}}

<pre>1 black and 1 white queens on a 2 x 2 board:

=={{header|D}}==

{{trans|Go}}

import std.math;

import std.stdio;

}

}

{{out}}

<pre>1 black and 1 white queens on a 2 x 2 board:

◦ • ◦ W ◦ • ◦

W ◦ W W • ◦ • </pre>

 

=={{header|Go}}==

 

Textual rather than HTML output. Whilst the unicode symbols for the black and white queens are recognized by the Ubuntu 16.04 terminal, I found it hard to visually distinguish between them so I've used 'B' and 'W' instead.

 

import "fmt"

}

}

 

{{out}}

=={{header|Java}}==

{{trans|Kotlin}}

import java.util.Arrays;

import java.util.List;

}

}

{{out}}

<pre>1 black and 1 white queens on a 2 x 2 board:

B • B • ◦ • ◦

• ◦ • ◦ W ◦ • </pre>

 

=={{header|Julia}}==

GUI version, uses the Gtk library. The place! function is condensed from the C# example.

 

struct Position

 

peacefulqueenapp()

 

=={{header|Kotlin}}==

{{trans|D}}

 

enum class Piece {

}

}

{{out}}

<pre>1 black and 1 white queens on a 2 x 2 board:

 

=={{header|Mathematica}}/{{header|Wolfram Language}}==

VisualizeState[state_] := Module[{q, cells},

q = MapIndexed[If[#["q"] == -1, {}, Text[Style[#["q"], 24], #2]] &, state, {2}];

]

GetSolution[8, 4, 3](* Solves placing 3 armies of each 4 queens on an 8*8 board*)

{{out}}

<pre>[Graphical object]

Almost a direct translation except for "printBoard" where we have chosen to use a sequence of sequences to simplify the code.

 

 

type

printBoard(n, blackQueens, whiteQueens)

else:

 

{{out}}

=={{header|Perl}}==

===Terse===

use warnings;

 

(my $have = tr/WB//) < $m * 2 or exit !print "Solution to $m $n\n\n$_";

place( s/-\G/ qw(W B)[$have % 2] /er ) while /-/g; # place next queen

{{out}}

<pre>Solution to 4 5

===Verbose===

A refactored version of the same code, with fancier output.

use warnings;

use feature 'say';

say $solution

? sprintf "Solution to $m $n\n\n%s", map { s/(.)/$1 /gm; s/B /♛/gm; s/W /♕/gmr } $solution

{{out}}

<pre>Solution to 4 5

{{trans|Go}}

{{trans|Python}}

{{out}}

with as_html = false

=={{header|Python}}==

===Python: Textual output===

from functools import lru_cache, reduce

 

m, n = 5, 7

ans = place(m, n)

 

{{out}}

===Python: HTML output===

Uses the solver function <code>place</code> from the above textual output case.

from itertools import product, count

 

html += hboard(ans, n)

with open('peaceful_queen_armies.htm', 'w') as f:

 

{{out}}

(formerly Perl 6)

{{trans|Perl}}

sub place ($board, $n, $m, $empty-square) {

my $cnt;

say $solution

?? "Solution to $m $n\n\n{S:g/(\N)/$0 / with $solution}"

{{out}}

<pre>W • ◦ • W

=={{header|Ruby}}==

{{trans|Java}}

attr_reader :x, :y

 

print "No solution exists.\n\n"

end

{{out}}

<pre>1 black and 1 white queens on a 2 x 2 board:

{{libheader|srfi-132}}

 

;;; Solutions to the Peaceful Chess Queen Armies puzzle, in R7RS

;;; Scheme (using also SRFI-132).

(newline)

(newline)

 

{{out}}

===All non-equivalent solutions===

{{works with|CHICKEN|5.3.0}}

;;; Solutions to the Peaceful Chess Queen Armies puzzle, in R7RS

;;; Scheme. This implementation returns only one of each equivalent

(newline)

(newline)

 

{{out}}

{{trans|Kotlin}}

 

case empty, black, white

}

print("No solution")

}

 

{{out}}

{{trans|Kotlin}}

{{libheader|Wren-dynamic}}

 

var Piece = Enum.create("Piece", ["empty", "black", "white"])

System.print("No solution exists.\n")

}

 

{{out}}

 

=={{header|zkl}}==

{ r,c:=q; (r==x or c==y or r+c==x+y or r-c==x-y) }

fcn isSafe(r,c,qs) // queen safe at (r,c)?, qs=( (r,c),(r,c)..)

z.text.pump(Void,T(Void.Read,N-1),"println");

}

{{out}}

<pre>