Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Associative-array-Iteration/PicoLisp/associative-array-iteration-2.l
+++ b/Task/Associative-array-Iteration/PicoLisp/associative-array-iteration-2.l
@ -0,0 +1,12 @@
+(idx 'A (def "foo" 5) T)
+(idx 'A (def "bar" 10) T)
+(idx 'A (def "baz" 15) T)
+
+: A                                    # Get the whole tree
+-> ("foo" ("bar" NIL "baz"))
+
+:  (idx 'A)                            # Get all keys
+-> ("bar" "baz" "foo")
+
+:  (mapcar val (idx 'A))               # Get all values
+-> (10 15 5)