Submission #125717

---

Source Code Expand

let forall f str1 str2 =
  let rec forall' i =
    if i = 0 then true
    else
      let i = pred i in
      if f str1.[i] str2.[i] then forall' i
      else false
  in
  let str1len = String.length str1 in
  let str2len = String.length str2 in
  if str1len <> str2len then raise (Invalid_argument "");
  forall' str1len

let solve str1 str2 =
  let judge c1 c2 =
    match c1, c2 with
    | '@', ('a' | 't' | 'c' | 'o' | 'd' | 'e' | 'r') -> true
    | ('a' | 't' | 'c' | 'o' | 'd' | 'e' | 'r'), '@' -> true
    | _ when c1 = c2 -> true
    | _ -> false in
  forall judge str1 str2

let () =
  let answer =
    if Scanf.scanf "%s %s" solve then "You can win"
    else "You will lose" in
  print_endline answer

Submission Info

Judge Result