結果

問題 No.824 Many Shifts Hard
ユーザー yosuteconyosutecon
提出日時 2019-05-17 15:15:27
言語 Julia
(1.10.2)
結果
WA  
実行時間 -
コード長 433 bytes
コンパイル時間 148 ms
コンパイル使用メモリ 6,940 KB
実行使用メモリ 249,188 KB
最終ジャッジ日時 2024-04-09 14:15:29
合計ジャッジ時間 8,685 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge5
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 WA -
testcase_01 WA -
testcase_02 WA -
testcase_03 WA -
testcase_04 WA -
testcase_05 WA -
testcase_06 WA -
testcase_07 WA -
testcase_08 WA -
testcase_09 WA -
testcase_10 WA -
testcase_11 WA -
testcase_12 WA -
testcase_13 WA -
testcase_14 WA -
testcase_15 WA -
testcase_16 WA -
testcase_17 WA -
testcase_18 WA -
testcase_19 WA -
testcase_20 WA -
testcase_21 WA -
testcase_22 WA -
権限があれば一括ダウンロードができます

ソースコード

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