minichess

minichess.raku

+## https://www.ostwaldgymnasium.de/index.php/aktuell/wettbewerbe/2078-denken-lohnt-sich-10-21
+## Die Bedrohungen der einzelnen Figuren, ausgehend von ihrer aktuellen Position
+## (nur valide für minichess)
+my %threats = (king   => [[-1,-1],[-1,1],[1,1],[1,-1], [0,1], [0,-1], [1,0], [-1,0]],
+	          	 queen  => [[-1,-1],[-1,1],[1,1],[1,-1], [0,1], [0,-1], [1,0], [-1,0]],
+						   rook   => [[0,1], [0,-1], [1,0], [2,0],[-1,0], [-2,0]],
+						   bishop => [[1,1], [-1,1],[1,-1],[-1,-1]],
+						   knight => [[2,1], [-2,-1], [-2,1], [2,-1]],
+						   pawn   => [[1,1], [-1,1]]);
+
+## Anzahl der Bedrohungen auf den Feldern ("11" -> Feld x=1, y=1)
+## my %target-threats = ("11" => 1, "21" => 1, "31" => 2, "12" => 2, "22" => 1);
+my %target-threats = ("11" => 2, "21" => 2, "31" => 2, "12" => 2, "22" => 2, "32" => 2);
+
+for ([1,2,3] X [1,2]).combinations(3) -> @positions {
+    ## für alle 3er Kombinationen von Positionen
+    for ("king", "queen", "rook" xx 2, "bishop" xx 2, "knight" xx 2, "pawn" xx 3)
+		    .flat.combinations(3).unique(:with(&[eqv])) -> @pieces {
+				    ## für alle 3er Kombinationen von Figuren (gleiche rausfiltern)
+				    my %sum-threats = ();
+				    for @positions Z @pieces -> [@pos, $piece] {
+						    ## die bedrohungen auf die aktuelle Position addieren, und Positionen außerhalb des Spielfeldes herausfiltern
+						    for %threats{$piece}.map({ $_ «+»	@pos }).grep({ (0 < .[0] < 4) && (0 < .[1] < 3)  }) -> @tpos {
+								    ## Die Bedrohung zu dem bedrohten Feld addieren
+								    %sum-threats{ @tpos.join }++;
+								}
+						}
+						if (%target-threats eqv %sum-threats) {
+						   ## Falls alle Bedrohungen übereinstimmen, Belegung ausgeben
+						   say @positions Z @pieces;
+					  }
+		}
+}
+
+## Ausgabe: (((1 1) rook) ((2 1) rook) ((3 1) knight))
\ No newline at end of file