RosettaCodeData/Task/Associative-array-Iteration/NewLISP/associative-array-iteration.newlisp
2015-02-20 00:35:01 -05:00

12 lines
255 B
Text

;; using an association list:
(setq alist '(("A" "a") ("B" "b") ("C" "c")))
;; list keys
(map first alist)
;; list values
(map last alist)
;; loop over the assocation list:
(dolist (elem alist)
(println (format "%s -> %s" (first elem) (last elem))))