View problem8.clj
(def bignumber "7316717653133062491922511967442657474235534919493496983520312774506326239578318016984801869478851843858615607891129494954595017379583319528532088055111254069874715852386305071569329096329522744304355766896648950445244523161731856403098711121722383113622298934233803081353362766142828064444866452387493035890729629049156044077239071381051585930796086670172427121883998797908792274921901699720888093776657273330010533678812202354218097512545405947522435258490771167055601360483958644670632441572215539753697817977846174064955149290862569321978468622482839722413756570560574902614079729686524145351004748216637048440319989000889524345065854122758866688116427171479924442928230863465674813919123162824586178664583591245665294765456828489128831426076900422421902267105562632111110937054421750694165896040807198403850962455444362981230987879927244284909188845801561660979191338754992005240636899125607176060588611646710940507754100225698315520005593572972571636269561882670428252483600823257530420752963450") | |
(def |
View problem8.clj
(def bignumber "7316717653133062491922511967442657474235534919493496983520312774506326239578318016984801869478851843858615607891129494954595017379583319528532088055111254069874715852386305071569329096329522744304355766896648950445244523161731856403098711121722383113622298934233803081353362766142828064444866452387493035890729629049156044077239071381051585930796086670172427121883998797908792274921901699720888093776657273330010533678812202354218097512545405947522435258490771167055601360483958644670632441572215539753697817977846174064955149290862569321978468622482839722413756570560574902614079729686524145351004748216637048440319989000889524345065854122758866688116427171479924442928230863465674813919123162824586178664583591245665294765456828489128831426076900422421902267105562632111110937054421750694165896040807198403850962455444362981230987879927244284909188845801561660979191338754992005240636899125607176060588611646710940507754100225698315520005593572972571636269561882670428252483600823257530420752963450") | |
(def |
View kwphrase_tests.clj
(ns ybot.kwphrase-tests | |
(:use [ybot.analytics.ga kwphrase] | |
[ybot datastores] | |
[midje sweet cascalog])) | |
(let [ga-data [["20121025" | |
"http://dopeness.org" | |
"United States" | |
"Oregon" | |
"Portland" |
View sam.clj
(defmacro sam [expr pos zero neg] | |
(if (< 0 (eval expr)) | |
pos | |
(if (> 0 (eval expr)) | |
neg | |
zero))) |
View gist:1667190
(def moment | |
(<- [!val !k :> !moment] | |
(c/avg !val :> !mean) | |
(- !val !mean :> !dev) | |
(expt !dev !pow :> !pow-dev) | |
(c/sum !pow-dev :> !pow-dev-sum) | |
(div !pow-dev-sum !count :> !moment))) |
View gist:1627929
import numpy as np | |
def test_my_mult(n): | |
A = np.random.rand(n*23).reshape(n,23) | |
At = A.T | |
t0 = time.time() | |
res = np.dot(A.T, A) | |
print time.time() - t0 | |
print np.shape(res) |
View matrix.py
(defn feature-vec [n] | |
(map (partial cons 1) | |
(for [x (range n)] | |
(take 22 (repeatedly rand))))) | |
(defn dot-product [x y] | |
(reduce + (map * x y))) | |
(defn transpose | |
"returns the transposition of a `coll` of vectors" |
View gist:1592781
(defn drop-every-nth | |
[n coll] | |
(keep-indexed (fn [idx val] | |
(when (pos? (mod (inc idx) n)) | |
val)) | |
coll)) |
View Is there a way to pass a cascalog variable to limit or first-n
(defn top-n-seq [sample-name n] | |
(let [aa-seq-fields ["?aa" "?v" "?j" "?sn" "?nc" "?c" "?nf" "?rf" "?cdr3"] | |
sample-name-seqs (<- aa-seq-fields | |
(aa-seqs :>> aa-seq-fields) | |
(= ?sn sample-name))] | |
(<- aa-seq-fields ((c/first-n sample-name-seqs n :sort ["?nc"] :reverse true) | |
:>> aa-seq-fields)))) |
View Is there a way to pass a cascalog variable to limit or first-n
(defn top-n-seq [sample-name n] | |
(let [aa-seq-fields ["?aa" "?v" "?j" "?sn" "?nc" "?c" "?nf" "?rf" "?cdr3"] | |
sample-name-seqs (<- aa-seq-fields | |
(aa-seqs :>> aa-seq-fields) | |
(= ?sn sample-name))] | |
(<- aa-seq-fields ((c/first-n sample-name-seqs n :sort ["?nc"] :reverse true) | |
:>> aa-seq-fields)))) | |
(let [aa-seq-fields ["?aa" "?v" "?j" "?sn" "?nc" "?c" "?nf" "?rf" "?cdr3"]] | |
(?<- (stdout) aa-seq-fields |
NewerOlder