RosettaCodeData/Task/Associative-array-Iteration/TXR/associative-array-iteration...

9 lines
120 B
Plaintext

(defvarl h (hash))
(each ((k '(a b c))
(v '(1 2 3)))
(set [h k] v))
(dohash (k v h)
(put-line `@k -> @v`))