結果

問題 No.48 ロボットの操縦
コンテスト
ユーザー mikan-water
提出日時 2024-01-16 21:23:22
言語 Common Lisp
(sbcl 2.5.0)
結果
AC  
実行時間 9 ms / 5,000 ms
コード長 1,479 bytes
コンパイル時間 60 ms
コンパイル使用メモリ 35,124 KB
実行使用メモリ 31,892 KB
最終ジャッジ日時 2024-09-28 02:58:58
合計ジャッジ時間 923 ms
ジャッジサーバーID
（参考情報） 		judge3 / judge2
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 25
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 28 SEP 2024 02:58:56 AM):

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

ソースコード

diff # 

; variables

; 0:N, 1:E, 2:S, 3:W
(defparameter *direction* 0)
(defparameter *x* 0)
(defparameter *y* 0)
(defparameter *k* 1)

(defvar *upper* (expt 10 9))
(defvar *lower* (* -1 (expt 10 9)))

;functions
(defun check_xyk ()
  (cond
    ((or
       (or (> *x* *upper*) (< *x* *lower*))
       (or (> *y* *upper*) (< *y* *lower*))
       (or (> *k* *upper*) (< *k* 1)))
     (print "NO"))
    (t (print "YES"))
    )
  )

(defun xy_quadrant (x y)
  (cond
    ((and (> x 0) (> y 0)) 1)
    ((and (< x 0) (> y 0)) 2)
    ((and (< x 0) (< y 0)) 3)
    ((and (> x 0) (< y 0)) 4)
    (t nil))
  )

(defun number_adv_1d (x k)
  (cond
    ((= x 0) 0)
    ((< (abs x) k) 1)
    ((= (mod x k) 0) (abs (/ x k)))
    (t (1+ (abs (truncate x k)))))
  )

(defun number_advance (x y k)
  (+ (number_adv_1d x k)
     (number_adv_1d y k))
  )

(defun number_rotate (x y quadrant)
  (cond
    ((= x 0)
     (if (> y 0)
       0
       2))
    ((= y 0) 1)
    (t
      (case quadrant
	(1 1)
	(2 1)
	(3 2)
	(4 2))
      ))
  )

(defun number_order (x y k quadrant)
  (+ (number_advance x y k)
     (number_rotate x y quadrant))
  )

(defun first_check (x y)
  (if (and (= x 0) (= y 0))
    t
    nil)
  )

(defun n48 ()
  (setf *x* (parse-integer (read-line)))
  (setf *y* (parse-integer (read-line)))
  (setf *k* (parse-integer (read-line)))

  (cond 
    ((first_check *x* *y*)
     (princ 0)
     (return-from n48 nil))
    )

  (princ (number_order *x* *y* *k* (xy_quadrant *x* *y*)))
  )

(n48)
0