Quantisan

;; https://scott.mn/2014/01/26/first_thoughts_on_liberator_clojure/

(defn blog-post-resource [request id]
  {:authorized?
   (fnk [logged-in-user request]
     (or logged-in-user
         (= (:method request) :get)))

   :allowed?
   (fnk [logged-in-user author request]

Quantisan

(defproject something "0.0.1"
  :dependencies [[org.clojure/core.typed.core "0.x"]]  ;; with minimal trace
  :profiles {:dev {:dependencies [[org.clojure/core.typed "0.x"]]}}) ;; with full

Quantisan

'use strict';
// Generated on <%= (new Date).toISOString().split('T')[0] %> using <%= pkg.name %> <%= pkg.version %>

var gulp = require('gulp');
var open = require('open');
var wiredep = require('wiredep').stream;

// Load plugins
var $ = require('gulp-load-plugins')();

Quantisan

Product Recommendation with Four Customers and 2 Products

Suppose we have a business with only 4 customers and 2 products. The customer can either view or buy a product. We can represent our customers and products as a graph like so.

CREATE
(bob { name:'Bob' }),
(tom { name:'Tom' }),

Quantisan

(ns etl.field
  "Cascalog field name and variable functions."
  (:refer-clojure :exclude (replace))
  (:use [clojure.string :only (replace)]))

(defn replace-field [coll match replacement]
  (let [idx  (.indexOf coll match)]
    (assoc coll idx replacement)))

(defn- agg-replace [suffix]

Quantisan

;; TEST

(deftest join-right-recent-test
  (let [left  (memory-source-tap ["?timestamp" "?uscc" "?x"]
                                 [[1000 "u1" "AAA"]
                                  [2000 "u2" "BBB"]])
        right (memory-source-tap ["?timestamp" "?uscc" "?y" "?z"]
                                 [[500 "u1" "a1" "a2"]
                                  [800 "u1" "b1" "b2"]
                                  [1100 "u1" "c1" "c2"]])]

Quantisan

test.flips <- function(N, A.prop=0.5, B.prop=0.5, attr="p.value") {
  heads.A <- rbinom(1, N, A.prop)
  heads.B <- rbinom(1, N, B.prop)
  test <- prop.test(c(heads.A, heads.B), n=c(N, N), alternative="two.sided")
  return(as.numeric(test[attr]))
}

## vary number of flips
N <- seq(1, 1001, by=10)

Quantisan

$ mongo twitter --eval "var collection = 'energy'" variety.js
MongoDB shell version: 2.2.0
connecting to: twitter
Variety: A MongoDB Schema Analyzer
Version 1.2.1, released 29 July 2012
Using limit of 582
Using maxDepth of 99
creating results collection: energyKeys
removing leaf arrays in results collection, and getting percentages
{ "_id" : { "key" : "_id" }, "value" : { "type" : "ObjectId" }, "totalOccurrences" : 582, "percentContaining" : 100 }

Quantisan

Paul-Lams-computer:batch-import paullam$ java TestDataGenerator
Creating 7500000 and 191215478 Relationships took 146 seconds.
Paul-Lams-computer:batch-import paullam$ head nodes.csv 
Node	Rels	Property	Counter:int
0	12	TEST	0
1	14	TEST	1
2	25	TEST	2
3	28	TEST	3
4	4	TEST	4
5	7	TEST	5

Quantisan

$ hadoop jar ./target/impatient.jar data/rain.txt output/wc data/en.stop output/tfidf

2012-10-06 15:00:25.269 java[1097:1903] Unable to load realm info from SCDynamicStore
12/10/06 15:00:25 INFO util.HadoopUtil: resolving application jar from found main method on: impatient.core
12/10/06 15:00:25 INFO planner.HadoopPlanner: using application jar: /Users/paullam/Dropbox/Projects/Impatient/part5/./target/impatient.jar
12/10/06 15:00:25 INFO property.AppProps: using app.id: 63CBE2FEBFE8177789403D9EA7C81366
12/10/06 15:00:25 WARN util.NativeCodeLoader: Unable to load native-hadoop library for your platform... using builtin-java classes where applicable
12/10/06 15:00:25 WARN snappy.LoadSnappy: Snappy native library not loaded
12/10/06 15:00:25 INFO mapred.FileInputFormat: Total input paths to process : 1
12/10/06 15:00:25 INFO mapred.FileInputFormat: Total input paths to process : 1