結果
問題 | No.531 エヌスクミ島の平和協定 |
ユーザー |
|
提出日時 | 2017-12-28 20:28:14 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 22 ms / 2,000 ms |
コード長 | 178 bytes |
コンパイル時間 | 30 ms |
コンパイル使用メモリ | 6,684 KB |
実行使用メモリ | 16,128 KB |
最終ジャッジ日時 | 2024-09-19 18:32:52 |
合計ジャッジ時間 | 2,300 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 37 |
ソースコード
(define (main args)(let* ([n (read)][m (read)])(cond [(>= m n) 1][(and (even? n) (>= m (quotient n 2))) 2][else -1])))0)