Data update

Task/First-class-functions/Quackery/first-class-functions-1.quackery

@@ -0,0 +1,57 @@
+  [ $ \
+try:
+    float(string_from_stack())
+except:
+    to_stack(False)
+else:
+    to_stack(True)
+ \ python ]                                     is isfloat (   $ -->   b )
+
+ [ nextword
+   dup isfloat not if
+     [ $ '"f" needs to be followed by a number.'
+       message put bail ]
+   ' [ ' ] swap nested join
+   nested swap dip join ]                   builds f       ( [ $ --> [ $ )
+
+  [ $ \
+import math
+a = string_from_stack()
+a = str(math.sin(float(a)))
+string_to_stack(a) \ python ]                   is sin     (   $ -->   $ )
+
+  [ $ \
+import math
+a = string_from_stack()
+a = str(math.asin(float(a)))
+string_to_stack(a) \ python ]                   is asin    (   $ -->   $ )
+
+  [ $ \
+import math
+a = string_from_stack()
+a = str(math.cos(float(a)))
+string_to_stack(a) \ python ]                   is cos     (   $ -->   $ )
+
+  [ $ \
+import math
+a = string_from_stack()
+a = str(math.acos(float(a)))
+string_to_stack(a) \ python ]                   is acos    (   $ -->   $ )
+
+  [ $ \
+a = string_from_stack()
+b = string_from_stack()
+c = str(float(b) * float(a))
+string_to_stack(c) \ python ]                   is f*      ( $ $ -->   $ )
+
+  [ $ \
+a = string_from_stack()
+b = string_from_stack()
+c = str(float(b) / float(a))
+string_to_stack(c) \ python ]                   is f/      ( $ $ --> $   )
+
+  [ $ \
+a = string_from_stack()
+b = string_from_stack()
+c = str(float(b) ** float(a))
+string_to_stack(c) \ python ]                   is f**     ( $ $ --> $   )

Task/First-class-functions/Quackery/first-class-functions-2.quackery

@@ -0,0 +1,24 @@
+  [ dup dup f* f* ]                is cubed    (   $ --> $   )
+
+  [ f 1 f 3 f/ f** ]               is cuberoot (   $ --> $   )
+
+  [ table sin cos cubed ]          is A        (   n --> [   )
+
+  [ table asin acos cuberoot ]     is B        (   n --> [   )
+
+  [ dip nested nested join ]       is compose  ( x x --> [   )
+
+  [ dup dip A B compose do ]       is ->A->B-> ( f n --> f   )
+
+  ' [ f 0.5  f 1.234567 ]
+  witheach
+    [ do 3 times
+       [ dup echo$
+         say " -> "
+         i^ A echo
+         say " -> "
+         i^ B echo
+         say " -> "
+         dup i^ ->A->B-> echo$
+         cr ]
+     drop cr ]