RyanGough

(ns lift-kata.core-test
  (:require [clojure.test :refer :all]
            [lift-kata.core :refer :all]))

(deftest open-door-on-requested-floor 
  (testing "Should open the doors if only request is current floor."
    (is (= {:doors :open :floor 0 :requests []}
           (lift-kata.core/next-lift-state {:doors :closed :floor 0 :requests[]},
                                     [0])))))

RyanGough

(ns checkout.core-test
  (:require [clojure.test :refer :all]
            [checkout.core :refer :all]))

(deftest single-item
  (testing "scannng a single A item gives price 50"
    (is (= 50 (scan ["A"])))))

(deftest different-item
  (testing "scannng a single B item gives price 30"

RyanGough

-module (jobsort).
 
-export ([sort/1,test/0]).
 
sort(JobSpec) ->
	EdgesAndVertices = get_edges_and_vertices(string:tokens(JobSpec, "\r\n"), [], []),
	Graph = build_graph(EdgesAndVertices),
	case digraph_utils:is_acyclic(Graph) of
		true ->
			lists:reverse(digraph_utils:topsort(Graph));

RyanGough

Keybase proof

I hereby claim:

• I am RyanGough on github.
• I am ryanwgough (https://keybase.io/ryanwgough) on keybase.
• I have a public key whose fingerprint is 76D7 9BF6 4DCC 47E5 FF68 8650 1246 5F3C 877B EED6

To claim this, I am signing this object:

RyanGough

function play (a) {
	return a.reduce(function(c,t,i) {
		if (t-a[i-1]<2) {
			c=(c+'').replace(/-.$/, '')
			c+='-'
		} else c+=','
		return c+t
	})
}