Associative array/Iteration: Difference between revisions
Content added Content deleted
m (→{{header|Sidef}}: removed the useless semicolons) |
(→{{header|TXR}}: Dop @(do ...), remove spurious argument in [h k nil], streamline.) |
||
Line 2,414: | Line 2,414: | ||
=={{header|TXR}}== |
=={{header|TXR}}== |
||
<lang |
<lang txrlisp>(defvarl h (hash)) |
||
@(do (defvar *h* (make-hash nil nil nil)) |
|||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
(format t "~a -> ~a\n" k v))))</lang> |
|||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
⚫ | |||
(put-line `@k -> @v`))</lang> |
|||
{{out|Run}} |
|||
⚫ | |||
c -> 3 |
c -> 3 |
||
b -> 2 |
b -> 2 |