結果

問題 No.816 Beautiful tuples
ユーザー yosutecon
提出日時 2019-05-17 15:15:56
言語 Julia
(2.11.2)
結果
WA  
実行時間 -
コード長 433 bytes
コンパイル時間 420 ms
コンパイル使用メモリ 7,076 KB
実行使用メモリ 248,392 KB
最終ジャッジ日時 2024-10-01 17:23:51
合計ジャッジ時間 6,296 ms
ジャッジサーバーID
（参考情報） 		judge5 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 11 WA * 4
権限があれば一括ダウンロードができます

ソースコード

diff # 

parseInt(x)=parse(Int,x)
parseMap(x::Array{SubString{String},1})=map(parseInt,x)

function main()
	a,b = readline() |> split |> parseMap
	c = Int[]
	r = 1
	while r <= sqrt(a+b)
		if (a+b)%r == 0
			push!(c,r)
			push!(c,div(a+b,r))
		end
		r += 1
	end
	c = sort(c)
	f = 0
	for i in 1:length(c)
		if (a+c[i])%b==0 && (b+c[i])%a==0 && a!=c && b!=c
			println(c[i])
			f = 1
			break
		end
	end
	if f == 0
		println(-1)
	end
end
main()
0