all tasks

Task/Sort-using-a-custom-comparator/Sather/sort-using-a-custom-comparator.sa

@@ -0,0 +1,15 @@
+class MAIN is
+
+  custom_comp(a, b:STR):BOOL is
+    l ::= a.length - b.length;
+    if l = 0 then return a.lower < b.lower; end;
+    return l > 0;
+  end;
+
+  main is
+    s:ARRAY{STR} := |"this", "is", "an", "array", "of", "strings", "to", "sort"|;
+
+    s.insertion_sort_by(bind(custom_comp(_,_)));
+    loop #OUT + s.elt! + "\n"; end;
+  end;
+end;