1 2 3 4 5 6 7 8 |
(defn substitute [l m] (map #(m % %) l)) (defn deep-substitute [l m] (map #(cond (seq? %) (deep-substitute % m) :default (m % %)) l)) |
I'm Dan Schlegel, an Associate Professor in the Computer Science Department at SUNY Oswego
1 2 3 4 5 6 7 8 |
(defn substitute [l m] (map #(m % %) l)) (defn deep-substitute [l m] (map #(cond (seq? %) (deep-substitute % m) :default (m % %)) l)) |