factorial = Enumerator.new {|y|
  (1..Float::INFINITY).inject(1) {|acc, x| y << acc; acc * x}
}
f = ->(r, m, n) {
  a = r.map {|d| [d] * m}.flatten
  if m == 1
    facts = factorial.take(a.size + 1)
    return facts.last < n ? a.reverse : facts.reverse.each_cons(2).each_with_object(a) {
      |(x, y), acc| acc << acc.delete_at((n - 1) % x / y)
    }
  end
  b = (0...a.size).each_cons(2).to_a.reverse
  (n - 1).times.each_with_object(a) {
    i, j = b.find {|i, j| a[i] < a[j]}
    break a if not i
    k = a.rindex {|ak| a[i] < ak}
    a[i], a[k] = a[k], a[i]
    a[j..-1] = a[j..-1].reverse
  }
}
p f.(1..9, 1, 1)
p f.(1..9, 1, 2)
p f.(1..9, 1, 3)
p f.(1..9, 1, 123456)
p f.(1..9, 1, 234567)
p f.(1..9, 1, 362880)
p f.(1..4, 3, 1)
p f.(1..4, 3, 2)
p f.(1..4, 3, 3)
p f.(1..4, 3, 123456)
p f.(1..4, 3, 234567)
p f.(1..4, 3, 369600)
 

ZmFjdG9yaWFsID0gRW51bWVyYXRvci5uZXcge3x5fAogICgxLi5GbG9hdDo6SU5GSU5JVFkpLmluamVjdCgxKSB7fGFjYywgeHwgeSA8PCBhY2M7IGFjYyAqIHh9Cn0KZiA9IC0+KHIsIG0sIG4pIHsKICBhID0gci5tYXAge3xkfCBbZF0gKiBtfS5mbGF0dGVuCiAgaWYgbSA9PSAxCiAgICBmYWN0cyA9IGZhY3RvcmlhbC50YWtlKGEuc2l6ZSArIDEpCiAgICByZXR1cm4gZmFjdHMubGFzdCA8IG4gPyBhLnJldmVyc2UgOiBmYWN0cy5yZXZlcnNlLmVhY2hfY29ucygyKS5lYWNoX3dpdGhfb2JqZWN0KGEpIHsKICAgICAgfCh4LCB5KSwgYWNjfCBhY2MgPDwgYWNjLmRlbGV0ZV9hdCgobiAtIDEpICUgeCAvIHkpCiAgICB9CiAgZW5kCiAgYiA9ICgwLi4uYS5zaXplKS5lYWNoX2NvbnMoMikudG9fYS5yZXZlcnNlCiAgKG4gLSAxKS50aW1lcy5lYWNoX3dpdGhfb2JqZWN0KGEpIHsKICAgIGksIGogPSBiLmZpbmQge3xpLCBqfCBhW2ldIDwgYVtqXX0KICAgIGJyZWFrIGEgaWYgbm90IGkKICAgIGsgPSBhLnJpbmRleCB7fGFrfCBhW2ldIDwgYWt9CiAgICBhW2ldLCBhW2tdID0gYVtrXSwgYVtpXQogICAgYVtqLi4tMV0gPSBhW2ouLi0xXS5yZXZlcnNlCiAgfQp9CnAgZi4oMS4uOSwgMSwgMSkKcCBmLigxLi45LCAxLCAyKQpwIGYuKDEuLjksIDEsIDMpCnAgZi4oMS4uOSwgMSwgMTIzNDU2KQpwIGYuKDEuLjksIDEsIDIzNDU2NykKcCBmLigxLi45LCAxLCAzNjI4ODApCnAgZi4oMS4uNCwgMywgMSkKcCBmLigxLi40LCAzLCAyKQpwIGYuKDEuLjQsIDMsIDMpCnAgZi4oMS4uNCwgMywgMTIzNDU2KQpwIGYuKDEuLjQsIDMsIDIzNDU2NykKcCBmLigxLi40LCAzLCAzNjk2MDApCg==