結果

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

ソースコード

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:
    list[2..3].join " "
0