ACしたコード その1 (let ((a (concatenate 'list (read-line))) (b (concatenate 'list (read-line))) (ans '()) (flag t)) (mapcar #'(lambda (n m) (if (char= n m) nil (cond ((char= n #\@) (push m ans)) ((char= m #\@) (push n ans)) (t (push #\b a…

ACしたコード (let ((x (read))) (format t "~A~%" (* (/ (reduce #'+ (loop for i from 1 to x collect i)) x) 10000))) LOOPマクロ (loop for i from 1 to 10 collect i) (1 2 3 4 5 6 7 8 9 10) INTEGERを要素とするリストの和 Break 3 [4]> (reduce #'+ …

標準入力した文字列を、文字を要素とするリストに変換 (let* ((lst (concatenate 'list (read-line))) (lst2 (mapcar #'type-of lst))) (format t "~A~%" lst) (format t "~S~%" lst) (format t "~A~%" lst2) (format t "~S~%" lst2)) とすると » cl 002b.li…