devn

(defn property*
  "The property* driver handles the work when testing a property. It
  expects:
    * a descriptive message for failure reporting
    * a list of locals (also for reporting)
    * a generator which takes the scaled size and returns the input
      for the property
    * the property test in form of a function of the generated
      input."
  {:added "2.0"}

devn

(setq org-remember-templates
      (quote
       (("todo" ?t "* TODO %?\n  %u\n  %a" "~/Dropbox/org/gtd.org" bottom nil)
        ("note" ?n "* %?\n  :NOTE:\n  %u\n  %a" "~/Dropbox/org/gtd.org" bottom nil)
        ("journal" ?j "* %U %?" "~/Dropbox/org/journal.org" 'top nil))))

devn

Originally:
https://gist.github.com/7565976a89d5da1511ce

Hi Donald (and Martin),

Thanks for pinging me; it's nice to know Typesafe is keeping tabs on this, and I
appreciate the tone. This is a Yegge-long response, but given that you and
Martin are the two people best-situated to do anything about this, I'd rather
err on the side of giving you too much to think about. I realize I'm being very
critical of something in which you've invested a great deal (both financially

devn

(definst fm [carrier 440 divisor 2.0 depth 1.0]
  (let [modulator (/ carrier divisor)
        mod-env (env-gen (lin-env 1 0 1))
        amp-env (env-gen (lin-env 0 1 1))]
    (* amp-env
       (sin-osc (+ carrier
                   (* mod-env  (* carrier depth) (sin-osc modulator)))))))

; Some of these are more or less interesting
(fm)

devn

(ns jquerytest.core)

(def jquery (js* "$"))

(jquery
   (fn []
     (-> (jquery "div.meat")
         (.html "This is a test.")
         (.append "<div>Look here!</div>"))))

devn

;; Hide slime version mismatches
(setq slime-protocol-version 'ignore)

;; More syntax coloring
(defun tweak-clojure-syntax (mode)
  (mapcar (lambda (x) (font-lock-add-keywords mode x))
          '((("#?['`]*(\\|)" . 'clojure-parens))
            (("#?\\^?{\\|}" . 'clojure-braces))
            (("\\[\\|\\]" . 'clojure-brackets))
            ((":\\w+" . 'clojure-keyword))

devn

class Lisp
  def initialize
    @env = { 
      :label => lambda { |(name,val), _| @env[name] = val },
      :quote => lambda { |sexpr, _| sexpr[0] },
      :car   => lambda { |(list), _| list[0] },
      :cdr   => lambda { |(list), _| list.drop 1 },
      :cons  => lambda { |(e,cell), _| [e] + cell },
      :eq    => lambda { |(l,r), _| l == r },
      :if    => lambda { |(cond, thn, els), ctx| eval(cond, ctx) ? eval(thn, ctx) : eval(els, ctx) },

devn

(ns quiz.core
  (:require [clojure.pprint :as pp]))

(defn to-english [n]
  (pp/cl-format nil "~@(~@[~R~]~^ ~A.~)" n))

(to-english 99999999999999999)
;=> "Ninety-nine quadrillion, nine hundred ninety-nine trillion, nine hundred ninety-nine billion, nine hundred ninety-nine million, nine hundred ninety-nine thousand, nine hundred ninety-nine"

(map to-english (range 0 101))

devn

class Hash
  def true_of?(key, &block)
    TrueOf.new(self, key).instance_eval(&block)
  end
end

class TrueOf
  attr_reader :key, :value

  def initialize(hash, key, &block)

devn

Point = -> (x, y) {
  methods =
    Hash[:x,      -> { x },
         :y,      -> { Math.sqrt(x*x + y*y) },
         :shift!, ->(xinc, yinc)
                      { x += xinc
                        y += yinc }]
  ->(message, *args) { methods[message].(*args)
  }
}