nathanmarz

(use 'cascalog.playground) (bootstrap)

(require '[clojure.set :as set])
(require '[cascalog.vars :as v])

(defn all-syms [form]
  (if (coll? form)
    (reduce (fn [curr elem] (set/union curr (all-syms elem)))
            #{}
            form)

sritchie

(def
  ^{:doc "Predicate macro aggregator that extracts a timeseries, given
  `?chunk`, `?temporal-resolution` and `?date`. Currently only
  functions when `?chunk` is an instance of `forma.schema.IntArray`."}
  extract-tseries
  (<- [?temporal-res ?date ?chunk :> ?pix-idx ?t-start ?t-end ?tseries]
      (datetime->period ?temporal-res ?date :> ?tperiod)
      (:sort ?tperiod)
      (timeseries ?tperiod ?chunk :> ?pix-idx ?t-start ?t-end ?tseries)))

weavejester

~/$ lein new ring-on-heroku
Created new project in: /home/jim/Development/ring-on-heroku
~/$ cd ring-on-heroku
~/ring-on-heroku$ echo 'web: lein run -m ring-on-heroku.core' > Procfile
~/ring-on-heroku$ cat > src/ring_on_heroku/core.clj 
(ns ring-on-heroku.core
  (:use ring.util.response
        ring.adapter.jetty))

(defn app [req]

bakkdoor

(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

aria42

(ns type-level-tagger
  {:doc "Implements State-of-the-art Unsupervised Part-of-speech Tagger 
        from \"Simple Type-Level Unsuperivsed POS Tagging\"
        by Yoong-Keok Lee, Aria Haghighi and Regina Barzilay
        (http://www.cs.berkeley.edu/~aria42/pubs/typetagging.pdf)
        blog post: http://wp.me/pcW6S-x"
  :author "Aria Haghighi ([email protected])"}
  (:use [clojure.java.io :only [reader]]
        [clojure.contrib.duck-streams :only [with-out-writer]]
        [clojure.contrib.seq-utils :only [indexed]]

jebu

handle_call({lookup_popular_replies, TweetId, AuthorId}, _From, #state{client=Client} = State) ->
  % reduce fun to get valid tweet keys in tweet response bucket phase 3
  Fun = make_local_fun("fun(O, _) -> 
    lists:foldl(fun
      ([LinkedTweet = <<Id:128>>, <<Val:128>>, <<\"reply\">>], Acc) ->
        [{{<<\"tweet_responses_bucket\">>, LinkedTweet}, {Id, Val}} | Acc];
      ({{<<\"tweet_responses_bucket\">>, _}, _} = PreviousPass, Acc) ->
        [PreviousPass | Acc];
      (_, Acc) ->
        Acc