{"size": 937, "ext": "rktl", "max_stars_repo_path": "pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/typed/sieve.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/shootout/typed/sieve.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/shootout/typed/sieve.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": 33.4642857143, "max_line_length": 78, "alphanum_fraction": 0.3916755603}
(: main ((Vectorof String) -> Void))
(define (main args)
  (let: ((n : Integer
            (if (= (vector-length args) 0)
                1
                (assert (string->number (vector-ref args 0)) exact-integer?)))
         (count : Integer 0)
         (flags : (Vectorof Boolean) (make-vector 8192 #t)))
    (let loop ((iter n))
      (if (> iter 0)
          (begin
            (do ((i 0 (+ i 1))) ((>= i 8192)) (vector-set! flags i #t))
            (set! count 0)
            (do ((i 2 (+ 1 i)))
                ((>= i 8192))
              (if (vector-ref flags i)
                  (begin
                    (do ((k (+ i i) (+ k i)))
                        ((>= k 8192))
                      (vector-set! flags k #f))
                    (set! count (+ 1 count)))
                  #t))
            (loop (- iter 1)))
          #t))
    (display "Count: ") (display count) (newline)))

(main (current-command-line-arguments))
