結果
問題 | No.2893 Minahoshi (Hard) |
ユーザー |
|
提出日時 | 2024-09-17 15:21:19 |
言語 | Common Lisp (sbcl 2.5.0) |
結果 |
RE
|
実行時間 | - |
コード長 | 409 bytes |
コンパイル時間 | 1,646 ms |
コンパイル使用メモリ | 25,088 KB |
実行使用メモリ | 25,472 KB |
最終ジャッジ日時 | 2024-09-17 15:21:30 |
合計ジャッジ時間 | 8,086 ms |
ジャッジサーバーID (参考情報) |
judge5 / judge3 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | RE * 1 |
other | RE * 49 |
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 17 SEP 2024 03:21:19 PM): ; file: /home/judge/data/code/Main.lisp ; in: DEFUN SOLVE ; (T (READ-INT)) ; ; caught ERROR: ; COMMON-LISP:T names a defined constant, and cannot be used in LET. ; ; compilation unit finished ; caught 1 ERROR condition ; wrote /home/judge/data/code/Main.fasl ; compilation finished in 0:00:00.012
ソースコード
(defun read-int () (parse-integer (read-line))) (defun solve () (let ((T (read-int))) (dotimes (i T) (let* ((N (read-int)) (half-N (floor N 2)) (s (concatenate 'string (make-string half-N :initial-element #\a) (make-string (- N half-N) :initial-element #\b)))) (format t "~a~%" s))))) (solve)