Arc チャレンジがらみで Arc をいじる

• WiLiKi: Arcからの挑戦

MzScheme は v352 を使わなければいけないので MacPorts にちょっと細工をしないといけないようです。

• The electrofriend | You'll see how very reasonable the price is, when you consider that you can put an electrofriend in your ear, where it will whisper good advice and supply you with all kinds of information.

あとは普通に、

$ wget http://ycombinator.com/arc/arc2.tar
$ tar xf arc2.tar
$ cd arc2
$ mzscheme -m -f as.scm

で、Arc チャレンジのコード実行

• Take the Arc Challenge

Use (quit) to quit, (tl) to return here after an interrupt.
arc> (defop said req
  (aform [w/link (pr "you said: " (arg _ "foo"))
           (pr "click here")]
    (input "foo")
    (submit)))
#<procedure:gs2413>
arc> (asv)
ready to serve port 8080

この状態で http://localhost:8080/said にアクセスするとお題どおりの動作…

1. 入力欄と submit ボタン
2. click here リンク
3. you said: 《最初のページで入力したテキスト》

をする。

ということで、ほんとにこれだけのコードで条件を満たす動作が実現されていることは確認できた。