From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Sat, 20 Sep 2014 16:44:17 +0000 (+0200)
Subject: Tiny optimization in _find_kings.
X-Git-Url: https://git.sesse.net/?p=remoteglot;a=commitdiff_plain;h=8879bba9f6bacf9e246020641ff5873669b3df95

Tiny optimization in _find_kings.
---

diff --git a/Board.pm b/Board.pm
index f011b17..8cf603d 100644
--- a/Board.pm
+++ b/Board.pm
@@ -378,6 +378,7 @@ sub _find_kings {
 	my ($wkr, $wkc, $bkr, $bkc);
 
 	for my $row (0..7) {
+		next unless grep { $_ eq 'K' || $_ eq 'k' } @{$board->[$row]};
 		for my $col (0..7) {
 			my $piece = $board->[$row][$col];
 			if ($piece eq 'K') {