Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Apply-a-callback-to-an-array/PicoLisp/apply-a-callback-to-an-array.l
+++ b/Task/Apply-a-callback-to-an-array/PicoLisp/apply-a-callback-to-an-array.l
@ -0,0 +1,16 @@
+: (mapc println (1 2 3 4 5))  # Print numbers
+1
+2
+3
+4
+5
+-> 5
+
+: (mapcar '((N) (* N N)) (1 2 3 4 5))  # Calculate squares
+-> (1 4 9 16 25)
+
+: (mapcar ** (1 2 3 4 5) (2 .))  # Same, using a circular list
+-> (1 4 9 16 25)
+
+: (mapcar if '(T NIL T NIL) '(1 2 3 4) '(5 6 7 8))  # Conditional function
+-> (1 6 3 8)