Skip to content

Instantly share code, notes, and snippets.

View keithharper's full-sized avatar

Keith Harper keithharper

6 followers · 2 following
  • Cognitect, Inc
  • Georgia, USA
View GitHub Profile
@keithharper
keithharper / query-stats-scenario2.edn
Created January 27, 2023 17:50
query-stats for scenario 2
(-> {:query '{:find [?album-name ?year]
:in [$ ?artist-name]
:where [[?artist :artist/name ?artist-name]
[?release :release/artists ?artist]
[?release :release/year ?year]
[(< ?year 1970)]
[?release :release/name ?album-name]]}
:args [db "John Lennon"]
:query-stats true}
d/query
@keithharper
keithharper / query-stats-scenario1.edn
Last active August 7, 2024 13:01
query-stats for scenario1
(-> {:query '{:find [?album-name ?year]
:in [$ ?artist-name]
:where [[?artist :artist/name ?artist-name]
[?release :release/artists ?artist]
[?release :release/name ?album-name]
[?release :release/year ?year]
[(< ?year 1970)]]}
:args [db "John Lennon"]
:query-stats true}
d/query
@keithharper
keithharper / harder-anagrams.org
Last active July 1, 2019 10:43
Harder Anagrams 
(defn anagrams? [words1 words2]
  (let [xf (comp sort
                 (partial re-seq #"[^\s]")
                 clojure.string/lower-case
                 str)]
    (= (xf words1)
       (xf words2))))