結果
問題 | No.388 階段 (1) |
ユーザー | Miyu Osanai |
提出日時 | 2018-07-29 21:32:49 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
WA
|
実行時間 | - |
コード長 | 131 bytes |
コンパイル時間 | 86 ms |
コンパイル使用メモリ | 6,816 KB |
実行使用メモリ | 16,128 KB |
最終ジャッジ日時 | 2024-07-18 14:53:29 |
合計ジャッジ時間 | 1,009 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 WA * 1 |
other | AC * 8 WA * 4 |
ソースコード
(define (which-floor p) (ceiling (/ (car p) (cadr p)))) (print (which-floor (map string->number (string-split (read-line) " "))))