Anonymous user
Associative array/Iteration: Difference between revisions
→{{header|TXR}}: Added.
(→{{header|TXR}}: Added.) |
|||
Line 1,268:
puts "value = $value"
}</lang>
=={{header|TXR}}==
<lang txr>
@(do (defvar *h* (make-hash nil nil nil))
(mapcar (lambda (k v)
(set (gethash *h* k nil) v))
'(a b c)
'(1 2 3))
(dohash (k v *h*)
(format t "~a -> ~a\n" k v)))</lang>
<pre>$ txr hash.txr
c -> 3
b -> 2
a -> 1</pre>
=={{header|UNIX Shell}}==
| |||