loaddictionary2.rkt

loaddictionary2.rkt

#lang racket
(require racket/file)
(require (planet "memcached.rkt" ("jaymccarthy" "memcached.plt" 1 0)))

(define loaddict
  (lambda (fn)
    (let ([mc (memcached "localhost" 11212)]
          [lines (file->bytes-lines fn)])
      (for-each (lambda (l)
                  (if (> (bytes-length l) 0)
                      (memcached-set! mc l #"1")
                      (printf "skip: ~a\n" l)))
                lines))))

(loaddict "/usr/share/dict/words")