2011年6月10日金曜日

いまさら Arc Challenge を考える

時代は継続らしいので、cl-contを利用してこんな感じで書いてみます。

(defvar top-page (load-html #p"top.html"))
(defvar link-page (load-html #p"link.html"))
(defvar result-page (load-html #p"result.html"))

(defapp arc (state)
(show top-page state)
(let ((text state.reply$text))
(show link-page state)
(show result-page state `(:text ,text))))

(start #'arc)

0 件のコメント:

コメントを投稿