semperos

;; Big thanks to Christophe Grand - https://groups.google.com/d/msg/clojure/L1GiqSyQVVg/m-WJogaqU8sJ
(defn scaffold [iface]
  (doseq [[iface methods] (->> iface .getMethods 
                            (map #(vector (.getName (.getDeclaringClass %)) 
                                    (symbol (.getName %))
                                    (count (.getParameterTypes %))))
                            (group-by first))]
    (println (str "  " iface))
    (doseq [[_ name argcount] methods]
      (println 

jboner

Latency Comparison Numbers (~2012)
----------------------------------
L1 cache reference                           0.5 ns
Branch mispredict                            5   ns
L2 cache reference                           7   ns                      14x L1 cache
Mutex lock/unlock                           25   ns
Main memory reference                      100   ns                      20x L2 cache, 200x L1 cache
Compress 1K bytes with Zippy             3,000   ns        3 us
Send 1K bytes over 1 Gbps network       10,000   ns       10 us
Read 4K randomly from SSD*             150,000   ns      150 us          ~1GB/sec SSD

marick

(use 'clojure.contrib.monads)

(defn new-pair [value log] {:value value :log log})
(defn starting-pair [value] (new-pair value nil))

(defn log [base-value]
  (fn [log]
    (new-pair base-value (cons base-value log))))

(defmonad logging-m

twopoint718

(defn multtab [n]
  (for [row (range n) col (range n)]
    (* (inc row) (inc col))))

;; reasonably nicely formatted
(defn main [n]
  (let [width (int (Math/ceil (/ (Math/log (* n n)) (Math/log 10))))
        digit-str (str "%" (inc width) "d")]
    (doseq [row (partition n (multtab n))]
      (let [formatted-row (map #(format digit-str %) row)]