締め切りが 09/02 10:00 AM に設定されている（ずいぶん先だなあ）
ということで 09/02 10:01 AM に投稿されるように予約（あとで，締め切りが延ばされても，それには関知しない）
【概要】
カードが何枚かあります。
カードには、一桁の数字が書いてあります。
カードを n 枚選んで並べて数を作ります。
たとえば、「3」「1」「4」「1」「5」が書いてあるカードから 3 枚(つまり、n=3)を選んで並べると「341」や「115」を作ることができます( 「334」や「31」は作れません）。
作れる数のうち、ある数 m にもっとも近い数を答えてください。
【入出力】
入力は
4,1234,1/2/2/3/9/9/9
のような感じです。
コンマ区切りで、n(カードの枚数)、m(この値に近い数を作る)、カード列 が並んでいます。
カード列は、カードに書いてある数字をスラッシュ区切りで並べたものです。
出力は、
1232
のような感じです。最も近い数が 2 つある場合は、小さい順に両方共出力してください。
1233,1235
のような感じです。
末尾の改行はあってもなくても構いません。
作れる数がひとつもない場合には、- を出力してください。
【例】
入力 出力
4,1234,1/2/2/3/9/9/9 1232
4,1234,1/2/2/3/3/5/5 1233,1235
【補足】
「01」のような、「0」で始まる二桁以上の数は作れません。一桁の「0」は OK です。
カードの枚数は8枚以下です。
n は 1 以上で、カードの枚数を超えることはありません。
m は 0 以上、10の9乗以下です。
6 のカードを逆さにして 9 として使ったりすることはできません。
不正な入力に対処する必要はありません。
【テスト用データ】
1,3,0/9/8
2,10,0/9/8
3,414,3/4/9/8/7
4,4981,4/5/0/1/2/3/8
5,12345,0/0/0/0/0/0/0
5,43103,3/5/0/2/1/4/9/4
6,172365,3/2/3/7/2/7/1/6
7,6523060,4/0/7/2/6/5/3/3
8,19069255,1/2/9/3/7/6/9/0
8,80465325,2/6/5/7/8/9/7/7
8,88888888,8/8/8/8/8/8/8/8
8,88888888,9/8/7/6/5/4/3/2
perm = function(n) {
z = matrix(1)
if (n > 1) {
for (i in 2:n) {
x = cbind(z, i)
a = c(1:i, 1:(i - 1))
z = matrix(0, ncol = ncol(x), nrow = i * nrow(x))
z[1:nrow(x), ] = x
for (j in 2:i - 1) {
z[j * nrow(x) + 1:nrow(x), ] = x[, a[1:i + j]]
}
}
}
dimnames(z) = NULL
return(z)
}
func = function(s) {
t = as.integer(unlist(strsplit(s, "[,/]")))
n = t[1]
m = t[2]
t = t[-(1:2)]
k = length(t)
p = matrix(t[perm(k)], ncol=k)[,1:n, drop=FALSE]
p = unique(p)
if (n > 1) {
p = p[p[,1] != 0, , drop=FALSE]
}
if (nrow(p) == 0) return("-")
fac = if (n == 0) 1 else 10^((n-1):0)
d = p %*% fac
diff = abs(d-m)
suf = which(diff == min(diff))
paste(d[suf], collapse=",")
}
con = file("stdin", "r")
cat(func(readLines(con)))
