ku1ik

defmodule HttpRequester do
  use GenServer

  def start_link(_) do
    GenServer.start_link(__MODULE__, nil, [])
  end

  def fetch(server, url) do
    # Don't use cast: http://blog.elixirsips.com/2014/07/16/errata-dont-use-cast-in-a-poolboy-transaction/
    timeout_ms = 10_000

ku1ik

(ns example
  (:import java.io.FilterInputStream))

(defn cleanup-input-stream
  "InputStream wrapper which calls given callback after
  the stream is closed."
  [is cleanup]
  (proxy [FilterInputStream] [is]
    (close []
      (proxy-super close)

ku1ik

(ns cheshire.experimental
  (:require [cheshire.core :refer :all]
            [clojure.java.io :refer :all])
  (:import (java.io ByteArrayInputStream FilterInputStream
                    SequenceInputStream)))

(defn escaping-input-stream
  [is]
  (let [new-is (proxy [FilterInputStream] [is]
                 (read

ku1ik

Naive micro-benchmark of reduce/sum I made to get the idea of raw performance range of different dynamic languages / different runtimes.

For each of these I repeated the execution until the timing stopped changing in major way (JIT etc), and saved only the last run.

Don't take it too seriously ;)

ku1ik

/* Based on Monokai from base16 collection - https://github.com/chriskempson/base16 */
.asciinema-theme-monokai .asciinema-terminal {
  color: #f8f8f2;
  background-color: #272822;
  border-color: #272822;
}
.asciinema-theme-monokai .fg-bg {
  color: #272822;
}
.asciinema-theme-monokai .bg-fg {

ku1ik

[:find ?actor
 :where
 [?d :person/name "Danny Glover"]
 [?d :person/born ?danny-age]
 [?a :person/name ?actor]
 [?a :person/born ?actor-age]
 [?m :movie/cast ?a]
 [(< ?actor-age ?danny-age)]]

ku1ik

defmodule Asciinema.DocController do
  use Asciinema.Web, :controller

  def show(conn, _params) do
    conn
    |> put_layout(:docs)
    |> render("show.html")
  end
  
end

ku1ik

nREPL: Establishing direct connection to localhost:32323 ...
nREPL: Direct connection established
Connected.  Clojure isn't a language, it's a building material.
Error in `cider-repl--state-handler': (void-function seq-find)
error in process filter: Symbol's function definition is void: seq-find [2 times]

ku1ik

(defn split-coll [elem coll]
   (loop [coll coll
          parts []
          part []]
     (if-let [e (first coll)]
       (if (= e elem)
         (recur (rest coll) (conj parts part) [])
         (recur (rest coll) parts (conj part e)))
       (if (seq part)
         (conj parts part)

ku1ik

(defmacro events [one two & items] (prn one two) (set items))
(events 1 2 3 4 5 6) ; => #{3 4 5 6}
1 2 ; <- printed