結果

問題 No.138 化石のバージョン
ユーザー まんしmaNNshi
提出日時 2025-04-26 11:14:33
言語 Common Lisp
(sbcl 2.5.0)
結果
AC  
実行時間 10 ms / 5,000 ms
コード長 697 bytes
コンパイル時間 2,281 ms
コンパイル使用メモリ 31,072 KB
実行使用メモリ 25,540 KB
最終ジャッジ日時 2025-04-26 11:14:37
合計ジャッジ時間 4,276 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge4
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 33
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 26 APR 2025 11:14:33 AM):

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

ソースコード

diff # 

(let ((vv (make-array 3 :initial-element #\Space)) (v (make-array 6)) (vvi 0) (vi 0))
(loop for char = (read-char nil nil) do
	(if (or (eq char #\Newline) (eq char #\.)) 
	(progn
		;;(format t "<~d>~%" vv)
		(setf (aref v vi) (parse-integer (coerce vv 'string)))
		(setq vvi 0)
		(incf vi)
		(setf vv (make-array 3 :initial-element #\Space))
		(if (= vi 6) (return))
	)
	(progn
		;(format t "vvi=~d char=~c~%" vvi char)
		(setf (aref vv vvi) char)
		(incf vvi)
	)
	)
)
(loop for i from 0 to 2 do
 ;(format 't "<~d>~%" (aref v i))
 (if (< (aref v i) (aref v (+ i 3))) (progn (format t "NO~%") (quit)))
 (if (> (aref v i) (aref v (+ i 3))) (progn (format t "YES~%") (quit)))
)
(format t "YES~%")

)
0