結果

問題 No.48 ロボットの操縦
コンテスト
ユーザー まんしmaNNshi
提出日時 2025-03-22 08:53:25
言語 Common Lisp
(sbcl 2.6.3)
コンパイル:
sbclc _filename_
実行:
sbcl --script Main.fasl
結果
AC  
実行時間 7 ms / 5,000 ms
コード長 574 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 207 ms
コンパイル使用メモリ 33,732 KB
実行使用メモリ 29,668 KB
最終ジャッジ日時 2026-07-07 19:25:59
合計ジャッジ時間 1,989 ms
ジャッジサーバーID
（参考情報） 		judge2_0 / judge1_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 25
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 07 JUL 2026 07:25:55 PM):

; wrote /home/judge/data/code/Main.fasl
; compilation finished in 0:00:00.043

ソースコード

diff #
raw source code 

(defvar X)
(defvar Y)
(defvar L)
(setq X (parse-integer (read-line)))
(setq Y (parse-integer (read-line)))
(setq L (parse-integer (read-line)))


(defparameter o 0)

(if (and (= Y 0) (= X 0))  (setq o 0))
(if (and (= Y 0) (/= X 0)) (setq o 1))

(if (and (> Y 0) (= X 0)) (setq o 0))
(if (and (> Y 0) (/= X 0)) (setq o 1))

(if (and (< Y 0) (= X 0)) (setq o 2))
(if (and (< Y 0) (/= X 0)) (setq o 2))

;(format 't "o=<~d>~%" o)

(if (/= X 0) (setq o (+ o (ceiling (abs X) L))))
(if (/= Y 0) (setq o (+ o (ceiling (abs Y) L))))

;(format 't "o=<~d>~%" o)
(format 't "~d~%" o)
0