Linus Ericsson claj

## clojurerng.clj
(ns clojurerng.core
  (:import [com.modp.random LinearSunJDK])
  (:use [ criterium.core]))

(def ^:LinearSunJDK linsun (LinearSunJDK.))

;;this is salvaged from
;; javarng.googlecode.com/svn/trunk/com/modp/random/LinearSunJDK.java
;;and the openJDK source code for .nextDouble

## enlive_vs_unicode.clj
;;create a lein new something
;;add [enlive "1.1.5"] to project.clj
;;lein repl:

(use 'net.cgrand.enlive-html)

;;define a simple template "inline"
(deftemplate abc
  (java.io.StringReader.
    "<html>

## countertest.clj
(ns countertest)

(set *warn-on-reflection* true)

(def atom-cnt (atom 0))

(time (dotimes [_ 1e6] (swap! atom-cnt inc)))
;; 156 ms

(def ^java.util.concurrent.atomic.AtomicInteger atomic-integer-counter (java.util.concurrent.atomic.AtomicInteger. 0))

## kibit-arithmetic-rules.clj
  ;;trivial identites
  [(+ ?x 0) ?x]
  [(- ?x 0) ?x]
  [(* ?x 1) ?x]
  [(/ ?x 1) ?x]
  [(* ?x 0) 0]

  ;;Math/pow
  [(* ?x ?x) (Math/pow ?x 2) ]
  [(* ?x ?x ?x) (Math/pow ?x 3) ]

## heatmapfromarray.clj
;;This is released under EPL (same as Clojure) and is most
;;welcomed to be included to Incanter or anything else
;;after some bettering (it would be nice to be able
;;to push DefaultXYZDatasets into the heat-map-thing
;;instead of function + xy-box

(ns heatmapfromarray
  "show an vector-of-vectors without missing important parts of it"
  (use [incanter core charts]))

## bpm.clj
(use 'seesaw.core)

;; the state, when was the last keypress?
(def last-tap (atom nil))

(defn nanoseconds-diff-to-bpm [now then]
  (let [nanosecs-in-a-minute (* 60 1000 1000 1000.0)
        diff                 (- now then)]
    (/ nanosecs-in-a-minute diff)))

## async-math.clj
(ns async-math)

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

(defn query-maker
  "generates a simple math-query and the answer to it"
	[]
	(let [a (rand-int 10) b (rand-int 10)]
	  {:query (str "what is " a " + " b "?")
	   :answer (+ a b)}))

## testblog.clj
(use 'hello)
(println "hello world!")

## no-cardinality-stacktrace
java.util.concurrent.ExecutionException: java.lang.Error: Assert failed: (every? identity [key vtypeid cardinality])
 at datomic.common$throw_executionexception_if_throwable.invoke (common.clj:381)
    datomic.common$promise$reify__253.get (common.clj:423)
    datomic.common$promise$reify__253.deref (common.clj:431)
    clojure.core$deref.invoke (core.clj:2117)
    datomic.peer.Connection.transact (peer.clj:106)
    datomic.api$transact.invoke (api.clj:63)
    datest.core$eval935.invoke (NO_SOURCE_FILE:1)
    clojure.lang.Compiler.eval (Compiler.java:6603)
    clojure.lang.Compiler.eval (Compiler.java:6566)

## swarmec2.txt
How to get started with a swarm-setup on EC-2
=============================================


Launch instance
---------------

Switch to the close region (EU West for us).

Start an EC-2 instance, I selected Ubuntu 12 server, Small instance type.
	(ns clojurerng.core
	(:import [com.modp.random LinearSunJDK])
	(:use [ criterium.core]))

	(def ^:LinearSunJDK linsun (LinearSunJDK.))

	;;this is salvaged from
	;; javarng.googlecode.com/svn/trunk/com/modp/random/LinearSunJDK.java
	;;and the openJDK source code for .nextDouble
	;;create a lein new something
	;;add [enlive "1.1.5"] to project.clj
	;;lein repl:

	(use 'net.cgrand.enlive-html)

	;;define a simple template "inline"
	(deftemplate abc
	(java.io.StringReader.
	"<html>
	(ns countertest)

	(set warn-on-reflection true)

	(def atom-cnt (atom 0))

	(time (dotimes [_ 1e6] (swap! atom-cnt inc)))
	;; 156 ms

	(def ^java.util.concurrent.atomic.AtomicInteger atomic-integer-counter (java.util.concurrent.atomic.AtomicInteger. 0))
	;;trivial identites
	[(+ ?x 0) ?x]
	[(- ?x 0) ?x]
	[(* ?x 1) ?x]
	[(/ ?x 1) ?x]
	[(* ?x 0) 0]

	;;Math/pow
	[(* ?x ?x) (Math/pow ?x 2) ]
	[(* ?x ?x ?x) (Math/pow ?x 3) ]
	;;This is released under EPL (same as Clojure) and is most
	;;welcomed to be included to Incanter or anything else
	;;after some bettering (it would be nice to be able
	;;to push DefaultXYZDatasets into the heat-map-thing
	;;instead of function + xy-box

	(ns heatmapfromarray
	"show an vector-of-vectors without missing important parts of it"
	(use [incanter core charts]))
	(use 'seesaw.core)

	;; the state, when was the last keypress?
	(def last-tap (atom nil))

	(defn nanoseconds-diff-to-bpm [now then]
	(let [nanosecs-in-a-minute (* 60 1000 1000 1000.0)
	diff (- now then)]
	(/ nanosecs-in-a-minute diff)))
	(ns async-math)

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

	(defn query-maker
	"generates a simple math-query and the answer to it"
	[]
	(let [a (rand-int 10) b (rand-int 10)]
	{:query (str "what is " a " + " b "?")
	:answer (+ a b)}))
	java.util.concurrent.ExecutionException: java.lang.Error: Assert failed: (every? identity [key vtypeid cardinality])
	at datomic.common$throw_executionexception_if_throwable.invoke (common.clj:381)
	datomic.common$promise$reify__253.get (common.clj:423)
	datomic.common$promise$reify__253.deref (common.clj:431)
	clojure.core$deref.invoke (core.clj:2117)
	datomic.peer.Connection.transact (peer.clj:106)
	datomic.api$transact.invoke (api.clj:63)
	datest.core$eval935.invoke (NO_SOURCE_FILE:1)
	clojure.lang.Compiler.eval (Compiler.java:6603)
	clojure.lang.Compiler.eval (Compiler.java:6566)
	How to get started with a swarm-setup on EC-2
	=============================================


	Launch instance
	---------------

	Switch to the close region (EU West for us).

	Start an EC-2 instance, I selected Ubuntu 12 server, Small instance type.