結果

問題 No.1146 土偶Ⅰ
ユーザー kou_kkk
提出日時 2026-05-07 20:49:12
言語 Nim
(2.2.10 + ACL)
コンパイル:
nim --nimcache=~ --hints:off -o:a.out -d:release cpp _filename_
実行:
./a.out
結果
AC  
実行時間 100 ms / 2,000 ms
+ 395µs
コード長 491 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 3,897 ms
コンパイル使用メモリ 71,980 KB
実行使用メモリ 6,528 KB
最終ジャッジ日時 2026-09-20 09:46:31
合計ジャッジ時間 6,095 ms
ジャッジサーバーID
（参考情報） 		judge4_0 / judge5_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 20
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

import sets, sequtils, strutils

proc factorize(n: int): HashSet[int] =
  var
    x = n
    i = 2
  result = initHashSet[int]()
  while i * i <= x:
    if (x mod i) == 0:
      result.incl i
      x = x div i
    else:
      inc i
  result.incl x

let
  n = parseInt stdin.readLine
  a = n.newSeqWith stdin.readLine.parseInt
  hs = a.map factorize
var
  cnt = 0

for i in 0 ..< n-2:
  for j in i+1 ..< n-1:
    for k in j+1 ..< n:
      if (hs[i] * hs[j] * hs[k]).len == 0: inc cnt

echo cnt
0