ProblemSolver/colorize-map.p6 at master · FCO/ProblemSolver · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
use lib "lib";

use ProblemSolver;
my ProblemSolver $problem .= new: :stop-on-first-solution;

my @colors = <green yellow blue white>;

my @states = <
	acre				alagoas
	amapa				amazonas
	bahia				ceara
	espirito-santo		goias
	maranhao			mato-grosso
	mato-grosso-do-sul	minas-gerais
	para				paraiba
	parana				pernambuco
	piaui				rio-de-janeiro
	rio-grande-do-norte	rio-grande-do-sul
	rondonia			roraima
	santa-catarina		sao-paulo
	sergipe				tocantins
>;

for @states -> $state {
	$problem.add-variable: $state, @colors;
}

$problem.unique-vars: <acre amazonas>;
$problem.unique-vars: <amazonas roraima>;
$problem.unique-vars: <amazonas rondonia>;
$problem.unique-vars: <amazonas para>;
$problem.unique-vars: <para amapa>;
$problem.unique-vars: <para tocantins>;
$problem.unique-vars: <para mato-grosso>;
$problem.unique-vars: <para maranhao>;
$problem.unique-vars: <maranhao tocantins>;
$problem.unique-vars: <maranhao piaui>;
$problem.unique-vars: <piaui ceara>;
$problem.unique-vars: <piaui pernambuco>;
$problem.unique-vars: <piaui bahia>;
$problem.unique-vars: <ceara rio-grande-do-norte>;
$problem.unique-vars: <ceara paraiba>;
$problem.unique-vars: <ceara pernambuco>;
$problem.unique-vars: <rio-grande-do-norte paraiba>;
$problem.unique-vars: <pernambuco alagoas>;
$problem.unique-vars: <alagoas sergipe>;
$problem.unique-vars: <sergipe bahia>;
$problem.unique-vars: <bahia minas-gerais>;
$problem.unique-vars: <bahia espirito-santo>;
$problem.unique-vars: <bahia tocantins>;
$problem.unique-vars: <bahia goias>;
$problem.unique-vars: <mato-grosso goias>;
$problem.unique-vars: <mato-grosso tocantins>;
$problem.unique-vars: <mato-grosso rondonia>;
$problem.unique-vars: <mato-grosso mato-grosso-do-sul>;
$problem.unique-vars: <mato-grosso-do-sul goias>;
$problem.unique-vars: <mato-grosso-do-sul minas-gerais>;
$problem.unique-vars: <mato-grosso-do-sul sao-paulo>;
$problem.unique-vars: <mato-grosso-do-sul parana>;
$problem.unique-vars: <sao-paulo minas-gerais>;
$problem.unique-vars: <sao-paulo rio-de-janeiro>;
$problem.unique-vars: <rio-de-janeiro espirito-santo>;
$problem.unique-vars: <rio-de-janeiro minas-gerais>;
$problem.unique-vars: <minas-gerais espirito-santo>;
$problem.unique-vars: <parana santa-catarina>;
$problem.unique-vars: <santa-catarina rio-grande-do-sul>;

my %res = $problem.solve.first;
my $size = %res.keys.map(*.chars).max;
for %res.kv -> $state, $color {
	printf "%{$size}s => %s\n", $state, $color;
}