Submission #21743445

Source Code Expand

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
A,B,S = $<.map{|ln| ln.chomp.bytes.reverse }
C2D = [nil]*123
D2C = [nil]*10
NZ = [-1]*123; NZ[A[-1]] = NZ[B[-1]] = NZ[S[-1]] = 0
Z = [A,B,S].map(&:size).max
F = lambda{|i,carry|
  next carry<1 if i==Z
  a = (c = A[i]) ? C2D[c] : 0
  b = (c = B[i]) ? C2D[c] : 0 if a
  next D2C.each_with_index.find{|e,d|
    next if e
    next if d==NZ[c]
    D2C[d],C2D[c] = c,d
    next F[i,carry] || D2C[d] = C2D[c] = nil
  } unless b
  sum = a+b+carry
  if s = (c = S[i]) ? C2D[c] : 0
    next s==sum%10 && F[i+1,sum/10]
 
 
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

A,B,S = $<.map{|ln| ln.chomp.bytes.reverse }
C2D = [nil]*123
D2C = [nil]*10
NZ = [-1]*123; NZ[A[-1]] = NZ[B[-1]] = NZ[S[-1]] = 0
Z = [A,B,S].map(&:size).max
F = lambda{|i,carry|
	next carry<1 if i==Z

	a = (c = A[i]) ? C2D[c] : 0
	b = (c = B[i]) ? C2D[c] : 0 if a
	next D2C.each_with_index.find{|e,d|
		next if e
		next if d==NZ[c]
		D2C[d],C2D[c] = c,d
		next F[i,carry] || D2C[d] = C2D[c] = nil
	} unless b

	sum = a+b+carry

	if s = (c = S[i]) ? C2D[c] : 0
		next s==sum%10 && F[i+1,sum/10]
	else
		s = sum%10
		next if D2C[s] || s==NZ[c]
		D2C[s],C2D[c] = c,s
		next F[i+1,sum/10] || D2C[s] = C2D[c] = nil
	end
}

if (A|B|S).size<11 && F[0,0]
	puts [A,B,S].map{ _1.reverse_each.map{|c| C2D[c] }*'' }
else
	puts'UNSOLVABLE'
end

Submission Info

Judge Result