Emacs part8
■ このスレッドは過去ログ倉庫に格納されています
0641名無しさん＠お腹いっぱい。
NGNG(let ((max (lsh -1 -1))
(ko syoko)
(ret nil))
(while (<= ko max)
(setq ret (cons ko ret)
ko (+ ko kousa)))
(nreverse ret)))
■ このスレッドは過去ログ倉庫に格納されています
(let ((max (lsh -1 -1))
(ko syoko)
(ret nil))
(while (<= ko max)
(setq ret (cons ko ret)
ko (+ ko kousa)))
(nreverse ret)))