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/Higher-order-functions/PicoLisp/higher-order-functions.l
+++ b/Task/Higher-order-functions/PicoLisp/higher-order-functions.l
@ -0,0 +1,33 @@
+: (de first (Fun)
+   (Fun) )
+-> first
+
+: (de second ()
+   "second" )
+-> second
+
+: (first second)
+-> "second"
+
+: (de add (A B)
+   (+ A B) )
+-> add
+
+: (add 1 2)
+-> 3
+
+: (de call-it (Fun X Y)
+   (Fun X Y) )
+-> call-it
+
+: (call-it add 1 2)
+-> 3
+
+: (mapcar inc (1 2 3 4 5))
+-> (2 3 4 5 6)
+
+: (mapcar + (1 2 3) (4 5 6))
+-> (5 7 9)
+
+:  (mapcar add (1 2 3) (4 5 6))
+-> (5 7 9)