結果

問題 No.18 うーさー暗号
ユーザー Common LispCommon Lisp
提出日時 2024-10-06 02:22:44
言語 Common Lisp
(sbcl 2.5.0)
結果
AC  
実行時間 9 ms / 5,000 ms
コード長 1,192 bytes
コンパイル時間 187 ms
コンパイル使用メモリ 27,904 KB
実行使用メモリ 21,888 KB
最終ジャッジ日時 2024-10-06 02:22:46
合計ジャッジ時間 1,106 ms
ジャッジサーバーID
(参考情報)
judge1 / judge4
このコードへのチャレンジ
(要ログイン)
ファイルパターン 結果
other AC * 13
権限があれば一括ダウンロードができます
コンパイルメッセージ
; compiling file "/home/judge/data/code/Main.lisp" (written 06 OCT 2024 02:22:44 AM):

; wrote /home/judge/data/code/Main.fasl
; compilation finished in 0:00:00.008

ソースコード

diff #
プレゼンテーションモードにする

; 1 c
; i (c - i - 1) % 26
;
(defun main ()
(let*
(
(s
; map result-type function &rest sequence+
; sequence function
; result-type
(map
; vector (1)
'vector
; char-code
; ascii A = 65, a = 97
(lambda (c) (- (char-code c) 65))
; 1
(read-line))))
(loop
; length sequence
for i below (length s)
; c (aref s i)
; aref
for c = (aref s i)
do
; write-char
(write-char
; code-char code
; code
(code-char
; 1+ i (+ 1 i)
(+ 65 (mod (- c (1+ i)) 26))))))
;
(terpri))
(main)
הההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההההה
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
0