{"size": 591, "ext": "rktl", "max_stars_repo_path": "pkgs/racket-benchmarks/tests/racket/benchmarks/shootout/typed/spellcheck.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/spellcheck.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/spellcheck.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": 24.625, "max_line_length": 48, "alphanum_fraction": 0.5465313029}
;;; The Computer Language Benchmarks Game
;;; http://shootout.alioth.debian.org/
;;;
;;; spellcheck benchmark

(: dict (HashTable Bytes Boolean))
(define dict (make-hash))

(with-input-from-file "Usr.Dict.Words"
  (lambda ()
    (let: loop : Void ()
      (let ([r (read-bytes-line)])
        (unless (eof-object? r)
          (hash-set! dict r #t)
          (loop))))))

(let ([in (current-input-port)])
  (let: loop : Void ()
    (let ([w (read-bytes-line in)])
      (unless (eof-object? w)
        (unless (hash-ref dict w (lambda () #f))
          (printf "~a\n" w))
        (loop)))))
