結果

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

ソースコード

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