greghendershott

#lang racket/base

(require (only-in net/url string->url call/input-url get-pure-port)
         (only-in racket/date date-display-format date->string)
         (only-in racket/match match)
         (only-in racket/pretty pretty-print))

(provide packages
         packages-by-author
         package

samdphillips

#!/usr/bin/env racket
#lang racket

(require lens
         net/http-easy
         qi
         racket/date
         syntax/parse/define)

(current-print

samth

#lang racket

(struct time-result [elapsed gc cpu] #:prefab)

(define (time-function func N)
  (let loop ((n N) (results '()))
    (cond
      [(zero? n) (reverse results)] ; Return the results in reverse order
      [else
       (let-values ([(result elapsed gc-time cpu-time) (time-apply func '())])