結果

問題 No.543 命題
ユーザー deruiderui
提出日時 2017-08-20 10:35:10
言語 OCaml
(5.2.1)
結果
AC  
実行時間 2 ms / 2,000 ms
コード長 669 bytes
コンパイル時間 201 ms
コンパイル使用メモリ 20,736 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-10-09 00:27:29
合計ジャッジ時間 572 ms
ジャッジサーバーID
(参考情報)
judge4 / judge2
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
other AC * 4
権限があれば一括ダウンロードができます

ソースコード

diff #
プレゼンテーションモードにする

type problem = T | F
let problem_of_string = function
| "T" -> T
| "F" -> F
| _ -> failwith "unknown token"
let string_of_problem = function
| T -> "T"
| F -> "F"
let solve_back p p_inv = p_inv
let solve_pair p p_inv = p
let parse_line line =
let regexp = Str.regexp " " in
let splitted = Str.split regexp line in
match splitted with
| p :: p_inv :: _ -> (problem_of_string p, problem_of_string p_inv)
| _ -> failwith "invalid line"
let () =
let p, p_inv = read_line () |> parse_line in
let p_back = solve_back p p_inv
and p_pair = solve_pair p p_inv in
Printf.printf "%s %s\n" (string_of_problem p_back) (string_of_problem p_pair)
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0