1*2bcacabbSAdam Hornacek;; Random Clojure to test the Analyzer 2*2bcacabbSAdam Hornacek;; @author Farid Zakaria 3*2bcacabbSAdam Hornacek 4*2bcacabbSAdam Hornacek(ns opengrok 5*2bcacabbSAdam Hornacek "This is a sample test file that will be used by the ClojureAnalyzerFactoryTest") 6*2bcacabbSAdam Hornacek 7*2bcacabbSAdam Hornacek;; Calculate the power set 8*2bcacabbSAdam Hornacek(defn power-set [coll] 9*2bcacabbSAdam Hornacek (reduce (fn [sols a] 10*2bcacabbSAdam Hornacek (clojure.set/union (set (map #(conj % a) sols)) sols)) #{#{}} coll)) 11*2bcacabbSAdam Hornacek 12*2bcacabbSAdam Hornacek;; a private function 13*2bcacabbSAdam Hornacek;; Calculate the power set 14*2bcacabbSAdam Hornacek(defn- power-set-private [coll] 15*2bcacabbSAdam Hornacek "This is the power-set API but private" 16*2bcacabbSAdam Hornacek (reduce (fn [sols a] 17*2bcacabbSAdam Hornacek (clojure.set/union (set (map #(conj % a) sols)) sols)) #{#{}} coll)) 18*2bcacabbSAdam Hornacek 19*2bcacabbSAdam Hornacek(defstruct author :first :last) 20*2bcacabbSAdam Hornacek 21*2bcacabbSAdam Hornacek;constant definition 22*2bcacabbSAdam Hornacek(def author-first-name "Farid") 23*2bcacabbSAdam Hornacek(def author-last-name "Zakaria") 24*2bcacabbSAdam Hornacek(def Farid (struct author author-first-name author-last-name))