From de00a2ae4a7b9acddc5104406fedf4738f35d8ed Mon Sep 17 00:00:00 2001 From: davidly Date: Sat, 6 Jul 2024 13:06:47 -0700 Subject: [PATCH] better method to determine if odd --- RHA (Minisystems) ALGOL v55/TTT.ALG | 13 ++----------- 1 file changed, 2 insertions(+), 11 deletions(-) diff --git a/RHA (Minisystems) ALGOL v55/TTT.ALG b/RHA (Minisystems) ALGOL v55/TTT.ALG index 6b5fd30..662db7c 100644 --- a/RHA (Minisystems) ALGOL v55/TTT.ALG +++ b/RHA (Minisystems) ALGOL v55/TTT.ALG @@ -12,7 +12,6 @@ COMMENT pieceBlank 0 ; INTEGER movecount; INTEGER ARRAY board[0:8]; -INTEGER ARRAY isodd[0:8]; INTEGER PROCEDURE winner; BEGIN @@ -148,7 +147,7 @@ BEGIN END; IF value = 0 THEN BEGIN - IF 1 = isodd[ depth ] THEN BEGIN + IF 1 = ( depth MOD 2 ) THEN BEGIN value := 2; pm := 1; END @@ -164,7 +163,7 @@ BEGIN score := minmax( alpha, beta, depth + 1, p ); board[ p ] := 0; - IF 1 = isodd[ depth ] THEN BEGIN + IF pm = 1 THEN BEGIN IF score > value THEN BEGIN value := score; IF ( ( value = 6 ) OR ( value >= beta ) ) THEN @@ -212,14 +211,6 @@ BEGIN board[ i ] := 0; END; - FOR i:=0 STEP 2 UNTIL 8 DO BEGIN - isodd[ i ] := 0; - END; - - FOR i:=1 STEP 2 UNTIL 7 DO BEGIN - isodd[ i ] := 1; - END; - FOR i:=0 STEP 1 UNTIL 9 DO BEGIN movecount := 0; findsolution( 0 );