A-M baby

2013-04-10 21:29:02 -07:00 · 2013-04-10 21:29:02 -07:00 · db842d013d
commit db842d013d
parent 764da6cbbb
19005 changed files with 197040 additions and 7 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)