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

9 lines
120 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
(defvarl h (hash))
(each ((k '(a b c))
(v '(1 2 3)))
(set [h k] v))
(dohash (k v h)
(put-line `@k -> @v`))