Skip to content

Instantly share code, notes, and snippets.

View gist:f0923bcd4312c692e4fc41f5864636ce
(defn rect [wd ht] {:Shape ::rect :wd wd :ht ht})
(defn circle [radius] {:Shape ::circle :radius radius})
(defn square [wd ht ] {:Shape ::square :wd wd :ht ht})
(defmethod area :default [x] :oops)
(defmethod area ::rect [r]
(* (:wd r) (:ht r)))
(derive ::square ::rect)
(area (rect 10 10))
View gist:65edec6c28a89f378c27803fb78be6d8
(defn get-length
[path]
(let [cmd (str
"ffmpeg -i '"
path
"' 2>&1 | grep Duration | cut -d ' ' -f 4 | sed s/,//"
)
output (.start (ProcessBuilder. (into-array ["/bin/bash" "-c" cmd])))
info (slurp (.getInputStream output))]
View gist:a3eaa450bfd7b5d403fcd8da92b98746
In [2]: import tensorflow as tf
---------------------------------------------------------------------------
ImportError Traceback (most recent call last)
<ipython-input-2-64156d691fe5> in <module>()
----> 1 import tensorflow as tf
/usr/local/lib/python2.7/dist-packages/tensorflow/__init__.py in <module>()
22
23 # pylint: disable=g-bad-import-order
---> 24 from tensorflow.python import pywrap_tensorflow # pylint: disable=unused-import
View gist:1cf1bbd9458ecdf3d7b47571c35585b8
(defn _trades-chan
"Open the URL as a stream of trades information. Return a channel of the trades, represented as strings."
[]
(let[session (new-session)
{:keys [url sessionid]} (:stream session)
dump-url (str url "?sessionid=" sessionid "&symbols=mu" )
lines (-> dump-url
(client/get {:as :stream})
:body
io/reader
View gist:0550e2ccfc60b7ba847368fae4003eac
{:inputs [{:id 1 :headline "YAMBA MALAWI GALA FOR GOOD"},
{:id 2 :headline "ALICE + OLIVIA SUPPORTS GOOD+ IN THE HAMPTONS"},
{:id 3 :headline "GOOP HOSTS IN GOOP HEALTH"}]
:searches [
{:input "GOOD", :output [1,2]},
{:input "GOOP", :output [3]}]
}
View gist:a950be8ff0cdfccda101dcb5158cdbb0
{:inputs [{:id 1 :headline "YAMBA MALAWI GALA FOR GOOD"},
{:id 2 :headline "ALICE + OLIVIA SUPPORTS GOOD+ IN THE HAMPTONS"},
{:id 3 :headline "GOOP HOSTS IN GOOP HEALTH"}
{:id 4 :headline "GOODS FOR GOOD"
:id 5 :headline "ZEBRA FOR BAD"
}]
:searches [
{:input "GOOD", :output [1,2,4]},
{:input "GOOP", :output [3]}]}
View gist:2a66596428465b2f2462458e1ca54a3f
; the query
(d/q '[:find ?price ?pt ?type
:in $ $shard ?cid ?type
:where
[$shard ?e :content/collection ?coll]
[$shard ?e :content/price_tier ?pt]
[$shard ?coll :collection/organization ?user]
[$ ?user :user/prices ?p]
[$ ?p :price/price ?price]
View gist:44c9eb8f2bacf27dec2d69bce12e6a51
individual photos
[2317487, 2317496, 2344921, 2344923, 2344925, 2344926, 2344927, 2344928, 2344929, 2344930, 2344931, 2344932, 2344933, 2344934, 2344935, 2344936, 2344937, 2344938, 2344939, 2344940, 2344941, 2344942, 2344943, 2344944, 2344945, 2344946, 2344947, 2344948, 2345266, 2358213, 2364500, 2364501, 2364502, 2364503, 2364504, 2364505, 2364506, 2364507, 2364508, 2368845, 2368846, 2368848, 2368850, 2380534, 2380535, 2380536, 2380537, 2380538, 2380539, 2380540, 2380541, 2380542, 2380543, 2380544, 2380545, 2380546, 2380547, 2380548, 2380549, 2380550, 2380551, 2380552, 2380553, 2380554, 2380555, 2380556, 2380557, 2380558, 2380559, 2380560, 2380561, 2380562, 2380563, 2380564, 2380565, 2380566, 2380567, 2380568, 2380569, 2380570, 2380571, 2380572, 2380573, 2380574, 2380575, 2380576, 2380577, 2380578, 2380579, 2380580, 2380581, 2380582, 2380583, 2380584, 2380585, 2380586, 2380587, 2380589, 2380590, 2380591, 2380592, 2380593, 2380594, 2380595, 2380596, 2380597, 2380598, 2380599, 2380600, 2380601, 2380602, 23806
View gist:240bdb36986e708863a54d7ebefba50a
(defn concat-memo [current _new]
(let [oldq (:query current)
oldi (:inputs current)
newq (:query _new)
newi (:inputs _new)
_all {:query {:find (if-let [_find (:find newq)]
(vec (concat (:find oldq) _find))
(:find oldq))
:in (if-let [_in (:in newq)]
(vec (concat (:in oldq) _in))
View gist:e0c4ed28e64752130fe82d0f3e39c575
(d/q
'[:find ?u
:where [?u :user/email "jdkealy@gmail.com"]]
(db/_d))
; #{[17592186045908]}
(d/q
'[:find ?entity ?name ?tx ?score
:in $ ?search
You can’t perform that action at this time.