#347996 (Nim) No.826 連絡網

• 問題: No.826 連絡網
• ユーザー: むらため
• 提出日時: 2019-05-22 03:03:50
• 言語: Nim (2.0.2)
• 結果: WA
• 実行時間: -
• コード長: 1,228 bytes
• コンパイル時間: 12,717 ms
• コンパイル使用メモリ: 322,624 KB
• 実行使用メモリ: 6,944 KB
• 最終ジャッジ日時: 2024-07-02 03:38:32
• 合計ジャッジ時間: 13,722 ms
• ジャッジサーバーID （参考情報）: judge3 / judge2

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	1 ms; 5,248 KB
testcase_01	WA	-
testcase_02	AC	2 ms; 5,376 KB
testcase_03	AC	2 ms; 5,376 KB
testcase_04	AC	2 ms; 5,376 KB
testcase_05	AC	2 ms; 5,376 KB
testcase_06	AC	2 ms; 5,376 KB
testcase_07	AC	2 ms; 5,376 KB
testcase_08	AC	2 ms; 5,376 KB
testcase_09	AC	1 ms; 5,376 KB
testcase_10	AC	2 ms; 5,376 KB
testcase_11	AC	2 ms; 5,376 KB
testcase_12	AC	4 ms; 5,376 KB
testcase_13	AC	3 ms; 5,376 KB
testcase_14	AC	3 ms; 5,376 KB
testcase_15	AC	2 ms; 5,376 KB
testcase_16	AC	3 ms; 5,376 KB
testcase_17	AC	2 ms; 5,376 KB
testcase_18	AC	2 ms; 5,376 KB
testcase_19	AC	4 ms; 5,376 KB
testcase_20	AC	4 ms; 5,376 KB
testcase_21	AC	2 ms; 5,376 KB
testcase_22	AC	2 ms; 5,376 KB
testcase_23	AC	3 ms; 5,376 KB
testcase_24	AC	2 ms; 5,376 KB
testcase_25	AC	4 ms; 5,376 KB
testcase_26	AC	3 ms; 5,376 KB
testcase_27	AC	3 ms; 5,376 KB
testcase_28	AC	3 ms; 5,376 KB
testcase_29	AC	3 ms; 5,376 KB
testcase_30	AC	4 ms; 5,376 KB
testcase_31	AC	3 ms; 5,376 KB

コンパイルメッセージ

/home/judge/data/code/Main.nim(1, 8) Warning: imported and not used: 'sequtils' [UnusedImport]
/home/judge/data/code/Main.nim(1, 17) Warning: imported and not used: 'math' [UnusedImport]
/home/judge/data/code/Main.nim(1, 22) Warning: imported and not used: 'sugar' [UnusedImport]
/home/judge/data/code/Main.nim(1, 35) Warning: imported and not used: 'strutils' [UnusedImport]

ソースコード

import sequtils,math,sugar,macros,strutils
### gorge で nim -c  exec して import
macro eval(s:static[string]): auto = parseStmt(s)
template exec(command:string,input:string="") =
  block:(const _ = gorge(command,input))
exec("cat > y826t.nim","""
import sequtils,math,sugar
proc getIsNotPrimes(n:int) :seq[bool] =
  result = newSeq[bool](n+1)
  result[0] = true
  result[1] = true
  for i in countup(2,n.float.sqrt.int):
    if result[i]: continue
    for j in countup(i*2,n,i):
      result[j] = true
echo getIsNotPrimes(10000_10)
""")
exec("nim c --hints:off --verbosity:0 y826t.nim")
exec("cat > y826tt.nim","const isNotPrimes = ")
exec("nim c -r --hints:off --verbosity:0 --nimcache:./nimcache y826t.nim >> y826tt.nim")
include "y826tt.nim"
exec("rm y826t.nim y826tt.nim")


# ###  解答コード
proc getchar_unlocked():char {. importc:"getchar_unlocked",header: "<stdio.h>" ,discardable.}
proc scan(): int =
  while true:
    let k = getchar_unlocked()
    if k < '0': return
    result = 10 * result + k.ord - '0'.ord
let n = scan()
let p = scan()
if p == 1 : quit "1",0
if p >= n div 2 and not isNotPrimes[p]: quit "1",0
var ans = n div 2 - 1
for i in countup(n div 2 + 1,n):
  if isNotPrimes[i] : ans += 1
echo ans