2008-10-25から1日間の記事一覧
引数として渡されたリストを、別のリストと連結(append)して、それをトップレベルに出力するような関数を書いた。 (defun say-hello (lst) (if (not (null lst)) (if (listp lst) (progn (format t (append '(Hello) (car lst))) (say-hello (cdr lst))))))…
引数として渡されたリストを、別のリストと連結(append)して、それをトップレベルに出力するような関数を書いた。 (defun say-hello (lst) (if (not (null lst)) (if (listp lst) (progn (format t (append '(Hello) (car lst))) (say-hello (cdr lst))))))…