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/Common-Lisp/optional-parameters-1.lisp
+++ b/Task/Optional-parameters/Common-Lisp/optional-parameters-1.lisp
@ -0,0 +1,7 @@
+(defun sort-table (table &key (ordering #'string<)
+                              (column 0)
+                              reverse)
+  (sort table (if reverse
+                  (complement ordering)
+                  ordering)
+              :key (lambda (row) (elt row column))))