レス数が950を超えています。1000を超えると表示できなくなるよ。

Emacs part3

806 ：名無しさん＠お腹いっぱい。 ：02/01/31 18:00

>>778
> (defun my-minibuffer-read-number-list()
> (interactive)
> (let* ((string (read-from-minibuffer "Input: "))
> (num-list (mapcar 'string-to-int
> (split-string string "[ \f\t\n\r\v]+"))))
> num-list))

(defun my-minibuffer-read-number-list (string)
(interactive "sInput: ")
(mapcar 'string-to-int (split-string string "[ \f\t\n\r\v]+")))

と書けば短い。

read.cgi ver5.26+ (01/10/21-)