Submission #2841110

---

Source Code Expand

import strutils, algorithm

type
  str = string
let
  S = readLine stdin
var
  s = ""
  flg = false
  dic = newSeq[str]()

proc inc(dic: var seq[str], s: str) =
  if s != "" and s notin dic:
    add dic, s

for c in S & "E":
  if flg:
    case c
    of '@', ' ', 'E':
      inc dic, s
      s = ""

      if c == ' ':
        flg = false
    else:
      add s, c
  else:
    if c == '@':
      flg = true

if dic.len != 0:
  echo sorted(dic, cmp).join("\n")

Submission Info

Compile Error

Hint: system [Processing]
Hint: Main [Processing]
Hint: strutils [Processing]
Hint: parseutils [Processing]
Hint: algorithm [Processing]
Hint:  [Link]
Hint: operation successful (12489 lines compiled; 5.589 sec total; 13.138MB; Release Build) [SuccessX]

Judge Result