all tasks

Task/Sort-using-a-custom-comparator/Scheme/sort-using-a-custom-comparator-1.ss

@@ -0,0 +1,10 @@
+(use srfi-13);;Syntax for module inclusion depends on implementation,
+;;as does the presence of a sort function.
+(define (mypred? a b)
+  (let ((len-a (string-length a))
+	(len-b (string-length b)))
+    (if (= len-a len-b)
+	(string>? (string-downcase b) (string-downcase a))
+        (> len-a len-b))))
+
+(sort '("sorted" "here" "strings" "sample" "Some" "are" "be" "to") mypred?)

Task/Sort-using-a-custom-comparator/Scheme/sort-using-a-custom-comparator-2.ss

@@ -0,0 +1 @@
+("strings" "sample" "sorted" "here" "Some" "are" "be" "to")