結果
問題 | No.48 ロボットの操縦 |
ユーザー |
![]() |
提出日時 | 2022-10-31 01:46:08 |
言語 | Scheme (Gauche-0.9.15) |
結果 |
AC
|
実行時間 | 23 ms / 5,000 ms |
コード長 | 293 bytes |
コンパイル時間 | 87 ms |
コンパイル使用メモリ | 5,120 KB |
実行使用メモリ | 16,128 KB |
最終ジャッジ日時 | 2024-07-07 17:02:33 |
合計ジャッジ時間 | 1,639 ms |
ジャッジサーバーID (参考情報) |
judge2 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 25 |
ソースコード
#!/usr/bin/env gosh(define (order-times x y l)(+(if (zero? x) 0 1)(if (< y 0) (if (zero? x) 2 1) 0)(ceiling (/ (abs x) l))(ceiling (/ (abs y) l))))(define (main _)(let* ([x (read)][y (read)][l (read)])(display (order-times x y l)))(newline)0)