結果

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

ソースコード

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[i] && b!=c[i]
			println(c[i])
			f = 1
			break
		end
	end
	if f == 0
		println(-1)
	end
end
main()
0