Associative array/Iteration: Difference between revisions
Content added Content deleted
(→{{header|TXR}}: Added.) |
|||
Line 1,268: | Line 1,268: | ||
puts "value = $value" |
puts "value = $value" |
||
}</lang> |
}</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}}== |
=={{header|UNIX Shell}}== |