結果
問題 | No.201 yukicoderじゃんけん |
ユーザー |
|
提出日時 | 2016-11-04 18:39:11 |
言語 | OCaml (5.2.1) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 398 bytes |
コンパイル時間 | 104 ms |
コンパイル使用メモリ | 16,768 KB |
最終ジャッジ日時 | 2024-11-14 19:53:43 |
合計ジャッジ時間 | 507 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge1 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
File "Main.ml", line 1, characters 5-8: 1 | open Num ^^^ Error: Unbound module Num
ソースコード
open Numlet read_sp () =let s, p = read_line () |>Str.split (Str.regexp_string " ") |>fun lst -> (List.nth lst 0, Num.num_of_string (List.nth lst 1))in(s, p)let solve (sa, pa) (sb, pb) =if pa =/ pb then "-1"else if pa >/ pb then saelse sblet () =let sa, pa = read_sp ()and sb, pb = read_sp ()insolve (sa, pa) (sb, pb) |> print_endline