- 539 名前：デフォルトの名無しさん mailto:sage [2010/11/12(金) 18:24:58 ]
- 知らないけど、
12345を1234と5に分ける、
1234を123と4に分ける、
……ってやれば作れるよ。
っていうのでは意味がないんでしょうか。
(defun nat-to-list (n &optional lst)
(cond ((< n 1) lst)
(t (nat-to-list (/ n 10) (cons (mod n 10) lst)))))
(require 'cl)
(defun nat-to-list-2 (n0)
(do ((n n0 (/ n 10))
(lst nil (cons (mod n 10) lst)))
((< n 1) lst)))
ふだんLispを使わないので変なところあったら教えてほしかったりする。
