Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

66 lines (59 sloc) 2.354 kb
(ns foreclojure.graphs
(:use compojure.core
(foreclojure utils)
somnium.congomongo
(amalloy.utils [transform :only [with-adjustments]]
[reorder :only [reorder]]))
(:require (incanter [charts :as chart]
[core :as incanter]
[stats :as stats]))
(:import (java.io ByteArrayInputStream
ByteArrayOutputStream)))
(defn un-group
"Turn a compact set of [data-point num-repetitions] pairs into a
bunch of repeated data points so that incanter will make a histogram
of them."
[frequencies]
(mapcat (partial apply (reorder repeat))
frequencies))
(defn fetch-score-frequencies [problem-id]
(into {}
(for [[k v] (:scores
(from-mongo
(fetch-one :problems
:where {:_id problem-id}
:only [:scores])))]
[(Integer/parseInt (name k)), v])))
(defn make-problem-plot [id best curr]
(let [freqs (fetch-score-frequencies id)
chart-data (un-group freqs)
[best curr] [(or best curr) (or curr best)]
chart (chart/histogram chart-data
:title (str "League scores: problem " id)
:x-label "Solution length"
:y-label "How often"
:nbins 25)]
(when best
(chart/add-pointer chart best 0
:text "your best"
:angle :ne))
(when (and curr (not= curr best))
(chart/add-pointer chart curr 0
:text "this"
:angle :ne))
(when-not (> (count freqs) 1)
(chart/add-text chart best (freqs best 0)
"Very little golfing data - chart may suck"))
(doto chart (chart/set-theme :bw))))
(defn serve-plot [plot]
(let [out (ByteArrayOutputStream.)
in (do
(incanter/save plot out)
(ByteArrayInputStream. (.toByteArray out)))]
{:response 200
:headers {"Content-Type" "image/png"}
:body in}))
(defroutes graph-routes
(GET "/leagues/golf/:id" [id best curr]
(with-adjustments #(when (seq %) (Integer/parseInt %)) [id best curr]
(serve-plot (make-problem-plot id best curr)))))
Jump to Line
Something went wrong with that request. Please try again.