leobm

(ns algos.dijkstra
  (use '[clojure.contrib.incubator])
  )

(declare dijkstra build-path add-rdist update-rdists take-minnode)


(defn shortest-path
  ([net root nodedst children distance]

leobm

#!/bin/sh -x
cd /tmp

if [ ! -d "geocouch" ]; then
  git clone https://github.com/couchbase/geocouch.git
fi

cd geocouch
git checkout couchdb1.2.x

leobm

(defmacro def-curry-fn [name args & body]
  {:pre [(not-any? #{'&} args)]}
  (if (empty? args)
    `(defn ~name ~args ~@body)
    (let [rec-funcs (reduce (fn [l v]
                              `(letfn [(helper#
                                         ([] helper#)
                                         ([x#] (let [~v x#] ~l))
                                         ([x# & rest#] (let [~v x#]
                                                         (apply (helper# x#) rest#))))]

leobm

#lang racket

(require web-server/http
         web-server/managers/none
         web-server/servlet
         web-server/servlet-env)

(provide interface-version manager star-polling-app)

(define interface-version 'v2)