結果
問題 |
No.26 シャッフルゲーム
|
ユーザー |
![]() |
提出日時 | 2024-10-06 14:40:11 |
言語 | Common Lisp (sbcl 2.5.0) |
結果 |
AC
|
実行時間 | 10 ms / 5,000 ms |
コード長 | 704 bytes |
コンパイル時間 | 994 ms |
コンパイル使用メモリ | 36,392 KB |
実行使用メモリ | 29,880 KB |
最終ジャッジ日時 | 2024-10-06 14:40:13 |
合計ジャッジ時間 | 847 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
other | AC * 10 |
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 06 OCT 2024 02:40:11 PM): ; wrote /home/judge/data/code/Main.fasl ; compilation finished in 0:00:00.015
ソースコード
; 現在の位置 N を覚えておき ; N = P なら N = Q ; N = Q なら N = P ; へ変更を行い続ける (defun main () (let* ((n (read)) (m (read))) ; dotimes 構文 ; m 回繰り返す (dotimes (_ m) (let ((p (read)) (q (read))) ; setq 変数に値を代入する ; setq var1 form1 var2 form2 ... とすると ; 一つの式で複数の変数に値を代入できる (cond ((= p n) (setq n q)) ((= q n) (setq n p)) ; それ以外の場合は t で表す (t)))) (princ n) ; 改行をストリームへ送る (terpri))) (main)