結果

問題 No.414 衝動
ユーザー kou_kkk
提出日時 2025-02-28 12:37:43
言語 Nim
(2.2.0)
結果
RE  
実行時間 -
コード長 412 bytes
コンパイル時間 4,140 ms
コンパイル使用メモリ 67,272 KB
実行使用メモリ 27,140 KB
最終ジャッジ日時 2025-02-28 12:37:51
合計ジャッジ時間 6,189 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 12 RE * 1
権限があれば一括ダウンロードができます

ソースコード

diff # 

import math, sequtils, strutils


proc divisors(n: int): seq[int] =
  let
    fn1 = proc (i: int): seq[int] =
      if i ^ 2 == n: @[i]
      elif n mod i == 0: @[i, n div i]
      else: @[]
    rootN = n.float.sqrt.int
  (1..rootN).toSeq.map(fn1).foldl(a & b)


let
  m = parseInt stdin.readLine
  list = divisors(m)

echo:
  if list.len == 2:
    "1 " & $m
  else:
    let x = list[2]
    [x, m div x].join " "
0