gistfile1.clj

(defn landings [root]
  (let [ybtag (select-fields (ybtag-tap root) ["!psn" "!ts" "!pvi" "!lo" "!ln" "!g_C" "!g_r" "!g_c" "!r"])
        landing-sq (<- [!psn !datestr !g_C !g_r !g_c !kw !ref !lo !pvi ?c]
        (ybtag !psn !ts !pvi !lo !ln !g_C !g_r !g_c !r)
        (long->datestr !ts :> !datestr)
        (parse-referrer !r :> !ref)
        (extract-kw !r :> !kw)
        (= !ln "true")
        (c/count ?c))]
    (<- [!psn !datestr !g_C !g_r !g_c !kw !r !lo ?s]
        (landing-sq !psn !datestr !g_C !g_r !g_c !kw !r !lo !pvi ?c)
        (c/sum ?c :> ?s))))

(defn pageviews [root]
  (let [ybtag (select-fields (ybtag-tap root) ["!psn" "!ts" "!pvi" "!lo" "!ln" "!g_C" "!g_r" "!g_c" "!r"])
        pageviews-sq (<- [!psn !datestr !g_C !g_r !g_c !kw !ref !lo !pvi ?c]
        (ybtag !psn !ts !pvi !lo !ln !g_C !g_r !g_c !r)
        (long->datestr !ts :> !datestr)
        (parse-referrer !r :> !ref)
        (extract-kw !r :> !kw)
        (c/count ?c))]
    (<- [!psn !datestr !g_C !g_r !g_c !kw !r !lo ?s]
        (pageviews-sq !psn !datestr !g_C !g_r !g_c !kw !r !lo !pvi ?c)
        (c/sum ?c :> ?s))))