Associative array/Iteration: Difference between revisions

← Older editNewer edit →
Content deleted Content added
→‎{{header|TXR}}: With "each" operator and array syntax.
Line 1,293:
<lang txr>
@(do (defvar *h* (make-hash nil nil nil))
(mapcareach (lambda (k v'(a b c))
(setv '(gethash1 *h*2 k nil3) v))
(set [*h* k nil] '(a b cv))
'(1 2 3))
(dohash (k v *h*)
(format t "~a -> ~a\n" k v))))</lang>
 
<pre>$ txr hash.txr
Retrieved from "https://rosettacode.org/wiki/Associative_array/Iteration"