Melanie Klein melklein

## 4clojure.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                melklein
                / 4clojure.md
            
            
              Last active
              July 11, 2016 18:46
            
          
    #27

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

#134

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

#154


## rainbow-strokes.clj
(ns mouse-interactivity.core
  (:require [quil.core :refer :all]))

(def max-stroke-weight 40)

(defn setup []
  (background 255)
  (color-mode :hsb)
  (smooth))

## gaussian-distribution-with-matrix-translate.clj
(ns fun-mode-sketch
  (:require [quil.core :as q]
            [quil.middleware :as m]))

(def win-width 400)
(def win-height 200)
(def sd 60) ;standard deviation
(def center-x (/ win-width 2))
(def center-y (/ win-height 2))

## random-bars.clj
(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))

## revert-without-reverse.clj
(fn [my-seq]
  ((fn [rest-seq result]
      (if (= 0 (count rest-seq))
        result
        (recur (butlast rest-seq) (conj result (last rest-seq)))))
   my-seq []))

## fib-mundane.clj
(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)))

## fib-loop.clj
(fn [mx]
  (loop [x (- mx 2) result '(1 1)]
    (if (> x 0)
      (recur (dec x)
        (conj result
          (reduce + (take 2 result))))
      (reverse result)))))

## 4clojure#134.clj
(fn [key map] (and (contains? map key) (= nil (key map))))

## fib-anon.clj
(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)))

## vim_solutions.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              1 star
            
          
                melklein
                / vim_solutions.md
            
            
              Last active
              July 6, 2016 10:39
            
              
                useful vim commands
              
          
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


resize horizontal split: ctrl+w - / ctrl+w +
resize horizontal split to maximum: ctrl+w _
make horizontal and vertical splits equally big: ctrl+w =
resize vertical split: ctrl+w &lt; / ctrl+w &gt;
	(ns mouse-interactivity.core
	(:require [quil.core :refer :all]))

	(def max-stroke-weight 40)

	(defn setup []
	(background 255)
	(color-mode :hsb)
	(smooth))
	(ns fun-mode-sketch
	(:require [quil.core :as q]
	[quil.middleware :as m]))

	(def win-width 400)
	(def win-height 200)
	(def sd 60) ;standard deviation
	(def center-x (/ win-width 2))
	(def center-y (/ win-height 2))
	(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)))
	(fn [mx]
	(loop [x (- mx 2) result '(1 1)]
	(if (> x 0)
	(recur (dec x)
	(conj result
	(reduce + (take 2 result))))
	(reverse result)))))
	(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)))