結果

問題 No.133 カードゲーム
ユーザー milanis48663220milanis48663220
提出日時 2019-10-27 14:09:32
言語 Elixir
(1.16.2)
結果
AC  
実行時間 683 ms / 5,000 ms
コード長 1,419 bytes
コンパイル時間 1,254 ms
コンパイル使用メモリ 63,148 KB
実行使用メモリ 54,484 KB
最終ジャッジ日時 2024-06-09 22:59:23
合計ジャッジ時間 18,037 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge1
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 AC 683 ms
54,068 KB
testcase_01 AC 665 ms
54,168 KB
testcase_02 AC 653 ms
54,364 KB
testcase_03 AC 654 ms
54,268 KB
testcase_04 AC 668 ms
53,932 KB
testcase_05 AC 663 ms
54,440 KB
testcase_06 AC 649 ms
54,328 KB
testcase_07 AC 664 ms
54,068 KB
testcase_08 AC 654 ms
54,068 KB
testcase_09 AC 657 ms
54,148 KB
testcase_10 AC 674 ms
54,004 KB
testcase_11 AC 657 ms
54,228 KB
testcase_12 AC 660 ms
53,936 KB
testcase_13 AC 662 ms
54,412 KB
testcase_14 AC 681 ms
54,484 KB
testcase_15 AC 679 ms
54,316 KB
testcase_16 AC 658 ms
54,432 KB
testcase_17 AC 678 ms
53,904 KB
testcase_18 AC 664 ms
54,236 KB
testcase_19 AC 647 ms
54,304 KB
testcase_20 AC 679 ms
54,100 KB
testcase_21 AC 657 ms
54,180 KB
testcase_22 AC 665 ms
54,440 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
    warning: Enum.chunk/2 is deprecated. Use Enum.chunk_every/2 instead
    │
 27 │ 			true -> Enum.chunk(ans, n_remain)
    │                 ~
    │
    └─ Main.exs:27:17: Comb.permutations/3

ソースコード

diff # 

defmodule Int do
	def fac(n, m) do
		ans = []
		cond do
			m*m > n -> ans ++ [n]
			rem(n, m) == 0 -> ans ++ [m] ++ (div(n, m) |> fac(m))
			true -> ans ++ fac(n, m+1)
		end
	end
end

defmodule Comb do
	def permutations(n, n_remain, used) do
		ans =
		for x <- 1..n do
			if Enum.at(used, x-1) == false do
				ps = permutations(n, n_remain-1, List.replace_at(used, x-1, true))
				case n_remain <= 1 do
					true -> [x]
					_ -> Enum.map(ps, fn p ->  List.insert_at(p, -1, x) end)
				end
			end
		end
		|> Enum.filter(fn p -> p != nil end)
		|> List.flatten
		case n_remain > 1 do
			true -> Enum.chunk(ans, n_remain)
			_ -> [ans]
		end
	end
end

defmodule Prob do
	def judge(a, b, pa, pb) do
		result =
		for x <- 1..length(a) do
			Enum.at(a, Enum.at(pa, x-1)-1) > Enum.at(b, Enum.at(pb, x-1)-1)
		end
		length(Enum.filter(result, fn r -> r == true end))*2 > length(a)
	end
end

defmodule Main do
	def main do
		n = IO.gets("") |> String.trim() |> String.to_integer
		used =  for _ <- 1..n, do: false
		p = Comb.permutations(n, n, used)
		q = p
		a = IO.gets("") |> String.trim()  |> String.split(" ") |> Enum.map(fn s -> String.to_integer(s) end)
		b = IO.gets("") |> String.trim()  |> String.split(" ") |> Enum.map(fn s -> String.to_integer(s) end)
		result = for pa <- p, pb <- q, do: Prob.judge(a, b, pa, pb)
		ans = length(Enum.filter(result, fn r -> r == true end))/length(result)
		IO.inspect(ans)
	end
end
0