Just another update

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

@@ -0,0 +1,11 @@
+(define strings '(
+  "This" "Is" "A" "Set" "Of" "Strings" "To" "Sort" "duplicated"
+  "this" "is" "a" "set" "of" "strings" "to" "sort" "duplicated"))
+
+(print
+  (sort strings
+    (lambda two
+      (define sizes (map string-length two))
+      (if (apply = sizes)
+        (apply string-ci<? two)
+        (apply > sizes)))))