Submission #2852419

---

Source Code Expand

import strutils, math

proc calc(n: var int): int =
  var
    i = 2
    dic = newSeq[int]()

  while i ^ 2 <= n:
    if n mod i == 0:
      n = n div i
      if i notin dic:
        add dic, i
      i = 2
    else: i += 1

  add dic, n
  return max dic

while true:
  var n = parseInt readLine stdin
  if n == 0: break

  write stdout, calc n, "\n"

Submission Info

Compile Error

Hint: system [Processing]
Hint: Main [Processing]
Hint: strutils [Processing]
Hint: parseutils [Processing]
Hint: math [Processing]
Hint: times [Processing]
Hint:  [Link]
Hint: operation successful (13980 lines compiled; 1.883 sec total; 15.153MB; Release Build) [SuccessX]

Judge Result