Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 31b91c5d37
Fetching contributors…

Cannot retrieve contributors at this time

20 lines (18 sloc) 0.498 kb
#!/usr/bin/env racket
#lang racket/base
(require racket/cmdline
racket/match
"stats.rkt"
"data.rkt")
(define-values (an-assignment)
(command-line
#:program "grade-stats"
#:args args
(match args
[(list (regexp #rx"^([0-9]+)(opt)?$" (list dir num opt)))
(assignment dir (string->number num) (not (not opt)))]
[else
#f])))
(cond
[an-assignment (display (format-assignment-stats an-assignment))]
[else (display (format-course-stats))])
Jump to Line
Something went wrong with that request. Please try again.