LISP Scheme Part2
レス数が900を超えています。1000を超えると表示できなくなるよ。
0943デフォルトの名無しさん
NGNGGCL でどーかはわからんが。
(defun hoge (str)
(map 'string
#'(lambda (c)
(if (char<= #\０ c #\９)
(code-char
(+ (char-code #\0)
(- (char-code c)
(char-code #\０))))
c))
str))
(hoge "１２３４５あいう")
"12345あいう"
レス数が900を超えています。1000を超えると表示できなくなるよ。