tasks a-s

Task/Optional-parameters/Ursala/optional-parameters-1.ursala

@@ -0,0 +1,10 @@
+#import std
+#import nat
+
+ss ::
+
+ordering   %fZ ~ordering||lleq!
+column     %n  ~column||1!
+reversed   %b
+
+sorter = +^(~reversed?/~&x! ~&!,-<+ +^/~ordering ~~+ ~&h++ //skip+ predecessor+ ~column)

Task/Optional-parameters/Ursala/optional-parameters-2.ursala

@@ -0,0 +1,17 @@
+example_table =
+
+<
+   <'foo','b  '>,
+   <'barr','a '>,
+   <'bazzz','c'>>
+
+#cast %sLLL
+
+examples =
+
+<
+   (sorter ss&) example_table,                      # default sorting algorithm
+   (sorter ss[ordering: leql]) example_table,       # sort by field lengths but otherwise default
+   (sorter ss[column: 2]) example_table,            # etc.
+   (sorter ss[reversed: true]) example_table,
+   (sorter ss[reversed: true,column: 2]) example_table>