compojure example

gistfile1.clj

(ns adder.handler
  (:use compojure.core)
  (:require [compojure.handler :as handler]
            [compojure.route :as route]))

(defn parse-input [s]
  (Integer. (re-find #"[0-9]*" s)))

(def fibs
  ((fn rfib
     [a b]
     (lazy-seq
       (cons a (rfib b (+ a b)))))
     0 1))

(defroutes app-routes
  (GET "/add/:a/:b", [a b]
                  (str a " + " b " = " (+ (parse-input a) (parse-input b))))
  (GET "/fib/:n", [n]
       (str "fib[" n "] = " (nth fibs (parse-input n))))
  (route/not-found "Not Found"))

(def app
  (handler/site app-routes))