2005-08-17から1日間の記事一覧
http://www.geocities.jp/m_hiroi/xyzzy_lisp.html リストをアトム毎に表示する ソース (defun print-list (lst) (while lst (insert (format nil "~D~%" (car lst))) (setq lst (cdr lst)))) 実行結果 (print-list '(1 2 3 4 5 6)) 1 2 3 4 5 6 nil ミニバ…
http://www.geocities.jp/m_hiroi/xyzzy_lisp.html リストをアトム毎に表示する ソース (defun print-list (lst) (while lst (insert (format nil "~D~%" (car lst))) (setq lst (cdr lst)))) 実行結果 (print-list '(1 2 3 4 5 6)) 1 2 3 4 5 6 nil ミニバ…