Code to fetch the highest stock

stocks.clj

(ns stocks.core
  (:gen-class)
  (:require [clj-http.client :as client])
  (:require [cheshire.core :refer :all]))

(def url "http://dev.markitondemand.com/MODApis/Api/v2/Quote/json?symbol=%s")

(defn get-stock-value-of
  [symbol]
  (let [response (-> ((client/get (format url symbol)) :body)
                     (parse-string true))]
  {:name (response :Name) :price (response :LastPrice)}))

(defn find-higest-stock
  [stocks]
  (first (sort-by :price #(> %1 %2) (pmap get-stock-value-of stocks))))

(defn -main
  [& args]
  (println (find-higest-stock ["AMZN" "YHOO" "FB" "GOOGL" "MSFT"]))
  (shutdown-agents))