結果
問題 | No.2791 Beginner Contest |
ユーザー |
![]() |
提出日時 | 2024-11-02 16:46:07 |
言語 | Common Lisp (sbcl 2.5.0) |
結果 |
AC
|
実行時間 | 16 ms / 2,000 ms |
コード長 | 681 bytes |
コンパイル時間 | 288 ms |
コンパイル使用メモリ | 35,636 KB |
実行使用メモリ | 32,748 KB |
最終ジャッジ日時 | 2024-11-02 16:46:09 |
合計ジャッジ時間 | 1,880 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge1 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 17 |
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 02 NOV 2024 04:46:07 PM): ; wrote /home/judge/data/code/Main.fasl ; compilation finished in 0:00:00.018
ソースコード
(defconstant +mod+ 998244353)(defun main (&rest argv)(declare (ignorable argv))(let* ((n (read))(k (read))(dp1 (make-array (1+ n) :initial-element 0))(dp2 (make-array (1+ n) :initial-element 0)))(setf (aref dp1 0) 1)(setf (aref dp2 0) 1)(loop for i from 1 to nif (minusp (- i k))do (setf (aref dp1 i) 0)elsedo (incf (aref dp1 i) (aref dp2 (- i k)))(setf (aref dp1 i) (mod (aref dp1 i) +mod+))do (incf (aref dp2 i) (+ (aref dp2 (1- i)) (aref dp1 i)))(setf (aref dp2 i) (mod (aref dp2 i) +mod+)))(format t "~d~%" (aref dp2 n))))(main)