結果
問題 |
No.64 XORフィボナッチ数列
|
ユーザー |
|
提出日時 | 2025-04-05 11:40:02 |
言語 | Common Lisp (sbcl 2.5.0) |
結果 |
TLE
|
実行時間 | - |
コード長 | 376 bytes |
コンパイル時間 | 1,464 ms |
コンパイル使用メモリ | 25,600 KB |
実行使用メモリ | 25,856 KB |
最終ジャッジ日時 | 2025-04-05 11:40:11 |
合計ジャッジ時間 | 8,544 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 6 TLE * 1 -- * 4 |
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 05 APR 2025 11:40:02 AM): ; file: /home/judge/data/code/Main.lisp ; in: FORMAT T ; (CASE N (0 F0) (1 F1) (OTHERWISE F1)) ; --> COND IF IF THE ; ==> ; F1 ; ; note: deleting unreachable code ; ; compilation unit finished ; printed 1 note ; wrote /home/judge/data/code/Main.fasl ; compilation finished in 0:00:00.042
ソースコード
(defvar F0) (defvar F1) (defvar N) (defvar temp) (setq temp (read-from-string (concatenate 'string "(" (read-line) ")"))) (setq F0 (nth 0 temp)) (setq F1 (nth 1 temp)) (setq N (nth 2 temp)) ;(format t "~d ~d~%" N M) (setq temp 0) (loop for i from 2 to N do (setq temp f1) (setq f1 (logxor f0 f1) ) (setq f0 temp)) (format t "~d~%" (case N (0 F0) (1 F1) (otherwise f1)))