Consumer key: IQKbtAYlXLripLGPWd0HUA
Consumer secret: GgDYlkSvaPxGxC4X8liwpUoqKwwr3lCADbz8A7ADU
Consumer key: 3nVuSoBZnx6U4vzUxf5w
Consumer secret: Bcs59EFbbsdF6Sl9Ng71smgStWEGwXXKSjYvPVt7qys
Consumer key: CjulERsDeqhhjSme66ECg
(defn cascalog-map | |
[op-var output-fields & {:keys [stateful?]}] | |
(let [ser (ops/fn-spec op-var)] | |
(proxy [BaseOperation Function] [^Fields output-fields] | |
(prepare [^FlowProcess flow-process ^OperationCall op-call] | |
(let [op (serfn/deserialize-val ser)] | |
(-> op-call | |
(.setContext [op (if stateful? (op))])))) | |
(operate [^FlowProcess flow-process ^FunctionCall fn-call] | |
(let [[op] (.getContext fn-call) |
(defn write-record | |
"Write an associative data structure to Kryo's buffer. Write record | |
name as a string, count as an int, then serialize the key/value pairs." | |
[^Kryo registry ^Output output r] | |
(.writeString output (.getName (class r)) true) | |
(.writeInt output (count r) true) | |
(doseq [[k v] r] | |
(.writeClassAndObject registry output k) | |
(.writeClassAndObject registry output v))) |
Consumer key: IQKbtAYlXLripLGPWd0HUA
Consumer secret: GgDYlkSvaPxGxC4X8liwpUoqKwwr3lCADbz8A7ADU
Consumer key: 3nVuSoBZnx6U4vzUxf5w
Consumer secret: Bcs59EFbbsdF6Sl9Ng71smgStWEGwXXKSjYvPVt7qys
Consumer key: CjulERsDeqhhjSme66ECg
(defconst ham-mode-keymap (make-sparse-keymap) "Keymap used in ham mode") | |
(define-key ham-mode-keymap (kbd "C-c C-0") 'go-ham) | |
(defgroup ham-mode nil | |
"HAM minor mode.") | |
(defun go-ham () | |
(interactive) | |
(message "HARD AS A MOTHERFUCKER")) |
#!/usr/bin/ruby | |
# | |
# find all domains that bit-squat a given domain. | |
# | |
# Based on this article: http://domainincite.com/bit-squatting-%E2%80%93-the-latest-risk-to-domain-name-owners/ | |
# | |
# improvements: use a regex rather than URI.parse | |
require 'uri' |
(defvar upside-down-alist | |
'((?a . ?ɐ) | |
(?b . ?q) | |
(?c . ?ɔ) | |
(?d . ?p) | |
(?e . ?ǝ) | |
(?f . ?ɟ) | |
(?g . ?ƃ) | |
(?h . ?ɥ) | |
(?i . ?ı) |
(require 'font-lock) | |
(defvar thrift-mode-hook nil) | |
(add-to-list 'auto-mode-alist '("\\.thrift\\'" . thrift-mode)) | |
(defvar thrift-indent-level 2 | |
"Defines 2 spaces for thrift indentation.") | |
;; syntax coloring |
(defn counts-per-day [intent-tap] | |
(<- [!intent !bucket !count] | |
(intent-tap _ !intent !ped) | |
(g/extract-true-as-of !ped :> !ms) | |
(o/time-buckets ["d"] !ms :> !bucket) | |
(c/count !count))) | |
(defn avg-sd [counts-per-day-sq min-avg] | |
(<- [!intent !a !sd] | |
(counts-per-day-sq !intent !bucket !count) |
(let [pedigree (help/mk-pedigree (co/to-long (t/date-time 1979 11 13))) | |
session-path [[1 "http://dopeness.org/" "http://dopeness.org/" 1] | |
[2 "http://dopeness.org/" "http://dopeness.org/3" 3]] | |
pageviews [[1 "http://dopeness.org/" pedigree] | |
[2 "http://dopeness.org/" pedigree] | |
[2 "http://dopeness.org/2" pedigree] | |
[2 "http://dopeness.org/3" pedigree]] | |
visit-types [[1 true pedigree] | |
[2 false pedigree]]] | |
(fact |
(ns lein-maybe-bug.core | |
(:import leinmaybebug.SomeClass)) | |
(gen-class :name lein-maybe-bug.SomeGenClass | |
:prefix "somegenclass-") | |
(defn somegenclass-test [this] | |
(SomeClass.)) |