Skip to content

Instantly share code, notes, and snippets.

@sorenmacbeth

sorenmacbeth/gist:2323123

Created April 6, 2012 21:35
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save sorenmacbeth/2323123 to your computer and use it in GitHub Desktop.
Save sorenmacbeth/2323123 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.clj
(let [pedigree (help/mk-pedigree (co/to-long (t/date-time 1979 11 13)))
session-path [[1 "http://dopeness.org/" "http://dopeness.org/" 1]
[2 "http://dopeness.org/" "http://dopeness.org/3" 3]]
pageviews [[1 "http://dopeness.org/" pedigree]
[2 "http://dopeness.org/" pedigree]
[2 "http://dopeness.org/2" pedigree]
[2 "http://dopeness.org/3" pedigree]]
visit-types [[1 true pedigree]
[2 false pedigree]]]
(fact
(pageviews-by-time "dopeness" pageviews) =>
(produces [["d3603-dopeness-http://dopeness.org/" 2]
["d3603-dopeness-http://dopeness.org/2" 1]
["d3603-dopeness-http://dopeness.org/3" 1]
["h86472-dopeness-http://dopeness.org/" 2]
["h86472-dopeness-http://dopeness.org/2" 1]
["h86472-dopeness-http://dopeness.org/3" 1]
["m128-dopeness-http://dopeness.org/" 2]
["m128-dopeness-http://dopeness.org/2" 1]
["m128-dopeness-http://dopeness.org/3" 1]
["w514-dopeness-http://dopeness.org/" 2]
["w514-dopeness-http://dopeness.org/2" 1]
["w514-dopeness-http://dopeness.org/3" 1]]))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment