aboutsummaryrefslogtreecommitdiff
path: root/challenge-111/abigail/pascal
diff options
context:
space:
mode:
authorAbigail <abigail@abigail.be>2021-05-08 19:48:44 +0200
committerAbigail <abigail@abigail.be>2021-05-08 19:48:44 +0200
commitd1d50a826bef898d19976cd6a13fb10dfe0adc59 (patch)
tree2130a3be77833a2be0baf69fc4a2588341f102d7 /challenge-111/abigail/pascal
parent6dc4f40a3fc2e1fc286490d55f93a4e9293ae119 (diff)
downloadperlweeklychallenge-club-d1d50a826bef898d19976cd6a13fb10dfe0adc59.tar.gz
perlweeklychallenge-club-d1d50a826bef898d19976cd6a13fb10dfe0adc59.tar.bz2
perlweeklychallenge-club-d1d50a826bef898d19976cd6a13fb10dfe0adc59.zip
Fix off-by-one error for Pascal solution (week 111, part 1)
Diffstat (limited to 'challenge-111/abigail/pascal')
-rw-r--r--challenge-111/abigail/pascal/ch-1.p2
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-111/abigail/pascal/ch-1.p b/challenge-111/abigail/pascal/ch-1.p
index b94e34fca9..75db5f1c79 100644
--- a/challenge-111/abigail/pascal/ch-1.p
+++ b/challenge-111/abigail/pascal/ch-1.p
@@ -42,7 +42,7 @@ function bsearch (matrix: matrix_type; target: Longint) : Integer;
min := mid + 1;
end
else begin
- max := mid - 1;
+ max := mid;
end
end
end;