Peaceful chess queen armies: Difference between revisions

* [https://oeis.org/A250000 A250000] OEIS

<br><br>

 

=={{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:

◦ • ◦ W ◦ • ◦

W ◦ W W • ◦ • </pre>

 

=={{header|Nim}}==

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

• ◦ B ◦ •

W • ◦ • W</pre>