Jared314’s gists

Jared314 / async3.clj

Last active December 20, 2015 01:18

Clojure core.async example 3

	(ns async3
	(:require [clojure.core.async :as async]))

	(defn alice [c message]
	(async/>!! c message))

	(defn person [name c]
	(async/go
	(let [message (async/<! c)]
	(println name " received: " message)

Jared314 / async4.clj

Last active December 20, 2015 01:19

Clojure core.async example 4

	(ns async4
	(:require [clojure.core.async :as async]
	[clojure.core.async.lab :as lab]))

	(defn inmate [name c]
	(async/go
	(async/<! c)
	(println name " released")))

	(def alice (partial inmate "Alice"))

Jared314 / ohm.clj

Last active December 20, 2015 14:09

	(ns ohm
	(:require [clojure.string :as string]
	[clojure.java.io :refer [as-file]])
	(:import [java.io File]))


	(defrecord Leaf [nss declares fns])

	(defn parse-value [value]
	value)

Jared314 / TreeIterator.clj

Last active December 22, 2015 04:39

Improving the Clojure-Git Interface with a Nice Facade

	(ns gitter.TreeIterator
	(:import [org.eclipse.jgit.lib Repository FileMode]
	[org.eclipse.jgit.treewalk WorkingTreeIterator WorkingTreeIterator$Entry WorkingTreeOptions]
	[java.io ByteArrayInputStream])
	(:gen-class :extends org.eclipse.jgit.treewalk.WorkingTreeIterator
	:init init2
	:post-init postinit
	:state state
	:constructors {[org.eclipse.jgit.lib.Repository Object] [org.eclipse.jgit.treewalk.WorkingTreeOptions]
	[org.eclipse.jgit.lib.Repository Object org.eclipse.jgit.treewalk.WorkingTreeIterator] [org.eclipse.jgit.treewalk.WorkingTreeIterator]}))

Jared314 / testdata.txt

Last active December 26, 2020 04:25

Adventures in Validating Email Addresses with Clojure

Jared314 / remove-node.clj

Last active December 23, 2015 10:08

Remove nodes

-(require '[net.cgrand.enlive-html :as e])
-(defn gen-transform [target]
-  [[(cond
-     (string? target) e/text-node
-     (map? target) (:tag target)
-     :else e/any-node)]
-   #(when (not= target %) %)])
-(defn remove-node [coll & nodes]

Jared314 / custom-lang.clj

Last active December 26, 2015 04:39

	(ns stuff
	(:require [instaparse.core :as insta]
	[clojure.walk :as walk]))

	(defn hiccup->sexp [sym-ns data]
	(let [sym-ns-fn #(symbol sym-ns %)]
	(walk/postwalk (fn [x] (if (and (vector? x) (keyword? (first x)))
	(conj (rest x) (-> x first name sym-ns-fn))
	x))
	data)))

Jared314 / consec-product.clj

Created October 26, 2013 19:35

Project Euler #8: Find the greatest product, of 5 consecutive digits, in a string

Jared314 / markov-chain.clj

Last active December 31, 2015 11:59

Clojure Markov Chain Example

	(ns markov-chain
	(:require [clojure.string :as string]))

	(defn simple-weighted-rand-nth [m]
	(let [ks (keys m)
	vs (map m ks) ; Ensure map value ordering
	ranges (reductions + vs)
	x (rand-int (last ranges))
	i (count (take-while #(<= % x) ranges))
	k (nth ks i)]

Jared314 / nand2tetris-hdl-parse.clj

Created December 28, 2013 03:39

nand2tetris HDL parser using Instaparse

	(ns stuff
	(:require [instaparse.core :as insta]))

	(def hdl-parse
	(insta/parser
	"CHIP = <'CHIP'> <SPACE+> NAME <SPACE> <'{'> <SPACE> INSPEC <SPACE> OUTSPEC <SPACE> PARTS <SPACE*> <'}'>
	INSPEC = <'IN'> <SPACE+> (SPECITEM <SPACE> <','?> <SPACE>)* <';'>
	OUTSPEC = <'OUT'> <SPACE+> (SPECITEM <SPACE> <','?> <SPACE>)* <';'>
	PARTS = <'PARTS:'> <SPACE> (PART <SPACE>)*
	PART = NAME <'('> (<SPACE*> PARTIO <','>?)+ <');'>

Jared Lobberecht Jared314