Commit ee73ff61 authored by Stephane Glondu's avatar Stephane Glondu

Handle cornercase: shuffle with no NH

parent c9ec77ae
Pipeline #79743 passed with stages
in 16 minutes and 54 seconds
......@@ -179,8 +179,7 @@ module Make (W : ELECTION_DATA) (M : RANDOM) = struct
let x = Array.copy (Shape.to_shape_array x) in
let n = Array.length x and m = Array.length cc in
let rec loop i j =
if i < n then (
assert (j < m);
if i < n && j < m then (
match election.e_params.e_questions.(i) with
| Question.Standard _ -> loop (i+1) j
| Question.Open _ ->
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment