gistfile1.clj

(defn landings [root]
  (let [ybtag (select-fields (ybtag-tap root) ["!psn" "!pvi" "!lo" "!ln" "!g_C" "!g_r" "!g_c" "!r" "!nv"])
        landing-sq (<- [!pub !country !region !city !kw !ref !url !pv-id ?c]
                       (ybtag !pub !pv-id !url !ln !country !region !city !r !nv)
                       (not= !r nil)
                       (expand-fields !r :> !kw !ref)
                       (= !ln "true")
                       (= !nv "1")
                       (c/count ?c))]
    (<- [!pub !country !region !city !kw !ref !url ?s]
        (landing-sq !pub !country !region !city !kw !ref !url !pv-id ?c)
        (c/sum ?c :> ?s))))

(defn landings [root]
  (let [ybtag (select-fields (ybtag-tap root) ["!psn" "!pvi" "!lo" "!ln" "!g_C" "!g_r" "!g_c" "!r" "!nv"])
        landing-sq (<- [!pub !country !region !city !kw !ref !url !pv-id ?c]
                       (ybtag !pub !pv-id !url !ln !country !region !city !r !nv)
                       (not= !r nil)
                       (expand-fields !r :> !kw !ref)
                       (= !ln "true")
                       (= !nv "0")
                       (c/count ?c))]
    (<- [!pub !country !region !city !kw !ref !url ?s]
        (landing-sq !pub !country !region !city !kw !ref !url !pv-id ?c)
        (c/sum ?c :> ?s))))