You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
18 lines
534 B
Racket
18 lines
534 B
Racket
#lang debug racket/base
|
|
(require racket/file
|
|
racket/fasl
|
|
racket/vector
|
|
"words.rkt")
|
|
(provide (all-defined-out))
|
|
|
|
(define lengthidx-file "compiled/lengthidx.rktd")
|
|
|
|
(define (regenerate-length-index!)
|
|
(s-exp->fasl (vector-map string-length usable-words) (open-output-file lengthidx-file #:exists 'replace)))
|
|
|
|
(define lengthidx (let ()
|
|
(unless (file-exists? lengthidx-file)
|
|
(regenerate-length-index!))
|
|
(fasl->s-exp (open-input-file lengthidx-file))))
|
|
|