hozumi

; http://d.hatena.ne.jp/anton0825/20101229/1293213099
; 大体そのまま移植しただけ
; dfs なのにstackを用意していないように見えるのは
; 言語のstackをstackとして利用しているため。
(defn dfs [k [fs & res] sum]
  (println sum fs res)
  (if fs
    (or (dfs k res (+ fs sum))
        (dfs k res sum))
    (= sum k)))

hozumi

(defmulti foo (fn [x] x))
;=> #<[object Object]>
(defmethod foo ::a [x] "a!")
;=> #<[object Object]>

; Hierarchy setting
(derive ::a1 ::a)
;=> nil

; works well

hozumi

text-shadow: 0 1px 0 rgba(255,255,255,0.4),0 0 5px rgba(0,0,0,0.1);

hozumi

(defn init []

  (def main (goog.dom/getElement "main"))

  (def mydiv (goog.dom/createDom "div"))

  (goog.dom/appendChild main mydiv)

  (defn change-color-mydiv []
    (... mydiv)))

hozumi

;; moustache style
(defn update-thread [thread-id req]
   ...)

(def api-app
     (mous/app
      ["threads" thread-id] {:put (partial update-thread thread-id)}))


;; path bind into request-map

hozumi

(defn sha1-str [s]
  (->> (-> "sha1"
           java.security.MessageDigest/getInstance
           (.digest (.getBytes s)))
       (map #(.substring
              (Integer/toString
               (+ (bit-and % 0xff) 0x100) 16) 1))
       (apply str)))

hozumi

% lein run -m myexample.core    
Exception in thread "main" java.lang.RuntimeException: Unable to resolve symbol: t in this context, compiling:(lamina/executors.clj:21)
	at clojure.lang.Compiler.analyze(Compiler.java:6235)
	at clojure.lang.Compiler.analyze(Compiler.java:6177)
	at clojure.lang.Compiler$VectorExpr.parse(Compiler.java:2909)
	at clojure.lang.Compiler.analyze(Compiler.java:6218)
	at clojure.lang.Compiler.analyze(Compiler.java:6177)
	at clojure.lang.Compiler$InvokeExpr.parse(Compiler.java:3452)
	at clojure.lang.Compiler.analyzeSeq(Compiler.java:6411)
	at clojure.lang.Compiler.analyze(Compiler.java:6216)

hozumi

var xhr = Titanium.Network.createHTTPClient();
xhr.open('GET','http://192.168.1.28:8080');
xhr.setRequestHeader('Accept','application/json');
xhr.setRequestHeader('Cookie','MSISAuth=v1==');
xhr.send();

Run Emulator console:
[ERROR] invalid arguments for setting cookie. value should be in the format 'name=value'. in -[TiNetworkHTTPClientProxy setRequestHeader:] (TiNetworkHTTPClientProxy.m:374)
[ERROR] The application has crashed with an unhandled exception. Stack trace:

hozumi

(defmacro _->
  ([x] x)
  ([x form] (if (seq? form)
              (if (seq-utils/includes? form '_)
                (with-meta `(~@(replace {'_ x} form)) (meta form))
                (with-meta `(~(first form) ~x ~@(next form)) (meta form)))
              (list form x)))
  ([x form & more] `(_-> (_-> ~x ~form) ~@more)))

;-> and _-> are almost the same behavior until _ is specified.

hozumi

(defn rotate-90 [arr]
  (reverse (apply map vector arr)))

(defn rotate [arr n]
  (reduce (fn [x _] (rotate-90 x)) arr (range n)))

(defn slide [arr]
  (let [width (dec (count (first arr)))]
    (for [[i row] (seq-utils/indexed arr)]
      (concat (repeat i ::empty) row (repeat (- width i) ::empty)))))