{"size": 795, "ext": "rktl", "max_stars_repo_path": "pkgs/racket-benchmarks/tests/racket/benchmarks/control/setup.rktl", "max_stars_repo_name": "lkh01/racket", "max_stars_repo_stars_event_min_datetime": "2018-07-05T21:18:24.000Z", "max_stars_repo_stars_event_max_datetime": "2021-06-04T14:48:37.000Z", "max_issues_repo_path": "pkgs/racket-benchmarks/tests/racket/benchmarks/control/setup.rktl", "max_issues_repo_name": "lkh01/racket", "max_issues_repo_issues_event_min_datetime": "2017-05-10T07:33:20.000Z", "max_issues_repo_issues_event_max_datetime": "2018-07-19T15:49:46.000Z", "max_forks_repo_path": "pkgs/racket-benchmarks/tests/racket/benchmarks/control/setup.rktl", "max_forks_repo_name": "lkh01/racket", "max_forks_repo_forks_event_min_datetime": "2016-04-25T11:47:57.000Z", "max_forks_repo_forks_event_max_datetime": "2017-05-09T14:52:48.000Z"}
{"max_stars_count": 4, "max_issues_count": 9, "max_forks_count": 3, "avg_line_length": 29.4444444444, "max_line_length": 72, "alphanum_fraction": 0.5547169811}
;; Racket-style outtput for timing informatiton:
(define-syntax time
  (syntax-rules ()
    [(_ e)
     (let ([pre (statistics)])
       (let ([r e])
         (let ([post (statistics)])
           (print-delta pre post)
           r)))]))

(define (print-delta pre post)
  (define (msecs a b)
    (quotient (- (+ (* 1000000000 (time-second a)) (time-nanosecond a))
                 (+ (* 1000000000 (time-second b)) (time-nanosecond b)))
              1000000))
  (printf "cpu time: ~a real time: ~a gc time: ~a\n"
          (msecs (sstats-cpu post) (sstats-cpu pre))
          (msecs (sstats-real post) (sstats-real pre))
          (msecs (sstats-gc-cpu post) (sstats-gc-cpu pre))))

(print-extended-identifiers #t)

(define (show v)
  (when (symbol? v) (display "'"))
  (write v)
  (newline))
