- What's Updog?
Nm what's up with you? 2. Okay, so why should I care about Updog?
What's Updog?
#! /usr/bin/env python | |
# Loads up some crap from Mixpanel and shoves it into a Postgres | |
# Setup: | |
# sudo apt-get install python-dev libpq-dev | |
# sudo easy_install psycopg2 | |
# Usage: | |
# python export-mixpanel-to-rds.py --hostname $HOSTNAME --database $DATABASE --username $USERNAME--password $PASSWORD --key $KEY --secret $SECRET --start 2013-12-01 --end 2014-01-10 | |
# ******************************************************************** |
set :port, 6969 | |
set :bind, "0.0.0.0" |
-*- mode: clojure; -*- | |
; vim: filetype=clojure | |
(logging/init {:file "riemann.log"}) | |
; Listen on the local interface over TCP (5555), UDP (5555), and websockets | |
; (5556) | |
(let [host "0.0.0.0"] | |
(tcp-server {:host host}) | |
(udp-server {:host host}) |
(ns extranapkins.core-test | |
(:require [clojure.test :refer :all] | |
[clojure.string :as string] | |
[extranapkins.core :refer :all])) | |
(def from-blog "I've got nine hundred and twenty-one words for you: I've got nine hundred and twelve words for you: I've got nine hundred and three words for you: I've got eight hundred and ninety-four words for you: I've got eight hundred and eighty-five words for you: I've got eight hundred and seventy-six words for you: I've got eight hundred and sixty-seven words for you: I've got eight hundred and fifty-eight words for you: I've got eight hundred and forty-nine words for you: I've got eight hundred and forty words for you: I've got eight hundred and thirty-one words for you: I've got eight hundred and twenty-two words for you: I've got eight hundred and thirteen words for you: I've got eight hundred and four words for you: I've got seven hundred and ninety-five words for you: I've got seven hundred and eighty-six words for you: I've got seven hundred and |
(def number->words) | |
(defn small->word [n] | |
(case n | |
1 "one" | |
2 "two" | |
3 "three" | |
4 "four" | |
5 "five" | |
6 "six" |
(defn extranapkin [s] | |
(let [n (number->words (count (string/split s #" ")))] | |
(str "I've got " n " words for you: " s))) | |
(defn extranapkins [x] | |
(loop [so-far "Fuck off" | |
i 1] | |
(if (> i x) | |
so-far | |
(recur (extranapkin so-far) (inc i))))) |
weird-abs.core=> (Math/abs -10000000000000) | |
10000000000000 | |
weird-abs.core=> (def a -10000000000000) | |
#'weird-abs.core/a | |
weird-abs.core=> (Math/abs a) | |
1316134912 |
(defn scary-people | |
"Go `n` levels deep into the 'Normal people scare me' shirt" | |
[n] | |
(loop [i n | |
ret "Normal people scare me" | |
quotes (if (odd? i) \" \')] | |
(if (zero? i) | |
ret | |
(recur (dec i) | |
(str "Normal people wearing " quotes ret quotes " shirts scare me") |
intended | |
(s/def ::boop string?) | |
(s/def ::blah (s/keys :opt {::boop})) | |
{::boop 5} ;; error | |
{::booop 5} ;; not an error |