Using assoc in foppl example

foppl_temp.clj

(let [[G E]
      (foppl-query
        (defn loopi [i mu] (assoc mu (+ i 1) (sample (normal (get mu i) 1))))
        (loop 4 (vector 1 1 1 1 1) loopi))]
  (print-graph G)
  (:body E))

;;; Vertices V: #{x38089 x38096 x38075 x38082}
;;; 
;;; Arcs A: #{}
;;; 
;;; Conditional densities P:
;;; x38075 -> (fn [] (normal 1 1))
;;; x38082 -> (fn [] (normal nil 1))
;;; x38089 -> (fn [] (normal nil 1))
;;; x38096 -> (fn [] (normal nil 1))
;;; 
;;; Observed values O:
;;; 
;; <-
;;; (assoc (assoc (assoc (assoc [1 1 1 1 1] 1 x38075) 2 x38082) 3 x38089) 4 x38096)

(let [[G E]
      (foppl-query
        (defn loopi [i mu] (assoc mu (+ i 1) (* 2 (get mu i))))
        (loop 4 (vector 1 1 1 1 1) loopi))]
  (print-graph G)
  (:body E))

;;; Vertices V: #{}
;;; 
;;; Arcs A: #{}
;;; 
;;; Conditional densities P:
;;; 
;;; 
;;; Observed values O:
;;; 
;;; 
;; <-
;;; [1 2 4 8 16]