結果

問題 No.138 化石のバージョン
コンテスト
ユーザー まんしmaNNshi
提出日時 2025-04-26 11:14:33
言語 Common Lisp
(sbcl 2.6.3)
コンパイル:
sbclc _filename_
実行:
sbcl --script Main.fasl
結果
AC  
実行時間 5 ms / 5,000 ms
コード長 697 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 950 ms
コンパイル使用メモリ 28,800 KB
実行使用メモリ 19,328 KB
最終ジャッジ日時 2026-07-10 08:45:18
合計ジャッジ時間 2,959 ms
ジャッジサーバーID
（参考情報） 		judge3_0 / judge2_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 33
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 10 JUL 2026 08:45:15 AM):

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

ソースコード

diff #
raw source code 

(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