Submission #7130285

---

Source Code Expand

import sequtils, strutils

const
  btn = "ABXY"
let
  n = stdin.readline.parseInt
  cs = stdin.readline

proc cnt(s:string, sub:seq[string]): int =
  var dp = newSeq[int](len(s))
  dp[0] = 1
  if len(s) > 1 and s[0..1] in sub:
    dp[1] = 1
  elif len(s) > 1:
    dp[1] = 2
  for i in 2..<len(s):
    dp[i] = dp[i-1]+1
    if s[(i-1)..i] in sub:
      dp[i] = min(dp[i], dp[i-2]+1)
  return dp[^1]

var res = n
for a in btn:
  for b in btn:
    for c in btn:
      for d in btn:
        res = min(res, cnt(cs, @[a&b, c&d]))

echo res

Submission Info

Compile Error

Hint: system [Processing]
Hint: Main [Processing]
Hint: sequtils [Processing]
Hint: strutils [Processing]
Hint: parseutils [Processing]
Hint:  [Link]
Hint: operation successful (12957 lines compiled; 1.886 sec total; 14.143MB; Release Build) [SuccessX]

Judge Result