zoldar

(ns friendtest.core
  (:use midje.sweet
        ring.mock.request
        compojure.core
        friendtest.core
        [ring.middleware.session store memory]
        [ring.middleware.session.memory :only (memory-store)]
        [ring.middleware.session :only (wrap-session)]
        [cemerick.friend.util :only (gets)])
  (:require [compojure [handler :as handler]]

zoldar

(ns scratch.hangman
  (:gen-class))

;; Game logic

(def game {:mistakes 0 :word [\h \a \n \d] :guess [:_ :_ :_ :_]})

(defn game-lost? [{:keys [mistakes]}]
  (>= mistakes 9))

zoldar

user=> (def word "sadfasdfagrregwfagfregawgfresafafewrf")
#'user/word
user=> (time (dotimes [i 10000] (doall (sort word))))
"Elapsed time: 99.122541 msecs"
nil
user=> (time (dotimes [i 10000] (doall (sort word))))
"Elapsed time: 96.896736 msecs"
nil
user=> (time (dotimes [i 10000] (doall (sort word))))
"Elapsed time: 95.14145 msecs"

zoldar

;(setq inferior-lisp-program "/home/zoldar/Programy/sbcl/bin/sbcl") ; your Lisp system
;(setq inferior-lisp-program "/home/zoldar/bin/ecl") ; your Lisp system
;(add-to-list 'load-path "/home/zoldar/LISP/clbuild/source/slime/")  ; your SLIME directory
;(require 'slime-autoloads)
;(slime-setup '(slime-repl))

(add-to-list 'load-path "~/.emacs.d/plugins")

;; package
(require 'package)

zoldar

(add-hook 'clojure-mode-hook
          (lambda ()
                  (local-set-key "C-," 'midje-check-fact)
                  (local-set-key "C-k" 'midje-clear-comments)))

zoldar

;; WARNING: the code here wasn't tested in REPL

(ns space-age)

(def earth-year-in-seconds 31557600.0)

(def orbital-periods
  {:mercury 0.2408467
   :venus   0.61519726
   :mars    1.8808158

zoldar

Keybase proof

I hereby claim:

• I am zoldar on github.
• I am zoldar (https://keybase.io/zoldar) on keybase.
• I have a public key ASDVeZ9C9El_-5m9TgkwZI3fOkv30zUoVsEDkxvUKoK6oQo

To claim this, I am signing this object:

zoldar

defmodule Clubbase.AssertionRunner do
  def test_assertion(assertion) do
    quote do
      test unquote(assertion["description"]) do
        unquote(assertion["description"]) |> IO.inspect
      end
    end
  end

  defmacro test_assertions(assertions_path) do

zoldar

Keybase proof

I hereby claim:

• I am zoldar on github.
• I am zoldar (https://keybase.io/zoldar) on keybase.
• I have a public key ASCbqUdiClmUZTaoz82IRTT6ep9vX9JVSod-p_FNIroM2Ao

To claim this, I am signing this object:

zoldar

// pickaroo: Money

pub type Currency {
  USD
  EUR
  PLN
}

pub type Money {
  Money(cents: Int, currency: Currency)