CDE

Task/Associative-array-Iteration/Common-Lisp/associative-array-iteration-1.lisp

@@ -0,0 +1,8 @@
+;; iterate using dolist, destructure manually
+(dolist (pair alist)
+  (destructuring-bind (key . value) pair
+    (format t "~&Key: ~a, Value: ~a." key value)))
+
+;; iterate and destructure with loop
+(loop for (key . value) in alist
+      do (format t "~&Key: ~a, Value: ~a." key value))

Task/Associative-array-Iteration/Common-Lisp/associative-array-iteration-2.lisp

@@ -0,0 +1,2 @@
+(loop for (key value) on plist :by 'cddr
+      do (format t "~&Key: ~a, Value: ~a." key value))

Task/Associative-array-Iteration/Common-Lisp/associative-array-iteration-3.lisp

@@ -0,0 +1,3 @@
+(maphash (lambda (key value)
+           (format t "~&Key: ~a, Value: ~a." key value))
+         hash-table)

Task/Associative-array-Iteration/Common-Lisp/associative-array-iteration-4.lisp

@@ -0,0 +1,2 @@
+(loop for key being each hash-key of hash-table using (hash-value value)
+      do (format t "~&Key: ~a, Value: ~a." key value))

Task/Associative-array-Iteration/Common-Lisp/associative-array-iteration-5.lisp

@@ -0,0 +1,6 @@
+(with-hash-table-iterator (next-entry hash-table)
+  (loop
+   (multiple-value-bind (nextp key value) (next-entry)
+     (if (not nextp)
+       (return)
+       (format t "~&Key: ~a, Value: ~a." key value)))))