Associative array/Iteration: Difference between revisions

Content added Content deleted

Inline

@@ Line 2,414: / Line 2,414: @@
 =={{header|TXR}}==
-<lang txr>
+<lang txrlisp>(defvarl h (hash))
-@(do (defvar *h* (make-hash nil nil nil))
-     (each ((k '(a b c))
-            (v '(1 2 3)))
-       (set [*h* k nil] v))
-     (dohash (k v *h*)
-       (format t "~a -> ~a\n" k v))))</lang>
+(each ((k '(a b c))
-<pre>$ txr hash.txr
+       (v '(1 2 3)))
+  (set [h k] v))
+(dohash (k v h)
+  (put-line `@k -> @v`))</lang>
+{{out|Run}}
+<pre>$ txr hash.tl
 c -> 3
 b -> 2