#import algorithm, future, macros, math, sequtils, sets, strutils, tables import algorithm, sugar, macros, math, sequtils, sets, strutils, tables macro unpack(rhs: seq, cnt: static[int]): auto = let t = genSym(); result = quote do:(let `t` = `rhs`;()) if NimMinor <= 17: for i in 0..>=`(n: var int, m: int) = n = n shr m proc `?=`(n: var int, m: int) = n = max(n, m) proc newSeq2[T](n1, n2: Natural): seq[seq[T]] = newSeqWith(n1, newSeq[T](n2)) proc newSeq3[T](n1, n2, n3: Natural): seq[seq[seq[T]]] = newSeqWith(n1, newSeqWith(n2, newSeq[T](n3))) # -------------------------------------------------- # var (x, y, z) = scan(int, 3) var data = scan(string, 2) var S0 = data[0] var t0 = data[1].parseInt() var data2 = scan(string, 2) var S1 = data2[0] var t1 = data2[1].parseInt() if S0 == S1: var p: int var LR: int case S0: of "A": p = x LR = min(y, z) - 1 of "B": p = y LR = min(z, x) - 1 of "C": p = z LR = min(x, y) - 1 else: discard if t0 > t1: swap(t0, t1) var SL = t0 - 1 var RG = p - t1 echo min(abs(t0 - t1), SL + LR + RG + 2) else: var p, q: int case S0: of "A": p = x of "B": p = y of "C": p = z else: discard case S1: of "A": q = x of "B": q = y of "C": q = z else: discard var r = (x + y + z) - (p + q) var SL = t0 - 1 var SR = p - t0 var LG = t1 - 1 var RG = q - t1 var LR = r - 1 # echo p # echo q # echo r # echo SL # echo SR # echo LG # echo RG # echo LR echo min([SL + LG + 1, SR + RG + 1, SL + LR + RG + 2, SR + LR + LG + 2])