結果
問題 |
No.1366 交換門松列・梅
|
ユーザー |
|
提出日時 | 2022-07-02 16:48:01 |
言語 | OCaml (5.2.1) |
結果 |
AC
|
実行時間 | 2 ms / 1,000 ms |
コード長 | 799 bytes |
コンパイル時間 | 854 ms |
コンパイル使用メモリ | 22,772 KB |
実行使用メモリ | 7,844 KB |
最終ジャッジ日時 | 2025-06-20 11:06:21 |
合計ジャッジ時間 | 1,488 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 13 |
ソースコード
let () = let a = Array.init 3 (fun _ -> Scanf.scanf " %d" (fun a -> a)) in let b = Array.init 3 (fun _ -> Scanf.scanf " %d" (fun a -> a)) in let check i j = let check2 arr = arr.(0) <> arr.(1) && arr.(1) <> arr.(2) && arr.(2) <> arr.(0) && ( (arr.(1) < arr.(0) && arr.(1) < arr.(2)) || (arr.(1) > arr.(0) && arr.(1) > arr.(2)) ) in let a = Array.copy a in let b = Array.copy b in let c = a.(i) in a.(i) <- b.(j); b.(j) <- c; check2 a && check2 b in let rec loop i j = if j = 3 then false else if i = 3 then loop 0 (j + 1) else if check i j then true else loop (i + 1) j in print_endline @@ if loop 0 0 then "Yes" else "No"