tbremer

#Front End Resources

• HTML
• SASS/CSS

kirasystems

(defrecord Fragment [t p1 p2])

(defprotocol FragmentProtocol
	(t [fragment] "Return the type.")
	(switch-type [fragment] "Switch type."))

(deftype TypeFragment [f-type p1 p2]
  FragmentProtocol
	(t [this] f-type)
	(switch-type [this] (TypeFragment. (if (= f-type :type-a) :type-a :type-b) p1 p2)))

nathanmarz

(defn one [] 1)

(defn div [v1 v2]
  (float (/ v1 v2)))

(defparallelagg count
  :init-var #'one
  :combine-var #'+)

(defparallelagg sum-parallel

swannodette

(ns fj
  (:import [java.util.concurrent RecursiveTask 
                                 ForkJoinPool]))

(set! *warn-on-reflection* true)

;; -----------------------------------------------
;; Helpers to provide an idiomatic interface to FJ

(defprotocol IFJTask