RosettaCodeData/Task/Associative-array-Iteration/BaCon/associative-array-iteration.bacon
2017-09-25 22:28:19 +02:00

10 lines
253 B
Text

DECLARE associative ASSOC STRING
associative("abc") = "first three"
associative("mn") = "middle two"
associative("xyz") = "last three"
LOOKUP associative TO keys$ SIZE amount
FOR i = 0 TO amount - 1
PRINT keys$[i], ":", associative(keys$[i])
NEXT