SchemeでWebアプリを開発できるらしい #2

前回の続き

rkdora.hatenablog.com

---

Add1

URL直打ち

動き

/add1/数字で、数字+1する。

コード

(get "/add1/:n"
  (lambda (req)
    (let ((n (params req 'n)))
      (format "~a + 1 = ~a" n (add1 (string->number n))))))

フォーム付き

動き

フォームに入力した数字に＋１する。

コード

(get "/add1"
  (lambda (req)
    (let ((n (params req 'n)))
      (format "~a + 1 = ~a" n (add1 (string->number n))))))

(get "/f"
  (lambda (req)
    "<form method='get' action='/add1'>
      <input name='n'>
      <input type='submit'>
    </form>"))

まとめ

URLの値は、paramsで取得できる。