Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
10
Task/Optional-parameters/Racket/optional-parameters.rkt
Normal file
10
Task/Optional-parameters/Racket/optional-parameters.rkt
Normal file
|
|
@ -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))))
|
||||
Loading…
Add table
Add a link
Reference in a new issue