Skip to content

Instantly share code, notes, and snippets.

View w01fe's full-sized avatar

Jason Wolfe w01fe

150 followers · 7 following
View GitHub Profile
@w01fe
w01fe / double-arrow.clj
Last active August 29, 2015 14:02 — forked from davegolland/double-arrow.clj
(defmacro ->>
([x form] `(~@(if (seq form) form [form]) ~x))
([x form & more] `(->> (->> ~x ~form) ~@more)))
@w01fe
w01fe / graph_async.clj
Created February 4, 2013 21:47 — forked from anonymous/graph_async.clj
(ns plumbing.graph-async
(:require
[plumbing.fnk.pfnk :as pfnk]
[plumbing.fnk.schema :as schema]
[plumbing.core :as plumbing]
[plumbing.graph :as graph]))
;; async function has ^:async metadata, callback required key.
;; TODO: redo with just promises/futures once they have callback options
;; TODO: make nicer way to specify async fnks?
@w01fe
w01fe / fnk_examples.clj
Created October 2, 2012 00:43 — forked from aria42/fnk_examples.clj
Bring on the fnk
(defnk foo [x y [s 1]]
(+ x (* y s)))
(foo {:x 2 :y 3 :s 2})
; ==> 8
;; 's' defaults to 1
(foo {:x 2 :y 3})
; ==> 5
@w01fe
w01fe / lexicaltest.clj
Created June 13, 2011 21:56 — forked from hiredman/lexicaltest.clj
(def fib-var-obj
(fn [x]
(if (< x 2)
1
(+ (fib-var-obj (- x 1))
(fib-var-obj (- x 2))))))
(defn fib-lex-obj [x]
(if (< x 2)
1