提出 #4122150

ソースコード 拡げる

let () =
  let compare (a, b) =
    if a > b
      then ">"
      else (if a < b then "<" else "=")
  and input = Scanf.scanf "%x %x" (fun x y -> (x, y))
  and println str = print_string (str ^ "\n")
  in
    println @@ compare input;;

提出情報

提出日時
問題 A - HEX
ユーザ nobita0918
言語 OCaml (4.02.3)
得点 100
コード長 245 Byte
結果 AC
実行時間 1 ms
メモリ 384 KiB

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 100 / 100
結果
AC × 3
AC × 12
セット名 テストケース
Sample example_0, example_1, example_2
All example_0, example_1, example_2, rand_0, rand_1, rand_2, rand_3, rand_4, rand_5, rand_6, rand_7, rand_8
ケース名 結果 実行時間 メモリ
example_0 AC 1 ms 384 KiB
example_1 AC 1 ms 384 KiB
example_2 AC 1 ms 384 KiB
rand_0 AC 1 ms 384 KiB
rand_1 AC 1 ms 384 KiB
rand_2 AC 1 ms 384 KiB
rand_3 AC 1 ms 384 KiB
rand_4 AC 1 ms 384 KiB
rand_5 AC 1 ms 384 KiB
rand_6 AC 1 ms 384 KiB
rand_7 AC 1 ms 384 KiB
rand_8 AC 1 ms 384 KiB