dekker-phd-thesis/assets/mzn/minilns/assign_random.mzn

predicate assign_random(array[int] of var int: X, int: R) =
          forall (i in index_set(X))
                 (if uniform(1,100) < R then X[i] = sol(X[i]) else true endif);