- 139 名前：デフォルトの名無しさん mailto:sage [04/12/22 00:39:46]
- >>128
環境は何ですか？ Common Lisp には標準では while はありません．
n 個 0 を表示するには下記の方法から好きなものをどーぞ．
;; dotimes 構文
(defun f1 (n)
(dotimes (i n)
(princ n)))
;; do 構文
(defun f2 (n)
(do ((i 0 (1+ i))) ;; i=0 を宣言し，ループ毎に i = (1+ i) してカウンタを増す
((= i n)) ;; i==n になったらループ停止
(princ 0)))
;; loop 構文
(defun f3 (n)
(loop repeat n do (princ n)))
;; 再帰
(defun f4 (n)
(cond ((= n 0)
(princ 0))
(t
(princ 0)
(f4 (- n 1)))))
