(make-thread :name common-lisp :part 5)

(make-thread :name common-lisp :part 5) at TECH

66:デフォルトの名無しさん
08/07/19 09:22:03
>>63なるほどね。シンボル（あなたは「シンボル」で「言葉」を表現
する事に決めたわけだけど、他人にLISPで話すときは共通の語彙を使おう）
をデータベースがわりにするというとこんなんでだろうだろう？
(defun message-read (message)
(format t "~A" message)
(finish-output)
(read))
(defun select-item (symbol)
(let* ((lst (symbol-value symbol))
(n (random (length lst))))
(nth n lst)))
(defun input-database ()
(let* ((symbol (message-read "何か知りたいな:"))
(what (message-read "それは何?:")))
(unless (boundp symbol)
(setf (symbol-value symbol) nil))
(pushnew what (symbol-value symbol))))
(defun query-database ()
(let ((symbol (message-read "何がしりたい:")))
(if (boundp symbol)
(format t "~Aは~Aのことだよ~%" symbol (select-item symbol))
(format t "~Aは知りません~%" symbol))))

次ページ

続きを表示

1を表示