Skip to content

Instantly share code, notes, and snippets.

View matthavener's full-sized avatar

Matt Havener matthavener

View GitHub Profile
@matthavener
matthavener / user.clj
Created August 2, 2019 14:10
datomic isComponent
(do
(d/delete-database "datomic:mem://test-is-component")
(d/create-database "datomic:mem://test-is-component")
(let [conn (d/connect "datomic:mem://test-is-component")
db (-> (d/transact conn [{:db/ident :dev/ref,
:db/valueType :db.type/ref
:db/cardinality :db.cardinality/many
:db/isComponent true}])
deref
:db-after)
@matthavener
matthavener / devcard.cljs
Last active March 8, 2016 15:00
om.next normalization with links
(ns testcase
(:require
[devcards.core :as dc :refer-macros [defcard defcard-doc defcard-om-next]]
[om.next :as om :refer-macros [defui]]
[cljs.test :refer-macros [is testing async]])
)
(defui Child

Updog FAQ

  1. What's Updog?

Nm what's up with you?

ayyyy [̲̅$̲̅(̲̅ιοο̲̅)̲̅$̲̅] [̲̅$̲̅(̲̅ιοο̲̅)̲̅$̲̅] \(סּںסּَ` )/ۜ [̲̅$̲̅(̲̅ι] monies
### Keybase proof
I hereby claim:
* I am matthavener on github.
* I am matthavener (https://keybase.io/matthavener) on keybase.
* I have a public key whose fingerprint is E5D4 2BB3 6725 C534 C62C E0F2 D8FF 854B 26CD B8A6
To claim this, I am signing this object:
@matthavener
matthavener / gist:2893355
Created June 8, 2012 03:22
proj euler 12
(ns junk.core
(:use clojure.test))
(defn check-prime [ps candidate] (every? #(not= 0 (mod candidate %)) ps))
(deftest check-prime-test
(is (check-prime [2 3 5] 7))
(is (not (check-prime [2 3 5] 6))))
(defn next-prime [ps max] (first
@matthavener
matthavener / gist:2832339
Created May 30, 2012 01:34
poker kata (matt and xerik)
describe "highcard", ->
it "3 beats 2", ->
expect(beats(3, 2)).toBe true
it "2 doesnotbeat 3", ->
expect(beats(2,3)).toBe false
it "J beats 10", ->
expect(beats("J",10)).toBe true
it "Q beats J", ->
expect(beats("Q","J")).toBe true