qbg/gist:469794

Created July 9, 2010 18:05

Star 0 You must be signed in to star a gist
Fork 0 You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/qbg/469794.js"></script>
Save qbg/469794 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

gistfile1.txt

	(defn convert-alist
	[alist]
	(let [size (apply max (map first alist))]
	(reduce (fn [v [i o]] (assoc v (dec i) o))
	(vec (repeat size nil))
	alist)))

slyrus commented Jul 9, 2010

(defn convert-alist
  [alist & [key first]]
  (reduce (fn [v x] (assoc v (key x) x))
          [nil]
          alist))

slyrus commented Jul 9, 2010

Ok then, this should do it:

(defn convert-alist
  [alist & [key first]]
  (reduce (fn [v x] (assoc v (key x) x))
          (vec (repeat (apply max (map key alist)) nil))
          alist))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment