いまさら 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)