結果

問題 No.1040 垂直大学
コンテスト
ユーザー ichibanshibori
提出日時 2020-06-14 03:51:43
言語 OCaml
(5.2.1)
結果
AC  
実行時間 2 ms / 2,000 ms
コード長 280 bytes
コンパイル時間 185 ms
コンパイル使用メモリ 19,564 KB
実行使用メモリ 5,248 KB
最終ジャッジ日時 2024-10-09 01:02:23
合計ジャッジ時間 959 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 17
権限があれば一括ダウンロードができます

ソースコード

diff # 

let solve n =
    if n mod 90 <> 0 then
        "No"
    else (
        let dg = n / 90 in
        let od = dg mod 2 in
        if od = 1 then
            "Yes"
        else
            "No"
    )

let () =
    let n = read_line () |> int_of_string in
    print_endline @@ solve n
0