From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Sat, 20 Sep 2014 16:42:14 +0000 (+0200)
Subject: Call in_check() fewer times. Actually 60% or so faster.
X-Git-Url: https://git.sesse.net/?p=remoteglot;a=commitdiff_plain;h=3b624f881c25e5455e2972eb2d22efe37a5c9f38

Call in_check() fewer times. Actually 60% or so faster.
---

diff --git a/Board.pm b/Board.pm
index 3d83278..f011b17 100644
--- a/Board.pm
+++ b/Board.pm
@@ -393,8 +393,7 @@ sub _find_kings {
 
 # Returns if any side is in mate.
 sub in_mate {
-	my $board = shift;
-	my $check = $board->in_check();
+	my ($board, $check) = @_;
 	return 0 if ($check eq 'none');
 
 	# try all possible moves for the side in check
@@ -434,9 +433,10 @@ sub prettyprint_move {
 	my $pretty = $board->_prettyprint_move_no_check_or_mate($from_row, $from_col, $to_row, $to_col, $promo);
 
 	my $nb = $board->make_move($from_row, $from_col, $to_row, $to_col, $promo);
-	if ($nb->in_mate()) {
+	my $check = $nb->in_check();
+	if ($nb->in_mate($check)) {
 		$pretty .= '#';
-	} elsif ($nb->in_check() ne 'none') {
+	} elsif ($check ne 'none') {
 		$pretty .= '+';
 	}
 	return ($pretty, $nb);