Associative array/Iteration: Difference between revisions

→‎{{header|TXR}}: With "each" operator and array syntax.
(→‎{{header|MATLAB}} / {{header|Octave}}: more concise explanation)
(→‎{{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
Anonymous user