Horizon TFSG Step, Formula, Hub First Draft

horizon_tfsg_step_formula_hub_first_draft.md

```clojure
;; Clojure Step
(declare step check-valid base-complete check-user)

(defn one-of [coll]
  (if (seq coll)
    [(rand-nth coll)]))

(defn step[] (concat (check-valid) (base-complete) (check-user)))
(defn check-valid[] (one-of [0 1]))
(defn base-complete[] (one-of ["id" "source_id" "parent_id" "table", "state_type_id"]))
(defn check-user[] (one-of ["product" "web analytics_data" "user_data" "occurrence_type"]))

(take 10 (repeatedly step))


;; Clojure Formula
(declare formula step-one step-two check-valid base-complete check-user)

(defn one-of [coll]
  (if (seq coll)
    [(rand-nth coll)]))

(defn formula[] (concat (step-one) (step-two)))
(defn step-one[] (concat (check-valid) (base-complete)))
(defn step-two[] (concat (check-user) (check-valid)))
(defn check-valid[] (one-of [0 1]))
(defn base-complete[] (one-of ["id" "source_id" "parent_id" "table", "state_type_id"]))
(defn check-user[] (one-of ["product" "web analytics_data" "user_data" "occurrence_type"]))

(take 10 (repeatedly formula))

;; Clojure Hub
(declare hub node-one node-two formula-one formula-two step-one step-two check-valid base-complete check-user)

(defn one-of [coll]
  (if (seq coll)
    [(rand-nth coll)]))

(defn hub[] (concat (node-one) (node-two)))
(defn node-one[] (concat (formula-one) (formula-two)))
(defn node-two[] (concat (formula-one) (formula-two)))
(defn formula-one[] (concat (step-one) (step-two)))
(defn formula-two[] (concat (step-one) (step-two)))
(defn step-one[] (concat (check-valid) (base-complete)))
(defn step-two[] (concat (check-user) (check-valid)))
(defn check-valid[] (one-of [0 1]))
(defn base-complete[] (one-of ["id" "source_id" "parent_id" "table", "state_type_id"]))
(defn check-user[] (one-of ["product" "web analytics_data" "user_data" "occurrence_type"]))

(take 10 (repeatedly hub))
```