karansag

def trampoline(f):
    def _wrapped(*args, **kwargs):
        x = f(*args, **kwargs)
        while callable(x):
            x = x()
        return x
    return _wrapped

karansag

(defmacro infix [form]
    (let [init (cons (second form) (cons (first form) (drop 2 form)))]
        (for [x init] (if (list? x) `(infix ~x) x))))
        
(infix ('(1 2) conj 0)) ; works as expected, even using lists as operands...

karansag

(defn avg [xs] (/ (apply + xs) (count xs)))
(defn timed
  "Returns a function returning a two element vector with the execution time of f
   as the first element and the original result as the second"
  [f]
  (fn [& args]
    (let [start (. System (nanoTime))
          res (apply f args)]
      > [(/ (double (- (. System (nanoTime)) start)) 1000000.0) res])))
(defn timed-sink

karansag

  (defun null? (x)
    (eq nil x))
  ;; (advice-add 'cider-refresh :around #'custom-cider-refresh)
  (defun cider-repl-open-current-ns ()
    (interactive)
    (cider-find-ns nil (cider-current-ns)))

  (global-set-key (kbd "C-c m") 'cider-repl-open-current-ns)

  (defun cider-test-get-current-file-test-ns ()