richhickey

'AI' is Not a Tool

(I keep delivering this as a quip, here's a bit more)

First order of business - is 'tool' going to have an interesting, distinguishing and thus illuminative meaning or be a mere platitudinous stand-in for "anything useful"?

We'll save tool as "anyone/thing that can be exploited" for the AI titans, for whom VCs, politicians, wannabe-titan-CEOs, software devs, rural towns etc are all 'tools'. The pockets on the front of my shirts are useful (I need to keep my reading glasses handy), but they are not tools. Similarly, fast food drive-thru windows are useful, but are not tools (more later).

Some definitions of 'tool':

richhickey

;;=============== play with flow ==============
(require '[clojure.core.async :as async]
         '[clojure.core.async.flow :as flow]
         '[clojure.pprint :as pp]
         '[clojure.datafy :as d])

(set! *warn-on-reflection* true)

(defn monitoring [{:keys [report-chan error-chan]}]
  (prn "========= monitoring start")

richhickey

(require '[clojure.core.async :as a])

(def xform (comp (map inc)
              (filter even?)
              (dedupe)
              (flatmap range)
              (partition-all 3)
              (partition-by #(< (apply + %) 7))
              (flatmap flatten)
              (random-sample 1.0)

richhickey

(ns bitmapmap-test.core-test
  (:use clojure.test))

#_(defn bitmap-map
  "Constructs a bitmap-map. If any keys are equal, they are handled as
  if by repeated uses of assoc."
  {:added "1.6"
   :static true}
  ([] (. clojure.lang.PersistentBitmapMap EMPTY))
  ([& keyvals]

richhickey

(require '[datomic.api :as d])
(require '[clojure.pprint :refer [pprint]])
(def uri "datomic:free://localhost:4334/git")
(def conn (d/connect uri))
(def db (d/db conn))

;; committers
(d/q '[:find ?email
       :where
       [_ :commit/committer ?u]

richhickey

(defmacro test->
  "Takes an expression and a set of test/form pairs. Threads expr (via ->)
  through each form for which the corresponding test expression (not threaded) is true."
  [expr
  & clauses]
  (assert (even? (count clauses)))
  (let [g (gensym)
        pstep (fn [[test step]] `(if ~test (-> ~g ~step) ~g))]
    `(let [~g ~expr
           ~@(interleave (repeat g) (map pstep (partition 2 clauses)))]

richhickey

;; The Computer Language Benchmarks Game
;; http://shootout.alioth.debian.org/
;
;; Adapted from the Java -server version
;
;; contributed by Marko Kocic
;; modified by Kenneth Jonsson, restructured to allow usage of 'pmap'
;; modified by Andy Fingerhut to use faster primitive math ops, and
;; deftype instead of defrecord for smaller tree nodes.
;; https://github.com/jafingerhut/clojure-benchmarks/blob/master/binarytrees/binarytrees.clj-4.clj modified by RH for 1.3

richhickey

SEND
destination:/queue/a

{:code (prn "Hello world")}
^@

richhickey

;new num branch results

(defn fib [n]
  (if (>= 1 n)
    1
    (+ (fib (dec n)) (fib (- n 2)))))

(time (fib 38))

"Elapsed time: 3716.828 msecs"

richhickey

(defn ^:static fib ^long [^long n]
  (if (>= (long 1) n)
    (long 1)
    (+ (fib (dec n)) (fib (- n (long 2))))))

(dotimes [_ 10] (time (fib 38)))