That first `(map #...)` is particularly interesting. Looks like you're applying the item lookup operation across the list of indices. Neat.
(map a-list [3 1 4])