Guest User

Untitled

a guest
Apr 18th, 2012
30
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defn vec-fill [x & dims]
  2.   (if (empty? dims) x
  3.     (loop [acc [] k (first dims)]
  4.        (if (= 0 k)
  5.        acc
  6.            (recur (conj acc (apply vec-fill x (rest dims)) (- k 1)))))))
Advertisement
Add Comment
Please, Sign In to add comment