ulsa

Keybase proof

I hereby claim:

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

To claim this, I am signing this object:

ulsa

$ bosh verify stemcell latest-bosh-stemcell-warden.tgz 

Verifying stemcell...
File exists and readable                                     OK
Verifying tarball...
Read tarball                                                 OK
Manifest exists                                              OK
Stemcell image file                                          OK
Stemcell properties                                          OK

ulsa

[INFO] +- org.cloudhoist:pallet-lein:jar:0.5.2-SNAPSHOT:test
[INFO] +- org.clojure:clojure:jar:1.3.0:compile
[INFO] +- org.cloudhoist:pallet-jclouds:jar:1.4.1:compile
[INFO] |  +- org.jclouds:jclouds-compute:jar:1.4.2:compile
[INFO] |  |  +- org.jclouds:jclouds-scriptbuilder:jar:1.4.2:compile
[INFO] |  |  \- org.jclouds:jclouds-core:jar:1.4.2:compile
[INFO] |  |     +- net.oauth.core:oauth:jar:20100527:compile
[INFO] |  |     +- aopalliance:aopalliance:jar:1.0:compile
[INFO] |  |     +- com.sun.jersey:jersey-core:jar:1.11:compile
[INFO] |  |     +- com.google.inject.extensions:guice-assistedinject:jar:3.0:compile

ulsa

(let [ [fst snd] (filter odd? [1 2 3 4 5])]
  (println fst snd))
=> 1 3

ulsa

(let [lst (filter odd? [1 2 3 4 5])
      fst (first lst)
      snd (second lst)]
  (println fst snd))
=> 1 3

ulsa

user=> @(d/transact conn
         [{:db/id #db/id[:db.part/db]
           :db/ident :audit/user
           :db/valueType :db.type/string
           :db/cardinality :db.cardinality/one
           :db/index true
           :db.install/_attribute :db.part/db}])

ulsa

user=> (distinct (map :e (d/datoms (d/since (db conn) #inst "2012-06-25T10:33:16.436-00:00") :eavt)))
(13194139534683 17592186045460)

ulsa

cljs.user> (neighbors [1 1])
([0 0] [0 1] [0 2] [1 0] [1 2] [2 0] [2 1] [2 2])

ulsa

(ns clojurekarotz.core
  (:require [clojurekarotz.util :as u]))

(def quit (fn [event] (if (= event "TERMINATED") (js/exit))))

(defn onKarotzConnect [data]
  (.moveRelative (.-ears js/karotz) 5 -5 (fn [_]))
  (.start (.-tts js/karotz) "Buenos dias Clojure. Como estas? Tienes animales?" "es" quit))
(.connectAndStart js/karotz "192.168.1.13" 9123 onKarotzConnect (js-obj))

ulsa

(defn test []
    (println "Hello World!")
)
(test)