shinmuro

(import javafx.beans.Observable
        javafx.beans.binding.ObjectBinding)

;; javafx.beans.binding.ObjectBinding#bind() を見えるようにする為だけの継承クラス
(gen-class
 :name "cljfx.binding.ObjectBinding"
 :extends javafx.beans.binding.ObjectBinding
 :exposes-methods {bind bindAll})

(defmacro make-bindings

shinmuro

;; http://docs.oracle.com/javase/8/javafx/properties-binding-tutorial/binding.htm#JFXBD107
;; の Example 1-7 Using the Low-Level API のサンプルを Clojure REPL で動くように書いてみた
(import javafx.beans.binding.DoubleBinding
        javafx.beans.property.SimpleDoubleProperty)

(def a (SimpleDoubleProperty. 1))
(def b (SimpleDoubleProperty. 2))
(def c (SimpleDoubleProperty. 3))
(def d (SimpleDoubleProperty. 4))

shinmuro

(require '[clojure.core.memoize :as memo]) ; もちろんここは一度きり

(def func-a-lrufn (memo/lru (fn [some-params] (some-proc some-params))))
(defn func-a
  [some-params]
  (func-a-lrufn some-params))

(defmacro defn-lru
  [name [& params*] threshold-val & body] ;; <- ん？
  (let [private-fn (symbol (str name "-lrufn"))]

shinmuro

;; cannot apply to 4Clojure answer.
(fn uce
  [expr]
  (fn [m] (eval (clojure.walk/postwalk-replace m expr))))

shinmuro

(defprotocol IEditName
  (get-name [this])
  (set-name! [this val]))

(deftype PersonName [^:volatile-mutable lname]
  IEditName
  (get-name [this] (. this lname))
  (set-name! [this val] (set! lname val)))
  
(def pname (PersonName. "hoge"))

shinmuro

;; This answer cannot use in 4Clojure
(use 'clojure.zip)
(fn binary-tree? [root]
  (let [zp (zipper coll? rest (fn [n c] c) root)]
    (->> (take-while (complement end?) (iterate next zp))
         (filter branch?)
         (every? #(= (count (children %)) 2)))))