iota再び
loopマクロを使ったら簡単に書けました。
(defun iota (m &optional (n 1)) (loop for i from n to m collect i)) (print (iota 10)) ; => (1 2 3 4 5 6 7 8 9 10)
loopマクロを使ったら簡単に書けました。
(defun iota (m &optional (n 1)) (loop for i from n to m collect i)) (print (iota 10)) ; => (1 2 3 4 5 6 7 8 9 10)