I hereby claim:
- I am bkersten on github.
- I am bkersten (https://keybase.io/bkersten) on keybase.
- I have a public key ASBV0Zi9nEUuScuXVw6D1ltCEpPY7KrqXJFk_YYxmnMK2Ao
To claim this, I am signing this object:
Ben Kersten bkersten
bkersten
/ keybase.md
Created
September 30, 2016 11:27
bkersten
/ gist:1388295
Created
November 23, 2011 09:45
select-vals returns a list of map values in the order of the supplied key sequence
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defn select-vals [map keyseq] | |
| "Returns a list containing the entries in map whose key is in keys, in order of the supplied keys, with nil in place of keys not found" | |
| (loop [ret [] keys (seq keyseq)] | |
| (if keys | |
| (let [value (first (rest (. clojure.lang.RT (find map (first keys)))))] | |
| (recur | |
| (if value | |
| (conj ret value) | |
| (conj ret nil)) | |
| (next keys))) |