Melanie Klein melklein

#(= (seq %1) (reverse %1))

(fn [key map] (and (contains? map key) (= nil (key map))))

increase number under cursor: ctrl+a
decrease number under cursor: ctrl+x
replace one word with another: select first word, e.g. vi"; select second word vi" and paste p
search from within vim, don't jump to first match: vimgrep /render_show/gj **/*.rb

Resize splits

	(ns fun-mode-sketch
	(:require [quil.core :as q]
	[quil.middleware :as m]))

	(def win-width 400)
	(def win-height 200)
	(def bar-width 1)
	(def bar-height 10)
	(def bar-count (/ win-width bar-width))
	(def grow-bar (partial + bar-height))

	(fn [my-seq]
	((fn [rest-seq result]
	(if (= 0 (count rest-seq))
	result
	(recur (butlast rest-seq) (conj result (last rest-seq)))))
	my-seq []))

	(defn fib-seq [x result]
	(if (= x 0)
	(reverse result)
	(let [next-fib (reduce + (take 2 result))]
	(fib-seq (dec x) (conj result next-fib)))))

	(defn fib [mx]
	(fib-seq (- mx 2) '(1 1)))

	(defn fib-anon [mx]
	((fn [x result]
	(if (= x 0)
	(reverse result)
	((let [next-fib (reduce + (take 2 result))]
	recur (dec x) next-fib))))
	(- mx 2) '(1 1)))