結果
問題 | No.1406 Test |
ユーザー |
|
提出日時 | 2021-02-26 21:37:01 |
言語 | Common Lisp (sbcl 2.5.0) |
結果 |
AC
|
実行時間 | 9 ms / 2,000 ms |
コード長 | 169 bytes |
コンパイル時間 | 1,248 ms |
コンパイル使用メモリ | 36,548 KB |
実行使用メモリ | 21,760 KB |
最終ジャッジ日時 | 2024-10-02 14:10:07 |
合計ジャッジ時間 | 2,129 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge2 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 2 |
other | AC * 22 |
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 02 OCT 2024 02:10:04 PM): ; file: /home/judge/data/code/Main.lisp ; in: ; PRINC (1+ (FLOOR (+ 100 (MULTIPLE-VALUE-BIND (_ X) (CEILING S N) X)) N)) ; (MULTIPLE-VALUE-BIND (_ X) (CEILING S N) X) ; ; caught STYLE-WARNING: ; The variable _ is defined but never used. ; ; compilation unit finished ; caught 1 STYLE-WARNING condition ; wrote /home/judge/data/code/Main.fasl ; compilation finished in 0:00:00.017
ソースコード
(defvar n (read))(defvar s (loop repeat (1- n)sum (read)))(princ (1+ (floor (+ 100 (multiple-value-bind (_ x) (ceiling s n) x)) n)))(fresh-line)