   "Run the specified code-string against the test cases for the problem with the
 specified id.
 
-Return a vector of [message-to-display url-to-display-at num-tests-passed]."
+Return a map, {:message, :url, :num-tests-passed}."
   [id raw-code]
   (try
     (let [code (.trim raw-code)

        [:span#graph-link "View Chart"]]])))

(defn rest-run-code [id raw-code]
  (let [[message url failure-index] (run-code id raw-code)]
    (json-str {:failingTest failure-index
               :message message
               :golfScore (html (render-golf-score))
               :golfChart (html (render-golf-chart))})))

         :else (str "You've solved the problem! If you "
                    (login-link "log in" (str "/problem/" _id)) " we can track your progress."))]
    (session/session-put! :code [_id code])
    {:message (str message " " gist-link), :url (str "/problem/" _id)}))

(def restricted-list '[use require in-ns future agent send send-off pmap pcalls])

