結果

問題 No.1059 素敵な集合
コンテスト
ユーザー 6soukiti29
提出日時 2020-05-31 13:40:22
言語 Nim
(2.2.0)
結果
CE  
(最新)
AC  
(最初)
実行時間 -
コード長 1,249 bytes
コンパイル時間 1,240 ms
コンパイル使用メモリ 65,660 KB
最終ジャッジ日時 2024-07-23 09:39:33
合計ジャッジ時間 1,584 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge4
このコードへのチャレンジ
（要ログイン）
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。（リジャッジ後のコンパイルエラーは公開されます）
ただし、clay言語の場合は開発者のデバッグのため、公開されます。

コンパイルメッセージ
/home/judge/data/code/Main.nim(5, 30) Error: type mismatch: got 'seq[int]' for 'map(split(readLine(stdin), {' ', '\t', '\v', '\r', '\n', '\f'}, -1), parseInt)' but expected 'tuple'

ソースコード

diff #
raw source code 

import sequtils,strutils
var
    L, R, ans : int

(L, R) = stdin.readline.split.map(parseInt)

type
    unionfindtree[I : static[int]] = array[I,int]

proc initUT(I : static[int]):unionfindtree[I] =
    var res : unionfindtree[I]
    for i in 0..<I:
        res[i] = i
    return res

proc find(U : var unionfindtree; a : int, b :int): bool=
    var
        s = a
        t = b
    while s != U[s]:
        s = U[s]
    while t != U[t]:
        t = U[t]
    var
        s2 = a
        t2 = b
        p : int
    while s2 != s:
        p = U[s2]
        U[s2] = s
        s2 = p
    while t2 != t:
        p = U[t2]
        U[t2] = t
        t2 = p
    return s == t
    
proc union(U : var  unionfindtree; a : int ; b : int)=
    if U.find(a,b):
        return
    var
        s = a
        t = b
        t2 : int
    while s != U[s]:
        s = U[s]
    while t != U[t]:
        t2 = U[t]
        U[t] = s
        t = t2
    U[t] = s
proc root(U : unionfindtree, a :int):int=
    var
        s = a
    while s != U[s]:
        s = U[s]
    return s

var
    A = initUT(200010)

for i in L..R:
    for j in 2..200010:
        if i * j >  R:
            break
        A.union(i, i * j)

for i in L..R:
    if A[i] == i:
        ans += 1
echo ans - 1
0