tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Optional-parameters/Racket/optional-parameters.rkt
+++ b/Task/Optional-parameters/Racket/optional-parameters.rkt
@ -0,0 +1,10 @@
+#lang racket
+
+(define (sort-table table
+                    [ordering string<=?]
+                    [column 0]
+                    [reverse? #f])
+  (sort table (if reverse?
+                  (negate ordering)
+                  ordering)
+        #:key (λ (row) (list-ref row column))))