Quantisan

Keybase proof

I hereby claim:

• I am quantisan on github.
• I am quantisan (https://keybase.io/quantisan) on keybase.
• I have a public key ASCTfbD8h3Tj6_1bYqRUF9QnMOkuiy3UL0DJFjohnqRlHQo

To claim this, I am signing this object:

Quantisan

(def articles
  [{:title "3 Langs" :author "boris" :tags #{:java :clojure :haskell}}
   {:title "mylangs" :author "rocky" :tags #{:ruby :clojure :haskell}}
   {:title "2 Langs" :author "boris" :tags #{:java :haskell}}])

Quantisan

FROM clojure

ADD . /usr/src/app
WORKDIR /usr/src/app

RUN lein deps

Quantisan

package main

import (
	"fmt"
)

type rectPointer struct {
	width  int
	height int
}

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"]])]